Ist dies der richtige Weg, um ein Lambda aus zwei Listen im Schema zu erstellen?

Question

Ich versuche, ein Lambda von Parametern, so dass (apply (make-lambda '(a b) '(+ a b)) '(1 2)) kehrt 3

Mein erster Versuch (define (make-lambda params func) (lambda params func)) kehrt (+ a b)

Dieser Code Werke zu schaffen, aber es mir nicht richtig anfühlen: (define (make-lambda params func) (eval (list 'lambda params func)))

Was ist die richtige Weise, dies zu tun?

Answer 1

Sie müssen die Liste auswerten, um es als eine Prozedur zu verwenden, andernfalls ist nur eine Liste von Daten, die das Symbol lambda als das erste Element haben. Diese Syntax ist etwas einfacher, aber im wesentlichen die gleiche:

(define (make-lambda params func) 
    (eval `(lambda ,params ,func))) 

Dies sollte funktionieren:

(apply (make-lambda '(a b) '(+ a b)) '(1 2)) 
=> 3 

Alternativ mit einem Makro wie leppie vorgeschlagen:

(define-syntax make-lambda 
    (syntax-rules() 
    ((_ args body) 
    (lambda args body)))) 

es verwenden wie folgt:

(apply (make-lambda (a b) (+ a b)) '(1 2)) 
=> 3 

Answer 2

Weil ich langweilig bin, und wenn Ihr Programm unterstützt syntax-case :)

(define-syntax make-lambda 
    (lambda (x) 
    (syntax-case x (quote) 
     [(_ (quote pars) (quote body)) 
     #'(lambda pars body)]))) 

PS: wahrscheinlich mit syntax-rules zu (siehe Óscar López Antwort) funktioniert. Also bin ich auch faul.

Beispiel: http://eval.ironscheme.net/?id=186

Hier ist eine syntax-rules Version:

(define-syntax make-lambda 
    (syntax-rules (quote) 
    [(_ (quote pars) (quote body)) 
     (lambda pars body)])) 

Beispiel: http://eval.ironscheme.net/?id=187

Anmerkung: im Auge behalten, das ist genau das, was Sie fordern: D