ABC#011 B.名前の確認

その他 参加ログ

Haskellで挑戦。

問題

与えられた文字列を、先頭文字を大文字、それ以外を小文字に直す。

考え方

やるだけ

書いたコード

import Control.Applicative
import Control.Monad
import Data.Char
 
normalize :: String -> String
normalize (x:xs) = (toUpper x) : (map toLower xs)
 
main :: IO ()
main = do
    str <- getLine
    putStrLn $ normalize str