haskell快排Feb 17, 2014qsort [] = []qsort (p : xs) = qsort [x | x < - xs, x < p] ++ [p] ++ qsort [x | x = p]