“unfold”for common lisp？

Question

我从SICP了解了一些计划，但现在对通用的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)) 

编辑：修正了错字

Answer 2

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