Skip to content

Instantly share code, notes, and snippets.

@takeouchida
Created November 27, 2013 00:57
Show Gist options
  • Save takeouchida/7669018 to your computer and use it in GitHub Desktop.
Save takeouchida/7669018 to your computer and use it in GitHub Desktop.
"Hello World" in Haskell without any numeric, character, or string literals.
o = length $ return undefined
s = succ
d n = n + n
main = putStrLn $ map toEnum
[ d $ d $ d $ s $ d $ d $ d o
, s $ d $ d $ s $ d $ d $ d $ s $ d o
, d $ d $ s $ d $ s $ d $ d $ s $ d o
, d $ d $ s $ d $ s $ d $ d $ s $ d o
, s $ d $ s $ d $ s $ d $ s $ d $ d $ s $ d o
, d $ d $ d $ d $ d o
, s $ d $ s $ d $ s $ d $ d $ s $ d $ d o
, s $ d $ s $ d $ s $ d $ s $ d $ d $ s $ d o
, d $ s $ d $ d $ d $ s $ d $ s $ d o
, d $ d $ s $ d $ s $ d $ d $ s $ d o
, d $ d $ s $ d $ d $ d $ s $ d o
]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment