# HG changeset patch # User HackBot # Date 1370115065 0 # Node ID fbba3aa90a1688c3ed624def9f1f72d8c2ba6a5f # Parent 2c57049fedee344d6f5a1c07f7f6790e034a1d07 mv test.hs{.1,} diff -r 2c57049fedee -r fbba3aa90a16 test.hs --- a/test.hs Sat Jun 01 19:30:46 2013 +0000 +++ b/test.hs Sat Jun 01 19:31:05 2013 +0000 @@ -1,2 +1,2 @@ -import Data.List (sort) +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 diff -r 2c57049fedee -r fbba3aa90a16 test.hs.1 --- a/test.hs.1 Sat Jun 01 19:30:46 2013 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,2 +0,0 @@ -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