rxw1/wordfreq.hs

Created November 12, 2020 02:04

Star (0) You must be signed in to star a gist
Fork (0) You must be signed in to fork a gist

Select an option

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/rxw1/6c1ccb788331c8ca6ba7a92338afd692.js"></script>
Save rxw1/6c1ccb788331c8ca6ba7a92338afd692 to your computer and use it in GitHub Desktop.

Download ZIP

Revisions

rwilhelm created this gist Nov 12, 2020.

wordfreq.hs

-Original file line number
+Diff line change
@@ -0,0 +1,7 @@
+    import Data.List
+    import Data.Ord
+    main = interact $ (=<<) (\x -> show (length x) ++ " " ++ head x ++ "\n")
+                    . sortBy (flip $ comparing length)
+                    . group . sort
+                    . words