Fonction pour jouer une manche
Utilisons maintenant la fonction de l’exercice précédent et écrivons une fonction globale, appelée evaluate_first_roll, pour jouer une manche complète de Craps. Comme indiqué dans l’exemple de code ci-dessous, cette fonction prend en entrée le premier lancer du tireur et enchaîne ensuite selon les règles. Les fonctions roll_dice et roll_after_point ont été préchargées pour vous.
Cet exercice fait partie du cours
Énigmes de probabilité en R
Instructions
- Utilisez l’opérateur
%in%pour vérifier si le lancer est un 7 ou un 11, ce qui entraîne une victoire immédiate. - Utilisez l’opérateur
%in%pour vérifier si le lancer est un 2, un 3 ou un 12, ce qui entraîne une défaite immédiate. - Si un point est établi, continuez à lancer jusqu’à ce que le point ressorte à nouveau (victoire) ou qu’un 7 ressorte (défaite).
Exercice interactif pratique
Essayez cet exercice en complétant cet exemple de code.
evaluate_first_roll <- function(roll){
# Check whether the first roll gives an immediate win
if(___){
won <- TRUE
}
# Check whether the first roll gives an immediate loss
if(___){
won <- FALSE
}
if(roll %in% c(4,5,6,8,9,10) ){
# Roll until the point or a 7 is rolled and store the win/lose outcome
won <- ___
}
return(won)
}