Question

我有一个代码可以制作一个游戏，一个人掷骰子4次，如果掷骰子落6，他们就赢了。但是，我正在运行代码，但没有产生输出。

game<-function (n=4){
  count=0
  ceiling(6*runif(1))
  for(i in 1:n){
    if(ceiling(6*runif(1))==6){
      count=1
    }
    else(
      count=0
    )
 if(count=1){
   print("Win")}
  else{
    print("Lose")
  }
  }
}

Answer 1

实际上，您可以使用ifelse对if和else进行向量化，并且还可以直接使用return来避免中间变量（例如count ）：

game<-function (n=4){
  return(ifelse(6 %in% ceiling(6*runif(n)), "Win", "Lose"))
}

Answer 2

我建议您使用final input = new File('a/csv/file.txt').openRead(); final fields = await input.transform(UTF8.decoder).transform(csvCodec.decoder).toList();查看是否等于any的掷骰，然后使用6报告该值。

return

尝试在R中创建骰子游戏但功能未运行

2 个答案: