3 lines
127 B
Haskell
3 lines
127 B
Haskell
leo :: Integer -> Integer -> Integer -> [Integer]
|
|
leo l0 l1 d = s where
|
|
s = l0 : l1 : zipWith (\x y -> x + y + d) s (tail s)
|