포인트가 정해진 뒤 계속 굴리는 함수
포인트가 정해진 이후의 모든 굴림을 처리하는 함수를 코딩해 봅시다. 즉, 포인트가 다시 나오거나 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)
}