当确定 point 后继续掷骰子的函数
我们来编写一个函数，用于在确定 point 之后处理随后的所有掷骰子。请回忆：这意味着它应当持续掷骰子，直到再次掷出该 point，或掷出 7。任一情况发生后就应停止，并返回这是胜利还是失败。
注意：在该函数中，我们会再次使用之前定义的 roll_dice 函数。
本练习是课程的一部分
R 中的概率谜题
练习说明
- 在 while 循环中补全条件，使其在掷出 7 或者掷出 point 之前持续掷骰子。
- 补全条件以检查最近一次掷骰子是否会导致胜利。
交互式实操练习
通过完成这段示例代码来试试这个练习。
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)
}