all tasks

2013-04-11 01:07:29 -07:00 · 2013-04-11 01:07:29 -07:00 · 68f8f3e56b
commit 68f8f3e56b
parent b83f433714
14735 changed files with 178959 additions and 0 deletions
--- a/Task/Sorting-algorithms-Selection-sort/OCaml/sorting-algorithms-selection-sort.ocaml
+++ b/Task/Sorting-algorithms-Selection-sort/OCaml/sorting-algorithms-selection-sort.ocaml
@ -0,0 +1,9 @@
+let rec selection_sort = function
+    [] -> []
+  | first::lst ->
+      let rec select_r small output = function
+          [] -> small :: selection_sort output
+        | x::xs when x < small -> select_r x (small::output) xs
+        | x::xs                -> select_r small (x::output) xs
+      in
+      select_r first [] lst