Fonction pour continuer à lancer une fois le point établi
Codons la fonction qui gérera tous les lancers après qu’un point a été établi. Rappelez-vous qu’elle doit continuer à lancer jusqu’à ce que le point soit à nouveau obtenu ou qu’un 7 soit obtenu. Dès que l’un de ces événements se produit, elle doit s’arrêter et indiquer s’il s’agit d’une victoire ou d’une défaite.
Notez qu’à l’intérieur de cette fonction, nous utiliserons à nouveau la fonction roll_dice que nous avons définie précédemment.
Cet exercice fait partie du cours
Énigmes de probabilité en R
Instructions
- Complétez les conditions de la boucle while pour continuer à lancer jusqu’à ce qu’un 7 ou le point soit obtenu.
- Complétez la condition qui vérifie si le lancer le plus récent entraîne une victoire.
Exercice interactif pratique
Essayez cet exercice en complétant cet exemple de code.
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)
}