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

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