「フィボナッチ数/F Sharp」の版間の差分
< フィボナッチ数
ナビゲーションに移動
検索に移動
imported>Administrator (ページの作成:「F#によるフィボナッチ数の記述例。 == 記述例 1 == <source lang="fsharp"> let rec fib x = match x with | x when x <= 0 -> failwith...」) |
imported>Administrator 細 (→記述例 1) |
||
4行目: | 4行目: | ||
<source lang="fsharp"> | <source lang="fsharp"> | ||
let rec fib x = | let rec fib x = | ||
− | + | match x with | |
− | + | | x when x <= 0 -> 0 | |
− | + | | 1 -> 1 | |
− | + | | 2 -> 1 | |
− | + | | x -> fib (x - 1) + fib (x - 2) | |
− | + | ||
− | printfn "% | + | [0 .. 16] |> Seq.iter (fun x -> printfn "fib(%O) = %O" x (fib x));; |
</source> | </source> | ||