Funzione per continuare a lanciare quando il point è stabilito
Scriviamo la funzione che gestisce tutti i lanci dopo che è stato stabilito un point. Ricorda: deve continuare a lanciare finché non esce di nuovo il point oppure un 7. Quando accade una di queste due cose, deve fermarsi e restituire se il risultato è una vittoria o una sconfitta.
Nota che all’interno di questa funzione useremo di nuovo la funzione roll_dice che abbiamo definito in precedenza.
Questo esercizio fa parte del corso
Rompicapi di probabilità in R
Istruzioni dell'esercizio
- Completa le condizioni nel ciclo while per continuare a lanciare finché non esce un 7 oppure il point.
- Completa la condizione per verificare se l’ultimo lancio porta a una vittoria.
Esercizio pratico interattivo
Prova a risolvere questo esercizio completando il codice di esempio.
roll_after_point <- function(point){
new_roll <- 0
# Roll until either a 7 or the point is rolled
while( ___ ){
new_roll <- roll_dice(2)
if(new_roll == 7){
won <- FALSE
}
# Check whether the new roll gives a win
if(___ == ___){
won <- TRUE
}
}
return(won)
}