diff --git a/src/Jotto.hs b/src/Jotto.hs index 994ba40..ee5ef85 100644 --- a/src/Jotto.hs +++ b/src/Jotto.hs @@ -150,9 +150,7 @@ wordsLeft = classMapWordCount . possibleWords worstCase :: Class -> M.Map Class Int -> Int worstCase c cmap = let solutions = M.mapKeysWith (+) (score c) cmap - zeroes = M.fromList $ zip [1..S.size c] (repeat 0) - solutionsWithZeroes = M.union solutions zeroes - maxHitCount = maximum solutionsWithZeroes + maxHitCount = maximum solutions minEliminated = M.size cmap - maxHitCount in minEliminated