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/Standard-ML/sorting-algorithms-selection-sort.ml
+++ b/Task/Sorting-algorithms-Selection-sort/Standard-ML/sorting-algorithms-selection-sort.ml
@ -0,0 +1,13 @@
+fun selection_sort [] = []
+  | selection_sort (first::lst) =
+    let
+      val (small, output) = foldl
+        (fn (x, (small, output)) =>
+            if x < small then
+              (x, small::output)
+            else
+              (small, x::output)
+        ) (first, []) lst
+    in
+      small :: selection_sort output
+    end