LL Golf Hole 2 - 文字列に含まれる単語の最初の文字を大文字にする
Posted feedbacks - Haskell
無難に書いた。
1 2 | import Data.Char
main=getLine>>=print.unwords.map(\(a:b)->toUpper a:b).words
|
単純に縮めるだけならば次のようにー。
1 2 | import Data.Char
main=interact$unwords.map(\(a:b)->toUpper a:b).words
|
[1..100]>>=pen
#6972()
[
Haskell
]
アルファベットか数字の一続きをワードとしました。
1 2 3 | import Data.Char
main=interact(\z->zipWith f(' ':z)z)
f x|isAlphaNum x=id|True=toUpper
|
Data.Char無しで69打．
1 2 | main=interact$unwords.map f.words
f(a:b)=['@'..]!!mod(fromEnum a)32:b
|
よみやすいHaskell
1 2 3 4 5 6 7 8 9 | import Char
f :: String -> String
f cs = zipWith g (' ':cs) cs
where
g :: Char -> Char -> Char
g ' ' b = toUpper b
g _ b = b
main = print $ f "LL day and night"
|
もっとよみやすいHaskell
1 2 3 | import Char
f cs=zipWith g(' ':cs)cs where g ' ' b=toUpper b;g _ b=b
main=print$f"LL day and night"
|
takano32
#6901()
[
Ruby
]
Rating2/10=0.20
文字列に含まれる単語について、それぞれの単語の最初の文字を大文字にしてください。
たとえば、"LL future" と与えられたときは "LL Future" と出力する。"LL day and night" と与えられたときは "LL Day And Night" と出力する。
与えられる文字列はリテラルで表記する、標準入力で与えられる、引数で与えられるなどは自由とします。
余力のあるものはこのプログラムを短くしてみたり、短くしてみたり、短くしてください。
※LL Future実行委員の高野光弘です。この出題は LL Future公式の出題であり、優れたものについてはLL Golfのセッションでご紹介させていただくかもしれません。ご理解の上、ご投稿ください。また、LL Futureのチケットは現在も発売中です。よろしければ、メインイベントの方にもぜひご参加ください。
see: LL Golf
Rating2/10=0.20-0+
[ reply ]