Skip to content

Instantly share code, notes, and snippets.

@haplesshero13

haplesshero13/mostCommon.hs

Created March 18, 2015 04:55
Show Gist options
  • Save haplesshero13/94eac8d09d712b01b928 to your computer and use it in GitHub Desktop.
Save haplesshero13/94eac8d09d712b01b928 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
mostCommon.hs
import Data.List
import Data.Function
mostCommon :: Ord a => [a] -> a
mostCommon = head . maximumBy (compare `on` length) . group . sort
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment