9 lines
207 B
Text
9 lines
207 B
Text
(*
|
|
** This one is also referred to as being tail-recursive
|
|
*)
|
|
fun
|
|
fib_trec(n: int): int =
|
|
if
|
|
n > 0
|
|
then (fix loop (i:int, r0:int, r1:int): int => if i > 1 then loop (i-1, r1, r0+r1) else r1)(n, 0, 1)
|
|
else 0
|