1

我正在阅读 Practical Common Lisp，并且正在研究 REPL 中的闭包（第 6 章）。我正在尝试下面的代码，我认为它列出了一个闭包列表，但我不知道如何在 REPL 中同时调用它们：

(defparameter *fn*
   (let ((count 10))
     (list
      #'(lambda () (incf count))
      #'(lambda () (decf count))
      #'(lambda () count))))

我已经阅读了这个问题的答案并尝试了一些和其他一些，但似乎没有任何效果。这是我尝试过的 -

CL-USER> (apply #'funcall *fn*)
; Evaluation aborted on #<CCL::TOO-MANY-ARGUMENTS #x2100B8890D>.
CL-USER> (funcall *fn*)
; Evaluation aborted on #<TYPE-ERROR #x2100B5667D>.
CL-USER> (loop for function in *fn*
      (collect (funcall function)))
; Evaluation aborted on #<CCL::SIMPLE-PROGRAM-ERROR #x2100C21D4D>.
CL-USER> (map #'funcall *fn*)
; Evaluation aborted on #<CCL::TOO-FEW-ARGUMENTS #x2100B7320D>.

我正在寻找的是可以打印的东西（11 9 10）。

谢谢你的帮助！

4

2 回答 2

6

您可以使用mapcar代替map：

CL-USER> (mapcar #'funcall *fn*)
(11 10 10)

但是，您会注意到打印出来(11 10 10)的不是(11 9 10). 那是因为count在 lambdas 之间共享*fn*，因为let范围包含了它们。

如果您想count绑定到每个 lambda 中的不同变量，则必须为每个 lambda 构建不同的let范围。

于 2013-04-30T19:22:58.883 回答
4 
(funcall (first *fn*))

(loop for f in *fn* collect (funcall f))

(map 'list #'funcall *fn*)

(mapcar #'funcall *fn*)
于 2013-04-30T19:21:52.550 回答