Mercurial > repo

view test.hs @ 3070:ce0d90b9673d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<oerjan> learn Taneb is not elliott, no matter who you ask. He also isn\'t a rabbi although he has pretended in the past. He has at least two backup keyboards. (see also: d-modules)
author HackBot
date Fri, 07 Jun 2013 16:12:09 +0000
parents 831ffc1f8007
children
line wrap: on
line source

import Data.Maybe (catMaybes)
import Data.List (group, sort, stripPrefix)
main = mapM_ putStrLn . map (\s -> head s ++ " occurs->" ++ show (length s)) . group . sort . catMaybes . map (stripPrefix "username:" . (!!2) . words) . lines =<< getContents