Funkcja kontynuująca rzucanie po ustaleniu punktu
Napiszmy teraz funkcję, która obsłuży wszystkie rzuty wykonywane po ustaleniu punktu. Funkcja powinna kontynuować rzucanie, dopóki nie wypadnie ponownie punkt lub siódemka. Gdy któryś z tych wyników się pojawi, pętla powinna się zakończyć, a funkcja zwrócić informację o wygranej lub przegranej.
Zwróć uwagę, że wewnątrz tej funkcji ponownie użyjemy funkcji roll_dice, którą zdefiniowaliśmy wcześniej.
To ćwiczenie jest częścią kursu
Zagadki prawdopodobieństwa w R
Instrukcje do ćwiczenia
- Uzupełnij warunki w pętli while tak, aby kontynuowała rzucanie do momentu wyrzucenia 7 lub punktu.
- Uzupełnij warunek sprawdzający, czy ostatni rzut oznacza wygraną.
Interaktywne ćwiczenie praktyczne
Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.
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)
}