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-Gnome-sort/Haskell/sorting-algorithms-gnome-sort.hs
+++ b/Task/Sorting-algorithms-Gnome-sort/Haskell/sorting-algorithms-gnome-sort.hs
@ -0,0 +1,9 @@
+gnomeSort [] = []
+gnomeSort (x:xs) = gs [x] xs
+    where
+	gs vv@(v:vs) (w:ws)
+		| v<=w = gs (w:vv) ws
+		| otherwise = gs vs (w:v:ws)
+	gs [] (y:ys) = gs [y] ys
+	gs xs [] = reverse xs
+-- keeping the first argument of gs in reverse order avoids the deterioration into cubic behaviour