嘗試在列表中使用參數，如函數名稱在計劃

Question

我有一個像這樣的列表 - >(define l '(at1 at2 at3))其中at1是一個函數的名稱。當我嘗試將該值作爲函數的名稱（即(at1 value1 value2)）時，我獲得：

application：not a procedure; 預計可應用於參數的程序

，因爲at1是列表（'valueofat1）。我試圖使用apply和list->string，但兩者都不起作用。我究竟做錯了什麼？我如何使用給定位置中的列表值作爲函數？

Answer 1

如果您一定要使用表示函數名稱的符號列表，您可以使用apply和eval，但要注意：eval is evil，您應該避免使用它！

; some functions 
(define (at1 x y) (+ x y)) 
(define (at2 x y) (- x y)) 
(define (at3 x y) (* x y)) 

; a list of symbols named like the functions 
(define lst '(at1 at2 at3)) 

; operands 
(define value1 30) 
(define value2 12) 

; obtain evaluation namespace 
(define-namespace-anchor a) 
(define ns (namespace-anchor->namespace a)) 

; apply the first function from the list of function names 
(apply (eval (car lst) ns) (list value1 value2)) 
     ^      ^
evaluate operator   list of operands 

以上將返回42。我有這樣的感覺，你正在努力與XY problem，你是真的試圖完成？使用函數列表而不是符號列表代表函數名稱是不是更好的主意？我的意思是，像這樣：

; some functions 
(define (at1 x y) (+ x y)) 
(define (at2 x y) (- x y)) 
(define (at3 x y) (* x y)) 

; a list of functions 
(define lst (list at1 at2 at3)) 

; operands 
(define value1 30) 
(define value2 12) 

; apply the first function from the list of functions 
((car lst) value1 value2) 
=> 42