ポイント確定後に振り続ける関数
ポイントが確定した後のすべてのロールを処理する関数を実装しましょう。ポイントが再び出るか、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)
}