2 lines
60 B
Text
2 lines
60 B
Text
fib = fib' 1 1
|
|
where fib' x y = & x :: fib' y (x + y)
|
fib = fib' 1 1
|
|
where fib' x y = & x :: fib' y (x + y)
|