Sort the letters of string in alphabetical order: Difference between revisions

m
m (→‎case insensitive: use internal sort)
Line 131:
qSort :: (Ord a) => [a] -> [a]
qSort [] = []
qSort (x : xs) = before <> [(x] <> :after)
where
before = qSort [c | c <- xs, c <= x]
after = qSort [c | c <- xs, c > x]</lang>
</lang>
{{Out}}
<pre>" ?Iaaaaaaaabbcceeefghhhiiiiiijkllllllmnoopppsssssttt"</pre>
9,659

edits