「フィボナッチ数/F Sharp」の版間の差分

提供: MonoBook
ナビゲーションに移動 検索に移動
imported>Administrator
(ページの作成：「F#によるフィボナッチ数の記述例。 == 記述例 1 == <source lang="fsharp"> let rec fib x = match x with | x when x <= 0 -> failwith...」)
 
imported>Administrator
4行目: 4行目:
 
<source lang="fsharp">
 
<source lang="fsharp">
 
let rec fib x =
 
let rec fib x =
−
  match x with
+
    match x with
−
  | x when x <= 0 -> failwith "1以上の整数が必要です"
+
    | x when x <= 0 -> 0
−
  | 1 -> 1
+
    | 1 -> 1
−
  | 2 -> 1
+
    | 2 -> 1
−
  | x -> fib (x - 1) + fib (x - 2)
+
    | x -> fib (x - 1) + fib (x - 2)
−
   
+
−
printfn "%d" (fib 15)
+
[0 .. 16] |> Seq.iter (fun x -> printfn "fib(%O) = %O" x (fib x));;
 
</source>
 
</source>
  

2012年4月26日 (木) 14:16時点における版

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));;

関連項目

参考文献


外部リンク

執筆の途中です この項目「フィボナッチ数/F Sharp」は、まだ書きかけの項目です。加筆、訂正などをして下さる協力者を求めています。
このテンプレートは分野別のスタブテンプレート（Monobook:スタブカテゴリ参照）に変更することが望まれています。
「https://monobook.org/w/index.php?title=フィボナッチ数/F_Sharp&oldid=1801」から取得