フィボナッチ数/F Sharp

提供: MonoBook
< フィボナッチ数
2012年4月26日 (木) 14:16時点におけるimported>Administratorによる版 (→‎記述例 1)
ナビゲーションに移動 検索に移動

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

記述例 1

let rec fib x =
    match x with
    | x when x <= 0 -> 0
    | 1 -> 1
    | 2 -> 1
    | x -> fib (x - 1) + fib (x - 2)
 
[0 .. 16] |> Seq.iter (fun x -> printfn "fib(%O) = %O" x (fib x));;

関連項目

参考文献


外部リンク