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