lisp - "unfold"用于常见的 lisp？

Question

我从 SICP 学到了很多 scheme，但现在对 common lisp 更感兴趣。我知道常见的 lisp 的 fold 是 reduce，有左折叠或右折叠的特殊参数，但是 unfold 的等价物是什么？谷歌搜索没有多大帮助。事实上，我的印象是没有展开？？？

Answer 1

Common Lisp 有(loop ... collect ...)。比较

(loop for x from 1 to 10 collect (* x x))

使用 unfold 的等价物:

(unfold (lambda (x) (> x 10))  (lambda (x) (* x x))  (lambda (x) (+ x 1))  1)

一般来说，(unfold p f g seed)基本上就是

(loop for x = seed then (g x) until (p x) collect (f x))

编辑:修正拼写错误