11 lines
218 B
Text
11 lines
218 B
Text
let fib_iter n =
|
|
if n < 2 then
|
|
n
|
|
else let fib_prev = ref 1
|
|
and fib = ref 1 in
|
|
for num = 2 to n - 1 do
|
|
let temp = !fib in
|
|
fib := !fib + !fib_prev;
|
|
fib_prev := temp
|
|
done;
|
|
!fib
|