ฟังก์ชันสำหรับเล่นหนึ่งรอบ

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)
}