스킴 - 적용 적용

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"))))