QuickSort in 61 characters:
quicksort = # & @@@ {# //. x : {__} :> (## & @@ Reverse /@ GatherBy[x, (# < x[[1]] &)])} &