Anonymous user
Fibonacci sequence: Difference between revisions
added ocaml
(added ocaml) |
|||
Line 325:
)
)
=={{header|OCaml}}==
===Iterative===
<ocaml>let fib_iter n =
if n <= 2 then
1
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</ocaml>
===Recursive===
<ocaml>let rec fib_rec n =
if n <= 2 then
1
else
fib_rec (n - 1) + fib_rec (n - 2)</ocaml>
=={{header|Oz}}==
|