Skip to content

Instantly share code, notes, and snippets.

@keizo042

keizo042/nonum_sum.hs

Created May 14, 2015 05:47
Show Gist options
  • Save keizo042/b7e9381cbb1441e96cd6 to your computer and use it in GitHub Desktop.
Save keizo042/b7e9381cbb1441e96cd6 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
nonum_sum.hs
import Data.Char
main :: IO ()
main = print $ foldl1 (+) ( map ord ['\NUL'..'\n'])
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment