smallgeek · August 26, 2012 08:04
diff --git a/NaturalSpec_Tutorial_6_3.fs b/NaturalSpec_Tutorial_6_3.fs
 /// クイックソートの単純な実装 – 真似しないように
 let rec quicksort = function
  | [] -> []
  | pivot :: rest ->
     let small,big = List.partition ((>) pivot) rest
     quicksort small @ [pivot] @ quicksort big

 let QuickSort x =
  printMethod ""
  quicksort x
	/// クイックソートの単純な実装 – 真似しないように
	let rec quicksort = function
	\| [] -> []
	\| pivot :: rest ->
	let small,big = List.partition ((>) pivot) rest
	quicksort small @ [pivot] @ quicksort big

	let QuickSort x =
	printMethod ""
	quicksort x
No results found