「フィボナッチ数/F Sharp」を編集中

[[F Sharp|F#]]による[[フィボナッチ数]]の記述例。

== 記述例 1 ==
<source lang="fsharp">
let rec fib x =
    match x with
    | x when x <= 0I -> 0I
    | 1I -> 1I
    | 2I -> 1I
    | x -> fib (x - 1I) + fib (x - 2I)
 
[0I .. 15I] |> 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>

== 関連項目 ==
* [[F Sharp|F#]]
* [[フィボナッチ数]]

== 参考文献 ==
<references/>

== 外部リンク ==

{{stub}}