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