RosettaCodeData/Task/Fibonacci-sequence/Haskell/fibonacci-sequence-11.hs
2018-06-22 20:57:24 +00:00

1 line
64 B
Haskell

fib = 0 : 1 : next fib where next (a: t@(b:_)) = (a+b) : next t