Skip to content

Instantly share code, notes, and snippets.

@vigdorchik

vigdorchik/gist:bdd042effb33f6d9fdab37fdd7e82c13

Created June 7, 2016 16:20
Show Gist options
  • Save vigdorchik/bdd042effb33f6d9fdab37fdd7e82c13 to your computer and use it in GitHub Desktop.
Save vigdorchik/bdd042effb33f6d9fdab37fdd7e82c13 to your computer and use it in GitHub Desktop.
Download ZIP
haskell fibonacci
Raw
gistfile1.txt
fib = map fib' [0..] where
fib' 0 = 0; fib' 1 = 1; fib' n = (fib !! (n-1))+(fib !! (n-2))
@vigdorchik
Copy link
Author

or linearly:

fib = map fst $ iterate ((n_2,n_1) -> (n_1, n_2+n_1)) (1,1)

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment