Bulls and cows/Player: Difference between revisions

repeat

{

cat("Possibilities remaining:", remainingCasesCount)#Not required, but excellent when debugging.

guess <- validGuesses[sample(remainingCasesCount, 1), ]

if(bulls == 4) return(paste0("Your number is ", guessAsOneNumber, ". I win!"))

cows <- as.integer(readline("Cow score? [0-4] "))

#If our guess scores y bulls, then only numbers containing exactly y digits with the same value and position (y "pseudoBulls") as in our guess can be correct.

#Accounting for the positions of cows not being fixed, the same argument also applies for them.

#We also use pseudoBulls != 4 to remove our most recent guess, because we know that it cannot be correct.

#Finally, the drop=FALSE flag is needed to stop R converting validGuesses to a vector when there is only one guess left.

isGuessValid <- function(x) pseudoBulls(x) == bulls && sum(x %in% guess) - pseudoBulls(x) == cows && pseudoBulls(x) != 4

validGuesses <- validGuesses[apply(validGuesses, 1, isGuessValid), , drop = FALSE]

}

}