simple stats reader

diff --git a/parseStats.hs b/parseStats.hs
new file mode 100644 (file)
index 0000000..d4c1c06
--- /dev/null
+++ b/parseStats.hs
@@ -0,0 +1,10 @@
+
+import qualified Data.Map as M
+import Data.Ord
+import Data.List
+
+stat = unlines . map (\(p,s) -> p ++ " " ++ show s) . sortBy (comparing snd) . M.toList .
+       foldr (uncurry (M.insertWith (+)) ) M.empty . concat
+
+main = interact (stat . (read :: String -> [[(String, Int)]] ))
+