Skip to content

Instantly share code, notes, and snippets.

@pmiddend
Created January 26, 2016 17:08
Show Gist options
  • Select an option

  • Save pmiddend/66e680e86ae96ef6c2a7 to your computer and use it in GitHub Desktop.

Select an option

Save pmiddend/66e680e86ae96ef6c2a7 to your computer and use it in GitHub Desktop.
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