「フィボナッチ数/F Sharp」の版間の差分
imported>Administrator |
imported>Administrator 細 →記述例2 |
||
| 16行目: | 16行目: | ||
<source lang="fsharp"> | <source lang="fsharp"> | ||
let fib x = | let fib x = | ||
let rec loop acc1 acc2 = function | 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) | ||