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-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