R语言入门——猜数游戏

0引言

实在无聊，看着抖音上在玩数字炸弹。自己用R语言写了个猜数字游戏。下面与大家分享一下。

1、代码

#  猜数游戏  # 
# 版权：统计学小王子
# R语言版本：3.6.2
# 参数：a是起始值，b是结束值
Game <- function(a = 0, b = 100){
  num <- round(runif(1, a, b))
  print("游戏开始")
  cat("请在",a,"~",b,"输入一个数：")
  Tmp <- scan()
  a = a; b = b; k = 1
  repeat{
    if(Tmp > num){
      a = a; b = Tmp
      cat(paste0("答案错误，请在",a,"~",b,"之间输入一个数："))
      Tmp <- scan()
      k = k +1;
      next
    }else{
      if(Tmp < num){
        a = Tmp
        b = b
        cat(paste0("答案错误，请在",a,"~",b,"之间输入一个数："))
        Tmp <- scan();
        k = k +1
        next
      }else{
        cat(paste0("恭喜通关，答案为：",num,"总计消耗机会次数:",k))
        break
      }
    }
  }
}
Game(0,100)

2、运行界面

下面是运行界面：