Funcție pentru a rula o rundă
Acum, hai să folosim funcția din exercițiul anterior și să scriem o funcție generală, numită evaluate_first_roll, care să completeze o rundă de Craps. Așa cum se vede în codul exemplu de mai jos, această funcție va primi prima aruncare a jucătorului ca intrare și va proceda în consecință. Funcțiile roll_dice și roll_after_point au fost preîncărcate pentru tine.
Acest exercițiu face parte din cursul
Puzzle de probabilitate în R
Instrucțiuni pentru exercițiu
- Folosește operatorul
%in%pentru a verifica dacă rezultatul aruncării este 7 sau 11, ceea ce duce la o victorie imediată. - Folosește operatorul
%in%pentru a verifica dacă rezultatul aruncării este 2, 3 sau 12, ceea ce duce la o înfrângere imediată. - Dacă un punct a fost stabilit, continuă să arunci până când fie punctul este aruncat din nou, ceea ce duce la victorie, fie se aruncă 7, ceea ce duce la înfrângere.
Exercițiu interactiv practic
Încearcă acest exercițiu completând acest cod de exemplu.
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)
}