RosettaCodeData/Task/Fibonacci-sequence/Idris/fibonacci-sequence-4.idris

6 lines
154 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
fibLazy : Lazy (List Nat)
fibLazy = 0 :: 1 :: zipWith (+) fibLazy (
case fibLazy of
(x::xs) => xs
[] => [])