RosettaCodeData/Task/Fibonacci-sequence/Ela/fibonacci-sequence-2.ela

3 lines
60 B
Plaintext

fib = fib' 1 1
where fib' x y = & x :: fib' y (x + y)