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

6 lines
154 B
Text
Raw Permalink Normal View History

2016-12-05 23:44:36 +01:00
fibLazy : Lazy (List Nat)
fibLazy = 0 :: 1 :: zipWith (+) fibLazy (
case fibLazy of
(x::xs) => xs
[] => [])