同时循环与其他功能

Question

我试图建立一个类似于掷骰子的小游戏，但更简单。这是我的代码：

first.roll <- sum(ceiling(6*runif(2)))

playCraps <- function(x){ 
  if (x == 7 | x == 11)
  print("Win!")
  else if (x == 2 | x == 3 | x == 12)
  print("Lose!")
  else
  rollAgain(x)
}

rollAgain <- function(y) {
  while (y != first.roll & y != 7) {
    y <- sum(ceiling(6*runif(2)))
  }
  return(y)
}

playCraps(first.roll)

我已经这样设置了，但我感觉有些东西不见了。

具体来说，我试图了解如何设置与另一个函数相关的while循环。如何设置一个while循环，它将继续迭代一个函数，直到达到两个结果？我是否将while循环与if语句结合使用？