blob: aa45aa14e539d38afcdb974fb436d5d3a7453ec0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
module QSort where
qsort [] = []
qsort (a:as) = (qsort left) ++ [a] ++ (qsort right)
where (left,right) = (filter (<=a) as, filter (>a) as)
run = qsort [8, 4, 0, 3, 1, 23, 11, 18]
-- > run
-- [0,1,3,4,8,11,18,23]
|