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/F-Sharp/sorting-algorithms-selection-sort.fs
+++ b/Task/Sorting-algorithms-Selection-sort/F-Sharp/sorting-algorithms-selection-sort.fs
@ -0,0 +1,9 @@
+let rec ssort = function
+    [] -> []
+    | x::xs ->
+        let min, rest =
+            List.fold (fun (min,acc) x ->
+                             if h<min then (h, min::acc)
+                             else (min, h::acc))
+              (x, []) xs
+        in min::ssort rest