フィボナッチ数

概要

OCamlでフィボナッチ数を計算する関数をつくってみました。

コード

# let rec fib n = if (n == 1) || (n == 2) then 1 else fib (n - 1) + fib (n - 2);;
val fib : int -> int = <fun>
# fib 1;;
- : int = 1
# fib 2;;
- : int = 1
# fib 3;;
- : int = 2
# fib 4;;
- : int = 3
# fib 5;;
- : int = 5
# fib 6;;
- : int = 8
# fib 7;;
- : int = 13