男装の麗人

A.hs

import Data.Char
import Data.List
import Data.Function
import Data.Monoid

comp::String->String->Ordering
comp (as@(a:ax)) (bs@(b:bx))
     | isNumber a && isNumber b =
          ncomp as bs <> (comp `on` dropWhile isNumber) as bs
     | otherwise = compare a b <> comp ax bx
  where
     ncomp = compare `on` ((read::String->Int) . takeWhile isNumber)
comp (_:_) [] = GT
comp [] (_:_) = LT
comp [] [] = EQ

fnsort::[String]->[String]
fnsort = sortBy comp