Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
9 lines (5 sloc) 197 Bytes
fibs :: [Int]
fibs = 0 : 1 : [ a + b | (a, b) <- zip fibs (tail fibs)]
fib :: [Int]
fib = 0 : 1 : zipWith (+) fib (tail fib)
fibs2 = 0 : 1 : (map (\x -> fst x + snd x) (zip fibs2 (tail fibs2)))