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-Insertion-sort/MLite/sorting-algorithms-insertion-sort.mlite
+++ b/Task/Sorting-algorithms-Insertion-sort/MLite/sorting-algorithms-insertion-sort.mlite
@ -0,0 +1,14 @@
+fun insertion_sort L =
+	let
+		fun insert
+				(x,[]) = [x]
+			|	(x, y :: ys) =
+					if x <= y then
+						x :: y :: ys
+					else
+						y :: insert (x, ys)
+	in
+		foldr (insert,[]) L
+	end;
+
+println ` insertion_sort [6,8,5,9,3,2,1,4,7];