>>258
Haskell

main = concat $ map qsort grop

grop = map filterlen [1..(maximum $ map length input)]

filterlen n = filter (\x -> n == length x) input

qsort [] = []
qsort (x:xs) = small ++ [x] ++ big
where small = qsort [a |a <- xs, a <= x]
big = qsort [a | a <- xs, a > x]

input = ["a130","a12","a001","a01","a1","1"]