Mercurial > repo
view test.hs @ 3016:c97aaefa412b
<oerjan> fetch http://oerjan.nvg.org/test.hs
author | HackBot |
---|---|
date | Sat, 01 Jun 2013 19:29:25 +0000 |
parents | |
children | fbba3aa90a16 |
line wrap: on
line source
import Data.List (sort) main = mapM_ putStrLn . map (\s -> head s ++ " occurs->" ++ show (length s)) . group . sort . catMaybes . map (stripPrefix "username:" . (!!2) . words) . lines =<< getContents