RosettaCodeData/Task/Fibonacci-sequence/MLite/fibonacci-sequence.mlite

5 lines
102 B
Plaintext

fun fib
(0, x1, x2) = x2
| (n, x1, x2) = fib (n-1, x2, x1+x2)
| n = fib (n, 0, 1)