2020-02-17 23:21:07 -08:00
|
|
|
let rec fib_rec n =
|
|
|
|
|
if n < 2 then
|
|
|
|
|
n
|
|
|
|
|
else
|
|
|
|
|
fib_rec (n - 1) + fib_rec (n - 2)
|
2015-11-18 06:14:39 +00:00
|
|
|
|
2020-02-17 23:21:07 -08:00
|
|
|
let rec fib = function
|
|
|
|
|
0 -> 0
|
|
|
|
|
| 1 -> 1
|
|
|
|
|
| n -> if n > 0 then fib (n-1) + fib (n-2)
|
|
|
|
|
else fib (n+2) - fib (n+1)
|
