Функція для продовження кидків після встановлення поїнту
Закодуймо функцію, яка оброблятиме всі кидки після того, як поїнт встановлено. Нагадаємо, вона має кидати далі, доки знову не випаде поїнт або не випаде 7. Щойно станеться одне з цього, слід зупинитися й повернути, чи це виграш, чи програш.
Зверніть увагу: у цій функції ми знову використаємо раніше визначену функцію roll_dice.
Ця вправа є частиною курсу
Ймовірнісні головоломки в R
Інструкції до вправи
- Заповніть умови в циклі while, щоб продовжувати кидки, доки не випадуть 7 або поїнт.
- Заповніть умову, щоб перевірити, чи призведе останній кидок до виграшу.
Інтерактивна практична вправа
Спробуйте виконати цю вправу, доповнивши цей зразок коду.
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)
}