Mercurial > repo

diff test.hs.1 @ 3017:2c57049fedee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<oerjan> fetch http://oerjan.nvg.org/test.hs
author HackBot
date Sat, 01 Jun 2013 19:30:46 +0000
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test.hs.1	Sat Jun 01 19:30:46 2013 +0000
@@ -0,0 +1,2 @@
+import Data.List (sort, stripPrefix)
+main = mapM_ putStrLn . map (\s -> head s ++ " occurs->" ++ show (length s)) . group . sort . catMaybes . map (stripPrefix "username:" . (!!2) . words) . lines =<< getContents