sort.hs

mysort :: [Int] -> [Int]

mysort list = case list of 
    [] -> []
    first : rest -> insert (mysort rest) first
        where insert lst n = case lst of 
                [] -> [n]
                first : rest 
                    | first < n -> first : insert rest n
                    | otherwise -> n : lst

test1 = mysort [5, 3, 8, 1, 7, 4] == [1, 3, 4, 5, 7, 8]
test2 = mysort [8] == [8]