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