let rec fib x =
match x with
| x when x <= 0 -> failwith "1以上の整数が必要です"
| 1 -> 1
| 2 -> 1
| x -> fib (x - 1) + fib (x - 2)
printfn "%d" (fib 15)
この項目「フィボナッチ数/F Sharp」は、まだ書きかけの項目です。加筆、訂正などをして下さる協力者を求めています。 | |
このテンプレートは分野別のスタブテンプレート(Monobook:スタブカテゴリ参照)に変更することが望まれています。 |