Функция для продолжения бросков после установки очка
Напишем функцию, которая управляет всеми бросками после того, как установлено очко. Напомним: функция должна продолжать броски до тех пор, пока снова не выпадет очко или не выпадет 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)
}