dabd/gist:c59477e4dfb3e0193305

Last active August 29, 2015 14:03

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/dabd/c59477e4dfb3e0193305.js"></script>
Save dabd/c59477e4dfb3e0193305 to your computer and use it in GitHub Desktop.

Download ZIP

Raw

gistfile1.hs

	frequencies :: [Integer] -> [(Integer, Int)]
	frequencies xs = map (\x -> (head x, length x)) . group . sort $ xs

folsen commented Jun 30, 2014

frequencies :: [Integer] -> [(Integer, Int)]
frequencies xs = map f . group . sort $ xs
  where
    f [] = error "This will always be an uncaught exception, but can't happen because group always returns a non-empty list to map over"
    f xs = (head xs, length xs)

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment