David Tran’s blog

transform :: Enum a => (Int -> Int) -> [a] -> [a]
transform f = map toEnum . map f . map fromEnum

encrypt, decrypt :: String -> String
encrypt = transform (\c -> if c >= 255 then 0 else c+1)
decrypt = transform (\c -> if c <= 0 then 255 else c-1)

This entry was posted on Tuesday, May 22nd, 2007 at 3:12 pm and is filed under Haskell - SOE. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.