RosettaCodeData/Task/Fibonacci-sequence/Idris/fibonacci-sequence-4.idris
2016-12-05 23:44:36 +01:00

5 lines
154 B
Text

fibLazy : Lazy (List Nat)
fibLazy = 0 :: 1 :: zipWith (+) fibLazy (
case fibLazy of
(x::xs) => xs
[] => [])