1 files changed, 22 insertions, 0 deletions
diff --git a/sort/gnome.hs b/sort/gnome.hs
new file mode 100644
index 0000000..e43b05a
--- /dev/null
+++ b/sort/gnome.hs
@@ -0,0 +1,22 @@
+module Gnome (
+    gnomeSort
+    ) where
+
+
+
+gnomeSort :: Ord a => [a] -> [a]
+gnomeSort list = doGnomeSort list 1
+
+
+
+doGnomeSort :: Ord a => [a] -> Int -> [a]
+doGnomeSort list pos | pos >= length list = list
+doGnomeSort list pos =
+    if (list !! pos) >= (list !! (pos - 1))
+        then doGnomeSort list (pos + 1)
+        else let list' = (take (pos - 1) list) ++ [list !! pos] ++
+                         [list !! (pos - 1)] ++ (drop (pos + 1) list)
+                 pos' = if pos > 1 then pos - 1 else pos
+             in doGnomeSort list' pos'
+
+