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

Change w output when only one class is possible

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

17
app/Main.hs
View file

@ -97,10 +97,19 @@ cmdStats = do
cmdWhat :: Console ()
cmdWhat = do
g <- lift get
let next = nextGuesses g
showWords = intercalate ", "
showNextGuess (score, w) = numberjust (show score) ++ ": " ++ showWords w
mapM_ (H.outputStrLn . showNextGuess) next
let showWords = intercalate ", "
case possible g of
[ws] -> do
let guesswords = map (\(Guess w _) -> w) $ filter (\(Guess w n) -> n == length w) $ guesses g
possibleWords = ws \\ guesswords
H.outputStrLn "The word is one of the following words:"
H.outputStrLn $ " " ++ showWords possibleWords
H.outputStrLn "These words were already guessed:"
H.outputStrLn $ " " ++ showWords guesswords
_ -> do
let next = nextGuesses g
showNextGuess (score, w) = numberjust (show score) ++ ": " ++ showWords w
mapM_ (H.outputStrLn . showNextGuess) next
H.outputStrLn ""
loop :: Console ()