Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 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