Skip to content

Instantly share code, notes, and snippets.

@pmiddend

pmiddend/FrequentWords.hs

Created January 26, 2016 17:08
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save pmiddend/66e680e86ae96ef6c2a7 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save pmiddend/66e680e86ae96ef6c2a7 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
FrequentWords.hs
case zip kms (patternCount input <$> kms) of
[] -> []
xs ->
let m = maximum (snd <$> xs)
in nub . map fst . filter ((==m) . snd) $ xs
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment