mirror of
https://github.com/ilyakooo0/Idris-dev.git
synced 2024-09-21 22:17:19 +03:00
1275b9e8cc
Try `qsort [3,3]`. Under the old code, you'd get `[3,3,3]` out.
8 lines
220 B
Idris
8 lines
220 B
Idris
module smaller
|
|
|
|
total
|
|
qsort : Ord a => List a -> List a
|
|
qsort [] = []
|
|
qsort (x :: xs) = qsort (assert_smaller (x :: xs) (filter (< x) xs)) ++
|
|
(x :: qsort (assert_smaller (x :: xs) (filter (>= x) xs)))
|