Схема - с помощью применения

Question

В качестве домашней работы я получил следующее упражнение. Я сидел на нем в течение нескольких часов без каких-либо успехов, поэтому у меня нет выбора, кроме как использовать вашу помощь.

Примеры:

(define m1 (cons "fixNumber" (lambda() 42))) 

(define m3 (cons "add" (lambda (x y) (+ x y)))) 

(define myobj (create-obj (list m1 m2 m3))) 

(myobj "fixNumber" '()) ;; => 42 

(myobj "add" '(1 2)) ;; => 3 

(myobj "myMethod" '()) ;; => "Error: no such method" 

Answer 1

Это должно сделать:

(define (create-obj mlist) 
    (lambda (method parms) 
    (let ((func (assoc method mlist))) 
     (if func 
      (apply (cdr func) parms) 
      "Error: no such method"))))