-- Compute the number of possible answers which has
-- the same output answer in the specific guess.
sameOutputs :: [String] -> GameState -> [Int]
sameOutputs guess gs = map length $ group $ sort $ map (response guess . Set.toList) gs
sameOutputs :: [String] -> GameState -> [Int]
sameOutputs guess gs = map length $ group $ sort $ map (response guess . Set.toList) gs
sameOutputs guess gs = map length $ group $ sort $ map (response guess . Set.toList) gs