使用Clojure中函数名称的字符串调用函数

Question

如何使用字符串调用函数？例如是这样的：

(call "zero?" 1) ;=> false 

Answer 1

一个简单的回答：

(defn call [this & that] 
    (apply (resolve (symbol this)) that)) 

(call "zero?" 1) 
;=> false 

只是为了好玩：

(defn call [this & that] 
    (cond 
    (string? this) (apply (resolve (symbol this)) that) 
    (fn? this)  (apply this that) 
    :else   (conj that this))) 

(call "+" 1 2 3) ;=> 6 
(call + 1 2 3) ;=> 6 
(call 1 2 3)  ;=> (1 2 3) 

Answer 2

喜欢的东西：

(defn call [^String nm & args] 
    (when-let [fun (ns-resolve *ns* (symbol nm))] 
     (apply fun args)))