2

编辑：解决方案是在第一个 (let...) 表单中将 '(1) 替换为 (list 1)。这是因为我试图修改文字数据。谢谢您的帮助！（我会放弃投票，但显然你需要 15 声望......）

这是我在这个网站上的第一篇文章。

今天我正在解决一些Project Euler问题，我在 Common Lisp 中遇到了一些意想不到的列表排序行为（嗯，至少对我而言）：

我有一个函数可以找到数字 x 的所有正确除数：

(defun divisors (x)
    "Finds all of the proper divisors of x."
    (let ((sq (sqrt x)) (divs '(1)))
        (when (integerp sq) (push sq divs))
        (loop for i from 2 to (1- (floor sq)) do
        (let ((div (/ x i)))
            (when (integerp div)
                (push i divs)
                (push div divs))))
    divs))

这个功能很好用。例如：

(divisors 100)
==> (20 5 25 4 50 2 10 1)

每当我尝试对结果列表进行排序时，就会出现问题：

(sort (divisors 100) #'<)
==> (1 2 4 5 10 20 25 50)

嗯，效果很好。但是当我再次调用除数时会发生什么？

(divisors 100)
==> (20 5 25 4 50 2 10 1 2 4 5 10 20 25 50)

什么？也许如果我尝试不同的号码...

(divisors 33)
==> (11 3 1 2 4 5 10 20 25 50)

在我对结果列表进行排序后，来自先前查询的除数是持久的。如果我重新编译该函数，则在再次对结果列表进行排序之前不会出现错误。我假设我在函数定义的某个地方搞砸了，但我对 Lisp 很陌生，我找不到错误。嵌套（let...）表单可能有问题吗？

提前致谢！

4

2 回答 2

9

经常问。

您已修改文字数据。您需要使用新数据。使用函数 LIST 或函数进行复制。

于 2012-04-14T17:33:40.063 回答
3

雷纳是对的；如果不明显，可以通过以下更改修复代码：

(let ((sq (sqrt x)) (divs (list 1)))
于 2012-04-14T17:42:13.753 回答