请求协助实现R语言质因数分解程序（已有C语言相关代码）

嗨，别担心！我来帮你搞定这个R程序，刚好可以结合你熟悉的C语言思路来理解~

首先，我们的目标很明确：

• 从用户那里读取一个整数输入
• 如果输入值小于2，输出错误信息
• 若输入有效（≥2），则把能相乘得到该数的所有质因数逐个输出，每个因数占一行

下面是完整的R代码，逻辑和你现有的C质因数分解代码思路一致，都是用试除法来实现：

# 读取用户输入的整数
user_input <- as.integer(readline(prompt = "请输入一个整数: "))

# 检查输入是否有效
if (is.na(user_input) || user_input < 2) {
  cat("错误：输入值必须是大于等于2的整数！\n")
} else {
  num <- user_input
  # 从最小的质数2开始试除
  divisor <- 2
  while (num >= divisor) {
    # 如果能整除，输出这个因数，同时更新num为商
    if (num %% divisor == 0) {
      cat(divisor, "\n")
      num <- num / divisor
    } else {
      # 不能整除就换下一个除数（如果当前除数是2，下一个是3；否则+1）
      divisor <- ifelse(divisor == 2, 3, divisor + 1)
    }
  }
}

代码解释： #

1. 读取输入：用readline()获取用户输入，再用as.integer()转换成整数类型，如果用户输入的不是整数，as.integer()会返回NA，我们也会把这种情况判定为无效输入。
2. 输入校验：判断输入是否为有效整数且≥2，不符合就输出错误提示。
3. 质因数分解逻辑：
   • 从最小的质数2开始尝试整除目标数
   • 一旦找到能整除的除数，就输出这个除数，同时把目标数更新为它除以该除数的商，继续用同一个除数试除（因为可能有多个相同质因数，比如72里的2）
   • 如果不能整除，就切换到下一个除数（2之后直接跳3，之后每次+1，这样能覆盖所有可能的质因数）
   • 循环直到目标数被分解到小于当前除数为止

示例运行： #

当你输入72时，程序会输出：

2
2
2
3
3

这个逻辑和你现有的C代码应该是高度匹配的，如果你有特定的C代码细节想对应调整，随时告诉我就行~

内容的提问来源于stack exchange，提问作者RikoSK