Python Challenge

を空き時間にちょこちょこやっている。趣旨としてはPythonを使って問題にチャレンジ、というものなんだろうけど、ここは敢えてHaskellで攻めたいと思う。僕のHaskellレベルはたぶん1.5くらい。

Lv1

アルファベット小文字列を二文字循環シフトする。

ex. "x ( yz )" -> "z ( ab )"

import Char

shift :: Char -> Char 
shift a
 | a == 'z' = 'a'
 | isLower a = chr $ ord a + 1
 | otherwise = a

main :: IO()
main = do x <- getContents
          putStr $ last $ take 3 $ iterate (map shift) x