「フィボナッチ数/F Sharp」を編集中
ナビゲーションに移動
検索に移動
この編集を取り消せます。 下記の差分を確認して、本当に取り消していいか検証してください。よろしければ変更を保存して取り消しを完了してください。
最新版 | 編集中の文章 | ||
4行目: | 4行目: | ||
<source lang="fsharp"> | <source lang="fsharp"> | ||
let rec fib x = | let rec fib x = | ||
− | + | match x with | |
− | + | | x when x <= 0 -> failwith "1以上の整数が必要です" | |
− | + | | 1 -> 1 | |
− | + | | 2 -> 1 | |
− | + | | x -> fib (x - 1) + fib (x - 2) | |
− | + | ||
− | + | printfn "%d" (fib 15) | |
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
</source> | </source> | ||