RosettaCodeData/Task/Fibonacci-sequence/Haskell/fibonacci-sequence-12.hs
2023-07-01 13:44:08 -04:00

1 line
64 B
Haskell

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