普通lisp的“展开”？

Question

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

Answer 1

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

（循环从 1 到 10 收集 x (* x x)）

使用unfold：

（展开（λ（x）（> x 10）） (λ (x) (* x x)) (λ (x) (+ x 1)) 1)

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

（循环x =种子然后（g x）直到（p x）收集（f x））

编辑：修正错字

Answer 2

common lisp hyperspec 没有定义unfold 函数，但您当然可以编写自己的函数。它的方案定义几乎是一个符号一个符号地翻译。