空ではないリストから最小の要素を１つだけ削除する ref: http://qiita.com/nobsun/items/49440368b85c36ec4d42

deleteMin.hs

deleteMin  ::  Ord a => [a] -> [a]
deleteMin xs@(x:_) = snd $ para f (x,[]) xs
  where
    f x (xs,(y,_)) 
      | x < y     = (x,xs)
      | otherwise = (y,x:xs)

para             ::  (a -> ([a],b) -> b) -> b -> [a] -> b
para _ z []      =   z
para f z (x:xs)  =   f x (xs, para f z xs)

file0.txt

deleteMin     ::  Ord a => [a] -> [a]
deleteMin xs  =   case break (== minimum xs) xs of
                    (ys,_:zs) -> ys++zs

file1.txt

deleteMin  ::  Ord a => [a] -> [a]
deleteMin  =   uncurry (++) . second tail . flip break <*> ((==) . minimum)

file2.txt

deleteMin  ::  Ord a => [a] -> [a]
deleteMin  =   snd . rec
  where
    rec [x] = (x,[])
    rec (x:xs@(_:_))
      | x <= y     = (x,xs)
      | otherwise  = (y,x:ys)
      where
        (y,ys) = rec xs

file4.txt

deleteMin :: Ord a => [a] -> [a]
deleteMin = snd . (flip (para f) <*> (,[]) . head)
  where
    f x (xs,(y,ys)) 
      | x <= y     = (x,xs)
      | otherwise  = (y,x:ys)