Create a gist now

Instantly share code, notes, and snippets.

reddit r/codes/
[Prelude] λ> import Data.Char
[Prelude Data.Char] λ> let fibs = [1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233]
[Prelude Data.Char] λ> let mystery = [6, 9, 4, 45, 70, 8, 39, 63, 306 ]
[Prelude Data.Char] λ> map (chr . (+64) . fromInteger) $ zipWith (div) mystery fibs
"FIBONACCI"
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment