Question

我是新手试图并行迭代2个列表，如下所示：

(defun test-do* (l1 l2)
  (do* ((temp1 l1 (cdr l1))
        (var1 (car temp1) (car temp1))
        (temp2 l2 (cdr l2))
        (var2 (car temp2) (car temp2)))
       ((endp temp1) 'end-of-l1) ))

问题是我的代码中有一个无限循环，我不知道为什么。感谢您的帮助。

Answer 1

我不确定你要做什么，但对代码的这种修改修复了无限循环：

(defun test-do* (l1 l2)
  (do* ((temp1 l1 (cdr temp1))
        (var1 (car temp1) (car temp1))
        (temp2 l2 (cdr temp2))
        (var2 (car temp2) (car temp2)))
       ((endp temp1) 'end-of-l1) ))

考虑do*循环中的一个陈述：

(temp1 l1 (cdr l1))

翻译为英语（在do*循环的上下文中），这意味着：“这不是您想要的，因为l1的值永远不会改变，因此{{1}在第一次迭代之后的每次迭代都被赋予相同的值。考虑这个修改：

temp1

这意味着：“在第一次迭代时，将(temp1 l1 (cdr temp1))设置为temp1的值。在每次后续迭代中，将l1设置为temp1的值。”这样，每次迭代的(cdr temp1)值取决于前一次迭代中temp1的值，并且您的循环按照您的意图逐步遍历列表。

Answer 2

（'（a b c d e）中x的循环因为'（1 2 3 4 5）收集（列表x y））

<（>（A 1）（B 2）（C 3）（D 4）（E 5））

在LISP中并行迭代2个列表

2 个答案: