quicksort en 4 lineas

wtf [] = []
wtf (x:xs) = wtf a ++ [x] ++ wtf y
    where
        a = fst b
        y = snd b
        b = partition (<x) (xs)