Document everything exported
[darcs-mirror-haskell-partty.git] / 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