メインメニューを開く

差分

フィボナッチ数/F Sharp

9 バイト追加, 2012年4月26日 (木) 14:26
<source lang="fsharp">
let fib x =
let rec loop acc1 acc2 = function
| x when x <= 0I -> acc1
| x -> loop acc2 (acc1 + acc2) (x - 1I)
匿名利用者