quicksort [] = [] quicksort (x:rest) = quicksort [y | y <- rest, y <= x] ++ [x] ++ quicksort [y | y <- rest, y > x]
0: http://stackoverflow.com/q/7717691/1235548
0: http://stackoverflow.com/q/7717691/1235548