在R语言中检查质数：含break的代码为何无法正常运行？

你的代码主要有三个问题，导致逻辑完全错误：

• 判断逻辑颠倒：当num %% del == 0时，说明num能被整除，它根本不是质数，但你直接break没输出结论；反而在不能整除的时候打印“不是质数”，完全搞反了。
• 缺少循环结束后的质数判定：如果循环完整跑完（所有2到num-1的数都不能整除num），说明num是质数，但你的代码没处理这个场景。
• 未处理边界值：比如num=1、num=2这类特殊情况，num=2时循环范围是2:1，循环根本不会执行，也没有任何输出。

下面是用break实现的正确代码：

prime.check <- function(num) {
  # 小于等于1的数不是质数
  if (num <= 1) {
    print(paste(num, 'is not prime'))
    return()
  }
  # 2是最小的质数
  if (num == 2) {
    print(paste(num, 'is prime'))
    return()
  }
  
  is_prime <- TRUE
  for (del in 2:(num-1)) {
    if (num %% del == 0) {
      is_prime <- FALSE
      break  # 找到因数就立刻跳出循环，不用继续检查
    }
  }
  
  # 根据循环结果输出最终结论
  if (is_prime) {
    print(paste(num, 'is prime'))
  } else {
    print(paste(num, 'is not prime'))
  }
}

简单说明修正逻辑：

1. 先处理特殊值：直接判定<=1的数非质数，2是质数，避免循环出现无效范围。
2. 用一个标记变量is_prime初始设为TRUE，循环中只要找到能整除num的数，就把标记改成FALSE并break终止循环。
3. 循环结束后根据标记输出正确结果，确保无论是否触发break，都能给出准确结论。

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