Возможно ли реализовать `apply` в Lisp с использованием` eval`?

Question

Я изучаю Racket (подобный схеме Lisp), и я попытался сделать что-то вроде (apply + '(1 2)), но без использования apply, и я потерпел неудачу. Я был почти уверен, что apply может быть каким-то образом смоделирован с использованием eval, но теперь у меня есть сомнения.

Итак, мой вопрос: может ли apply быть реализован в Racket (или другом Lisp), используя только eval и другие основные операции? То есть, как это сделать:

{ define [my-apply f arg] 
    ;; what does go here? 
} 
(my-apply + (list 1 2)) ; => 3 

Answer 1

Несомненно.

(defun my-apply (function arglist) 
    (eval (cons function (mapcar (lambda (x) (list 'quote x)) arglist)))) 
(my-apply '+ '(1 2 3)) 
6 
(my-apply '+ '(1 a 3)) 
*** - +: A is not a number 

1. Обратите внимание, что вы не можете сделать (my-apply #'+ '(1 2 3)), для этого потребуется дополнительный шаг.

2. Обратите внимание, что вы должны процитировать arglist элементы, чтобы избежать двойной оценки (спасибо Райану для ловли, что!)

Answer 2

Я нашел один (в Ракетка):

{ define [my-apply func args] 
    { define ns-for-eval (make-base-namespace) } 
    (eval (cons func args) ns-for-eval) 
} 

(my-apply + (list 1 2)) ; => 3 

Что-то не так?