RosettaCodeData/Task/Fibonacci-sequence/MLite/fibonacci-sequence.mlite
2023-07-01 13:44:08 -04:00

4 lines
102 B
Text

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