Quicksort

Aus Infostudium Wiki

qsort [] = []
qsort (x:xs) = qsort [b | b <- xs, b <= x]
               ++ [x]
               ++ qsort [b | b <- xs, b > x]