Skip to content

Instantly share code, notes, and snippets.

@erutuf

erutuf/fibs.hs

Created July 4, 2010 16:01
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save erutuf/463543 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save erutuf/463543 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
fibs.hs
intFib :: [Int]
intFib = 1:1:zipWith (+) intFib (tail intFib)
fib :: [Integer]
fib = map fromIntegral intFib
main = print $ fib !! 1000000
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment