extract minimum from the list in O(N)

extractMinBy.hs

extractMinBy :: (a -> a -> Ordering) -> [a] -> (a, [a])
extractMinBy f (x:xs) = extractMinBy' f [x] xs (x, xs)

extractMinBy' :: (a -> a -> Ordering) -> [a] -> [a] -> (a, [a]) -> (a, [a])
extractMinBy' f left [] r = r
extractMinBy' f left (r:right) z@(x, xs) = extractMinBy' f (left ++ [r]) right newResult
  where newResult = if f r x == LT then (r, left ++ right) else z