RosettaCodeData/Task/Fibonacci-sequence/Idris/fibonacci-sequence-4.idris
2023-07-01 13:44:08 -04:00

5 lines
154 B
Text

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