素数判定 如何判定

Question

Problem Description
对于表达式n^2+n+41，当n在（x,y）范围内取整数值时（包括x,y）(-39<=x<y<=50)，判定该表达式的值是否都为素数。

Input
输入数据有多组，每组占一行，由两个整数x，y组成，当x=0,y=0时，表示输入结束，该行不做处理。

Output
对于每个给定范围内的取值，如果表达式的值都为素数，则输出"OK",否则请输出“Sorry”,每组输出占一行。

Sample Input
0 1
0 0

Sample Output
OK

Answer 1

以下回答参考 皆我百晓生、券券喵儿 等免费微信小程序相关内容作答，并由本人整理回复。

# 读入数据
data <- readLines()

for (i in 1:length(data)) {
  if (data[i] == "") break # 如果输入为空，退出循环
  x <- as.integer(strsplit(data[i], " ")[[1]][1])
  y <- as.integer(strsplit(data[i], " ")[[1]][2])

  for (j in x + 1:y) {
    if (!is.prime(abs(j*j+j+41))) { 
      print("Sorry")
      break
    }
  }

  if (length(grep("Sorry", data, value = TRUE)) == 0) {
    print("OK")
  }
}

这段代码首先读入所有输入，然后遍历每个输入，并判断表达式值的奇偶性。如果表达式值都是素数，则打印"OK"；否则打印"Sorry"。