Funktion för att fortsätta kasta tärning när poänget är fastställt
Nu kodar vi funktionen som hanterar alla tärningskast efter att ett poäng har fastställts. Kom ihåg att den ska fortsätta kasta tills antingen poänget kastas igen eller en 7 kastas. När något av dessa inträffar ska den stanna och rapportera om resultatet är en vinst eller en förlust.
Observera att vi inom den här funktionen återigen använder funktionen roll_dice som vi definierade tidigare.
Den här övningen är en del av kursen
Sannolikhetspussel i R
Övningsinstruktioner
- Fyll i villkoren i while-loopen så att tärningen kastas tills antingen en 7 eller poänget dyker upp.
- Fyll i villkoret för att kontrollera om det senaste kastet resulterar i en vinst.
Interaktiv övning med praktiskt arbete
Testa den här övningen genom att slutföra den här exempelkoden.
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)
}