module Quick where

qsort :: Ord a => [a] -> [a]
qsort [] = []
qsort (x:xs) = less ++ x:more
  where less = qsort $ filter (< x) xs
        more = qsort $ filter (>= x) xs