mirror of
https://github.com/MartinThoma/LaTeX-examples.git
synced 2025-04-26 06:48:04 +02:00
3 lines
101 B
Haskell
3 lines
101 B
Haskell
qsort [] = []
|
|
qsort (p:ps) = (qsort (filter (<=p) ps))
|
|
++ p:(qsort (filter (> p) ps))
|