CoCalc -- qsort.hs

📚 The CoCalc Library - books, templates and other resources

¹³²⁹⁴⁴ views
License: OTHER

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

5