「フィボナッチ数/F Sharp」を編集中
ナビゲーションに移動
検索に移動
この編集を取り消せます。 下記の差分を確認して、本当に取り消していいか検証してください。よろしければ変更を保存して取り消しを完了してください。
最新版 | 編集中の文章 | ||
5行目: | 5行目: | ||
let rec fib x = | let rec fib x = | ||
match x with | match x with | ||
− | | x when x <= | + | | x when x <= 0 -> 0 |
− | | | + | | 1 -> 1 |
− | | | + | | 2 -> 1 |
− | | x -> fib (x - | + | | x -> fib (x - 1) + fib (x - 2) |
− | [ | + | [0 .. 16] |> Seq.iter (fun x -> printfn "fib(%O) = %O" x (fib x));; |
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
</source> | </source> | ||