mirror of
https://github.com/MartinThoma/LaTeX-examples.git
synced 2025-04-25 22:38:04 +02:00
3 lines
115 B
Haskell
3 lines
115 B
Haskell
qsort [] = []
|
|
qsort (p:ps) = (qsort (filter (\x -> x<=p) ps))
|
|
++ p:(qsort (filter (\x -> x> p) ps))
|