Common Lisp 中的质数

Question

嗯，我对 Common Lisp 编程语言完全陌生，我从昨天开始自己学习这门语言，这太出于兴趣了。现在，当我遇到函数和循环时，在了解了它们之后，我开始开发Common Lisp 中的素数问题。 我的代码如下：

(defun prime (num)

(setq c 1)

(setq a 2)

(loop 

(setq a (+ 1 a))

(if (= (mod num a) 0)

(setq c (+ c 1))

)

(when (> (+ a 1) 17) (return a))

)
)

(if (= c 1)
(return-from prime num)
)
)

(loop for x from 1 to 20
do (prime x)
)

现在我使用这段代码面临的问题是，每当我尝试执行这段代码时，我得到的错误如下：

***IF: 变量 C 没有值

但我已经为 c 声明了一个值，它仍然出现。所以我只想知道为什么这个错误会出现，即使我已经声明了它。

Answer 1

当要求 Emacs 根据括号深度重新缩进你的代码时，错误的原因立即显而易见：

(defun prime (num)
  (setq c 1)
  (setq a 2)
  (loop 
     (setq a (+ 1 a))
     (if (= (mod num a) 0)
     (setq c (+ c 1)))
     (when (> (+ a 1) 17) (return a))))
(if (= c 1)
    (return-from prime num)))
(loop for x from 1 to 20
   do (prime x))

如您所见，您的(if (= c 1) (return-from prime num)) 只是在您的prime 函数之外，当它作为加载文件的一部分被评估时，它会尝试评估c，这确实是未绑定的，因为这是在绑定c 的任何范围之外。

您可能希望使用可以突出显示括号对的编辑器，以便更轻松地避免这些问题。

另一方面，您可能希望使用(let) 而不是(setq)，为您提供正确的词法绑定。你的程序目前的编写方式，c 和a 本质上是全局变量。