Funkcja do rozegrania jednej rundy
Teraz skorzystaj z funkcji z poprzedniego ćwiczenia i napisz jedną nadrzędną funkcję o nazwie evaluate_first_roll, która przeprowadzi pełną rundę gry w Craps. Jak widać w przykładowym kodzie poniżej, funkcja ta przyjmuje wynik pierwszego rzutu strzelca jako argument wejściowy i dalej działa zgodnie z zasadami gry. Funkcje roll_dice i roll_after_point zostały już wczytane.
To ćwiczenie jest częścią kursu
Zagadki prawdopodobieństwa w R
Instrukcje do ćwiczenia
- Użyj operatora
%in%, aby sprawdzić, czy wynik rzutu to 7 lub 11 – co oznacza natychmiastową wygraną. - Użyj operatora
%in%, aby sprawdzić, czy wynik rzutu to 2, 3 lub 12 – co oznacza natychmiastową przegraną. - Jeśli zostanie ustalony punkt, kontynuuj rzuty, aż do ponownego wyrzucenia punktu (wygrana) lub wyrzucenia 7 (przegrana).
Interaktywne ćwiczenie praktyczne
Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.
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)
}