RosettaCodeData/Task/Fibonacci-sequence/Oz/fibonacci-sequence-3.oz
2026-04-30 12:34:36 -04:00

11 lines
129 B
Text

fun{Fib N}
fun{Loop N A B}
if N == 0 then
B
else
{Loop N-1 A+B A}
end
end
in
{Loop N 1 0}
end