diff options
Diffstat (limited to 'sort/gnomesort.hs')
| -rw-r--r-- | sort/gnomesort.hs | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/sort/gnomesort.hs b/sort/gnomesort.hs deleted file mode 100644 index 2a9b9ce..0000000 --- a/sort/gnomesort.hs +++ /dev/null @@ -1,19 +0,0 @@ - - - -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' - - |