生成随机数

answer <- sample(1:500, 1)

初始化猜测次数

guess_count <- 0

初始化游戏状态

game_over <- FALSE

开始游戏

cat("欢迎来到猜数字游戏！\n") cat("数字范围为1-500，你有5次机会。\n")

while (!game_over) {

读取玩家猜测的数字

guess <- as.numeric(readline("请输入你猜测的数字："))

判断猜测是否正确

if (guess == answer) { cat("恭喜你猜对了！\n") game_over <- TRUE } else if (guess_count == 4) { cat("你已经猜了5次了，游戏结束！\n") cat("正确答案是", answer, "\n") game_over <- TRUE } else if (guess < answer) { cat("你猜的数字太小了，请再试一次。\n") guess_count <- guess_count + 1 } else if (guess > answer) { cat("你猜的数字太大了，请再试一次。\n") guess_count <- guess_count + 1 } else { cat("无效的输入，请输入一个数字。\n") } }