16/03/03 23:17:39.49 fGqRJK5H.net
>>342
haskell
import Data.List (sortBy)
main = do
putStrLn $ s "Hello World"
print $ s [3,1,4,1,5,9,2,6,5,3,5,8,9,7,9,3,2,3,8,4,6]
s xs=concat.sortBy(\x y -> compare (length y) (length x))$gs xs
gs :: Eq a => [a] -> [[a]]
gs[]=[]
gs (x:xs)=(x:a) : gs b
where (a,b)=(filter(== x)xs,filter(/= x)xs)