Lisp 循环让何时

Question

我正在尝试做这样的事情

(loop for i from 1 to 10
      do (let ((fi (funcall f i)))
           when (> fi 0)
           collect (list i fi)))

f 的计算成本很高，所以我只想计算一次。

这不起作用，所以我在循环范围之外引入我的 fi 局部变量：

(let ((fi nil))
  (loop for i from 1 to 10
        do (setf fi (funcall f i))
        when (> fi 0)
        collect (list i fi)))

有没有完全包含在循环宏中的方法（如第一种方法）？

Answer 1

两个独立的for 子句就可以了：

(loop for i from 1 to 10
      for fi = (funcall f i)
      when (> fi 0)
      collect (list i fi))

两个迭代子句将在每次迭代时执行。第二个将看到i 的每个新值。