差分

ナビゲーションに移動 検索に移動

フィボナッチ数/F Sharp

7 バイト追加, 2012年4月26日 (木) 14:16
<source lang="fsharp">
let rec fib x =
match x with | x when x <= 0 -> failwith "1以上の整数が必要です"0 | 1 -> 1 | 2 -> 1 | x -> fib (x - 1) + fib (x - 2) [0 .. 16] |> Seq.iter (fun x -> printfn "fib(%O) = %dO" x (fib 15x));;
</source>
匿名利用者

案内メニュー