Functie om door te blijven gooien als het punt is vastgesteld
Laten we de functie schrijven die alle worpen afhandelt nadat een punt is vastgesteld. Dit betekent dat hij moet blijven gooien totdat het punt opnieuw wordt gegooid, of er een 7 valt. Zodra een van beide gebeurt, moet hij stoppen en teruggeven of het resultaat een winst of een verlies is.
Let op: binnen deze functie gebruiken we opnieuw de eerder gedefinieerde functie roll_dice.
Deze oefening maakt deel uit van de cursus
Kanspuzzels in R
Oefeninstructies
- Vul de voorwaarden in de while-lus in om door te blijven gooien totdat óf een 7 óf het punt wordt gegooid.
- Vul de voorwaarde in om te controleren of de meest recente worp tot winst leidt.
Praktische interactieve oefening
Probeer deze oefening eens door deze voorbeeldcode in te vullen.
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)
}