嵌套表達式

Question

計劃宏可以宏被寫入方案（與define-syntax，例如）將採取類似這樣的表述：

(op a b c d e f g h i j) 

和產量的表情像這樣的輸出？

(op (op (op (op (op (op (op (op (op a b) c) d) e) f) g) h) i) j) 

當然，對於任意長度。我不能想辦法做到這一點，給予一定的模板是這樣的：

(define-syntax op 
    (syntax-rules() 
    [(_) 'base-case] 
    [(v1 v2 ...) 'nested-case??])) 

Answer 1

(define bop list) 

(define-syntax op 
    (syntax-rules() 
    ((op a b) (bop a b)) 
    ((op a b c ...) (op (bop a b) c ...)))) 

例如，(op 1 2 3 4)擴展到(bop (bop (bop 1 2) 3) 4)和計算結果爲(((1 2) 3) 4)。

Answer 2

要顯示的答案是如何工作的：

(op 1 2 3 4) 

這與4條語句的運算，所以第二殼體被與= 1選擇的，B = 2，C = 3，... = 4：

(op (bop 1 2) 3 4) 

這是一個有3個語句的操作，所以第二個例子再次。 A =（BOP 1 2），B = 3，C = 4：

(op (bop (bop 1 2) 3) 4) 

現在，這是用2條語句，所以A =（BOP（BOP 1 2）3）中，b = 4，和一個BOP完成。

Answer 3

要應用於參數的函數本身應該是宏的參數。除此之外，我的解決方案是一樣的。

#!r6rs 

(import (rnrs base)) 

(define-syntax claudiu 
    (syntax-rules() 
    ((claudiu fun first second) 
    (fun first second)) 
    ((claudiu fun first second rest ...) 
    (claudiu fun (claudiu fun first second) rest ...))))