差分
ナビゲーションに移動
検索に移動
let rec fib x =
match x with
| x when x <= 0 0I -> 00I | 1 1I -> 11I | 2 2I -> 11I | x -> fib (x - 11I) + fib (x - 22I)
[0 0I .. 1615I] |> Seq.iter (fun x -> printfn "fib(%O) = %O" x (fib x));;</source> == 記述例2 ==<source lang="fsharp">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));;
</source>
