caesar.hs

import Data.List
import Data.Char

alphabet = ['a'..'z']
caesar = shiftRight 23 alphabet

shiftRight n xs = take (length xs) (drop n (cycle xs))

secret = map encrypt

encrypt letter = case (elemIndex (toLower letter) alphabet) of
                 Just n -> caesar !! n
                 Nothing -> letter