插入排序haskell

以下是插入排序的Haskell代码实现：

insert :: Int -> [Int] -> [Int]
insert x [] = [x]
insert x (y:ys)
    | x < y = x:y:ys
    | otherwise = y : insert x ys

insertSort :: [Int] -> [Int]
insertSort [] = []
insertSort (x:xs) = insert x (insertSort xs)

在这个实现中，`insert`函数将一个元素插入到已排序的列表中，并返回一个新的已排序的列表。`insertSort`函数递归地将每个元素插入到已排序的列表中，最终返回一个完全排序的列表。