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