「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函數，但是你當然可以編寫自己的函數。它的方案定義爲符號翻譯幾乎符號。