Funktion för att köra en runda
Nu ska vi använda funktionen från föregående övning och skriva en övergripande funktion, evaluate_first_roll, för att slutföra en runda i Craps. Som du ser i exempelkoden nedan tar den här funktionen spelarens första tärningskast som indata och fortsätter därefter på lämpligt sätt. Funktionerna roll_dice och roll_after_point är förinlästa.
Den här övningen är en del av kursen
Sannolikhetspussel i R
Övningsinstruktioner
- Använd operatorn
%in%för att kontrollera om kastet är en 7 eller 11, vilket ger en omedelbar vinst. - Använd operatorn
%in%för att kontrollera om kastet är en 2, 3 eller 12, vilket ger en omedelbar förlust. - Om en poäng har etablerats fortsätter du kasta tills antingen poängen kastas igen, vilket ger vinst, eller en 7 kastas, vilket ger förlust.
Interaktiv övning med praktiskt arbete
Testa den här övningen genom att slutföra den här exempelkoden.
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)
}