한 라운드를 실행하는 함수
이제 이전 연습 문제의 함수를 활용해, 한 라운드의 Craps를 완료하는 전체 함수를 작성해 보겠습니다. 함수 이름은 evaluate_first_roll로 하세요. 아래 예시 코드에서 보듯이, 이 함수는 슈터의 첫 번째 주사위 합을 입력으로 받아 그에 따라 진행합니다. roll_dice와 roll_after_point 함수는 미리 로드되어 있습니다.
이 연습은 강의의 일부입니다
R로 풀어보는 확률 퍼즐
연습 안내
%in%연산자를 사용해 첫 굴림이 7 또는 11인지 확인하고, 해당하면 즉시 승리로 처리하세요.%in%연산자를 사용해 첫 굴림이 2, 3, 또는 12인지 확인하고, 해당하면 즉시 패배로 처리하세요.- 포인트가 정해졌다면, 포인트가 다시 나오면 승리, 7이 나오면 패배가 될 때까지 계속 굴리세요.
실습형 인터랙티브 연습
이 예제를 이 샘플 코드를 완성하여 풀어보세요.
evaluate_first_roll <- function(roll){
# Check whether the first roll gives an immediate win
if(___){
won <- TRUE
}
# Check whether the first roll gives an immediate loss
if(___){
won <- FALSE
}
if(roll %in% c(4,5,6,8,9,10) ){
# Roll until the point or a 7 is rolled and store the win/lose outcome
won <- ___
}
return(won)
}