Skip to content

Instantly share code, notes, and snippets.

@clausecker
Created August 10, 2010 02:43
Show Gist options
  • Save clausecker/516573 to your computer and use it in GitHub Desktop.
Save clausecker/516573 to your computer and use it in GitHub Desktop.
module Main where
main = print "Fibonaccis:\n" >> p
f@(_:x)=0:1:zipWith(+)f x
p=i 0 where
i 10=IO()
i n=print ((show (f!!n))++"\n")>>i (n+1)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment