hasNAlike :: Int -> [Int] -> Bool
hasNAlike n = any (>=n) . map length . group . sort
hasNAlike :: Int -> [Int] -> Bool
hasNAlike n = any (>=n) . map length . group . sort
hasNAlike n = any (>=n) . map length . group . sort