Einer der kürzesten Sortieralgorithmen:

`

quicksort :: Ord a => [a] -> [a]
quicksort [] = []
quicksort (x:xs) =
	quicksort [y | y <- xs, y < x]
	++ [x]
	++ quicksort [y | y = x]

`

Informationen zu Laufzeit und Effizienz reiche ich nach.