HaskellCourse/io_cesar.hs

-- Slide 58

import Data.Char

cechar n c = chr ((mod ((ord c) + n - ord 'a') ((ord 'z') - ord 'a'  + 1)) + ord 'a')

cesar n = map (cechar n)

inlinecesar n s = map (chr.(+ ord 'a').(flip mod 26).(+ n).(subtract (ord 'a')).ord) s

main::IO ()
main = do
	n <- getLine
	s <- getLine
	putStrLn (cesar (read n) s)
	putStrLn (inlinecesar (read n) s)