Appel d'une fonction à partir d'une chaîne avec le nom de la fonction dans Clojure

Question

Comment appeler une fonction avec une chaîne? par exemple. quelque chose comme ceci:

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

Answer 1

Une réponse simple:

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

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

Juste pour le plaisir:

(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

Quelque chose comme:

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