Garmelon/jotto-solver
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix worst-case score calculation

Browse source
This commit is contained in:
Joscha 2018-09-20 18:13:08 +00:00
parent f50a25ea3b
commit a18cd5ef8d
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/Jotto.hs
View file

@ -151,7 +151,7 @@ worstCase :: Class -> M.Map Class Int -> Int
worstCase c cmap = worstCase c cmap =
let solutions = M.mapKeysWith (+) (score c) cmap let solutions = M.mapKeysWith (+) (score c) cmap
maxHitCount = maximum solutions maxHitCount = maximum solutions
minEliminated = M.size cmap - maxHitCount minEliminated = sum cmap - maxHitCount
in minEliminated in minEliminated
nextGuesses :: GuessState -> [(Int, [String])] nextGuesses :: GuessState -> [(Int, [String])]