「フィボナッチ数/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> | ||