Skip to content

Instantly share code, notes, and snippets.

@nabe256

nabe256/fib2.hs

Created April 20, 2012 19:41
Show Gist options
  • Save nabe256/2431250 to your computer and use it in GitHub Desktop.
Save nabe256/2431250 to your computer and use it in GitHub Desktop.
Download ZIP
Fibonacci number 2
Raw
fib2.hs
fib :: Num a => a -> [a]
fib 0 = [0]
fib 1 = [0,1]
fib n = (fib(n-1)) ++ [last(fib(n-2)) + last(fib(n-1))]
main = mapM_ print $ map fib [0..9]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment