``` quicksort [] = [] quicksort (x:xs) = quicksort...

# random

[Dmitry Kandalov]

quicksort [] = []
quicksort (x:xs) = quicksort left ++ [x] ++ quicksort right
    where left  = [ y | y <- xs, y < x ]
          right = [ y | y <- xs, y > x ]