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'