问。我制作了一个程序来在 lisp 中查找素数，但它不起作用

Question

(princ "ENTER ANY NUMBER : ")
(setq n (read))
(setq flag 0)

(loop for i from 2 to n-1
    (if (=(mod n i)0)
        (setq flag 1)))

(if (= flag 0)
    (format t "~d IS A PRIME NUMBER"n)
    (format t "~d IS NOT A PRIME NUMBER"n))

Answer 1

1. 如果你这样做，它会让其他人更容易阅读你的代码 将在新行上开始每个 顶级 表单。

2. n-1 不是 lisp。试试(- n 1)

3. 您的循环中需要do。那就是：

   (loop for i from 2 to (- n 1) do ...

换句话说：

(princ "ENTER ANY NUMBER : ")
(setq n (read))
(setq flag 0)
(loop for i from 2 to (- n 1) do
     (if (= (mod n i) 0)
         (setq flag 1)))
(if (= flag 0)
    (format t "~d IS A PRIME NUMBER"n)
  (format t "~d IS NOT A PRIME NUMBER"n))

Answer 2

n-1 是一个符号，在你的情况下它是一个未绑定的符号（也就是说，它没有这样的值）。您可能指的是(- n 1) 或(1- n) 之一（它们的值都是“从n 中减去一个”）。

一般来说，你不需要遍历所有低于n的数字，只需要循环到(isqrt n)（数字的整数平方根，如果你看的是平方，这是正平方根数并且总是至少与非质数的因子一样大。

不要使用标志变量并设置它们，而是将您的素数检查器包装在一个函数中并尽早返回您找到一个因素。

(defun primep (n)
  (loop for i from 2 upto (isqrt n)
    if (zerop (mod n i))
    do (return-from primep nil))
  'prime)