フィボナッチ数/F Sharp - 版の履歴

imported>Administrator: /* 記述例2 */

2012-04-26T14:26:29Z

記述例2

← 古い版		2012年4月26日 (木) 14:26時点における版
16行目:		16行目:
	<source lang="fsharp">		<source lang="fsharp">
	let fib x =		let fib x =
	let rec loop acc1 acc2 = function		let rec loop acc1 acc2 =
			function
	\| x when x <= 0I -> acc1		\| x when x <= 0I -> acc1
	\| x -> loop acc2 (acc1 + acc2) (x - 1I)		\| x -> loop acc2 (acc1 + acc2) (x - 1I)

imported>Administrator: /* 記述例 1 */

2012-04-26T14:24:28Z

記述例 1

← 古い版		2012年4月26日 (木) 14:24時点における版
5行目:		5行目:
	let rec fib x =		let rec fib x =
	match x with		match x with
	\| x when x <= 0 -> 0		\| x when x <= 0I -> 0I
	\| 1 -> 1		\| 1I -> 1I
	\| 2 -> 1		\| 2I -> 1I
	\| x -> fib (x - 1) + fib (x - 2)		\| x -> fib (x - 1I) + fib (x - 2I)

	[0 .. 16] \|> Seq.iter (fun x -> printfn "fib(%O) = %O" x (fib x));;		[0I .. 15I] \|> Seq.iter (fun x -> printfn "fib(%O) = %O" x (fib x));;
			</source>

			== 記述例2 ==
			<source lang="fsharp">
			let fib x =
			let rec loop acc1 acc2 = function
			\| x when x <= 0I -> acc1
			\| x -> loop acc2 (acc1 + acc2) (x - 1I)
			loop 0I 1I x

			[0I .. 15I] \|> Seq.iter (fun x -> printfn "fib(%O) = %O" x (fib x));;
	</source>		</source>

imported>Administrator: /* 記述例 1 */

2012-04-26T14:16:27Z

記述例 1

← 古い版		2012年4月26日 (木) 14:16時点における版
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>

imported>Administrator: ページの作成：「F#によるフィボナッチ数の記述例。 == 記述例 1 == let rec fib x = match x with | x when x <= 0 -> failwith...」

2012-04-26T10:55:19Z

ページの作成：「F#によるフィボナッチ数の記述例。 == 記述例 1 == <source lang="fsharp"> let rec fib x = match x with | x when x <= 0 -> failwith...」

新規ページ

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

== 記述例 1 ==
<source lang="fsharp">
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>

== 関連項目 ==
* [[F Sharp|F#]]
* [[フィボナッチ数]]

== 参考文献 ==
<references/>

== 外部リンク ==

{{stub}}