Skip to content

Instantly share code, notes, and snippets.

@joaomilho

joaomilho/numerology.hs

Forked from softa/numerology.hs
Created October 16, 2013 08:17
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save joaomilho/7004368 to your computer and use it in GitHub Desktop.
Save joaomilho/7004368 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
numerology.hs
import Char
r = flip mod
b [l] = l
b l = b $ map (\x -> read [x]) $ show $ sum l
s = b . map ((+1) . r 9 . r 97 . ord . toLower) . filter isAlpha
main = do
x <- getLine
putStr $ show $ s x
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment