（（lambda（x）...）括號是否以限定範圍的某種方式放置？

Question

一個經典的枚舉使用展開：

(unfold-left (lambda (x) 
       (if (> x 10) 
        (#;no values) 
        (+ x 1))) 
      #;from 0) 

===>（0 1 2 3 4 5 6 7 8 9 10））

如果對範圍的限制並不需要的是有任何方式只是寫x沒有lambda？

Answer 1

unfold實現這樣的：

(define (unfold p f g seed (tail-gen (λ (_) '()))) 
    (let recur ((seed seed)) 
    (if (p seed) 
     (tail-gen seed) 
     (cons (f seed) 
       (recur (g seed)))))) 

正如你可以看到p，f，g和tail-gen都是程序，因爲他們得到在執行括號括起來。如果他們不是程序，您將收到application: not a procedure錯誤。

您正在使用unfold錯誤。你需要一個程序，獲取當前的價值，並返回更新或不完成。其次是一個接受種子並返回收集價值的過程，第三步是創建下一個種子的過程。可選tail-gen接受種子並創建尾部，如果未提供空白列表將被使用。這裏是你如何讓從0到10的列表：

#lang racket  
(require srfi/1) 
(require srfi/26) 

(unfold (cut > <> 10) identity add1 0) 
; ==> (0 1 2 3 4 5 6 7 8 9 10) 

和當然，(range 11)給出了相同的答案。