6 lines
140 B
Haskell
6 lines
140 B
Haskell
|
sort :: (Ord a) => [a] -> [a]
|
||
|
sort [] = []
|
||
|
sort (x:xs) = sort (filter (<x) xs) ++
|
||
|
[x] ++
|
||
|
sort (filter (>=x) xs)
|