I am learning haskell and the function definition I see is:
quickSort (x : xs) = (quickSort less) ++ (x : equal) ++ (quickSort more) where
It does not seem to improve anything but:
qs (x:xs) = let (a,b) = partition (< x) xs in (qs a) ++ [x] ++ (qs b)