simple stats reader
authorJoachim Breitner <mail@joachim-breitner.de>
Sun, 6 Jul 2008 01:06:45 +0000 (01:06 +0000)
committerJoachim Breitner <mail@joachim-breitner.de>
Sun, 6 Jul 2008 01:06:45 +0000 (01:06 +0000)
parseStats.hs [new file with mode: 0644]

diff --git a/parseStats.hs b/parseStats.hs
new file mode 100644 (file)
index 0000000..d4c1c06
--- /dev/null
@@ -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)]] ))
+