4 ms·
Also the two-line "quicksort": qsort [] = [] qsort pivot : xs = qsort [x <- xs, x < pivot] : pivot : qsort [x <- xs, x >= pivot]
by Sharlin 2y ago
Also the two-line "quicksort":
qsort [] = []
qsort pivot : xs = qsort [x <- xs, x < pivot] : pivot : qsort [x <- xs, x >= pivot]