LaTeX-examples/documents/Programmierparadigmen/scripts/haskell/qsort.hs

qsort []     = []
qsort (p:ps) = (qsort (filter (\x -> x<=p) ps)) 
          ++ p:(qsort (filter (\x -> x> p) ps))