parseStats.hs

   1
   2 import qualified Data.Map as M
   3 import Data.Ord
   4 import Data.List
   5
   6 stat = unlines . map (\(p,s) -> p ++ " " ++ show s) . sortBy (comparing snd) . M.toList .
   7        foldr (uncurry (M.insertWith (+)) ) M.empty . concat
   8
   9 main = interact (stat . (read :: String -> [[(String, Int)]] ))
  10