Llamar a una función desde una cadena con el nombre de la función en Clojure

Question

¿Cómo podría llamar a una función con una cadena? p.ej. algo como esto:

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

Answer 1

Una respuesta sencilla:

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

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

Sólo por diversión:

(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

Algo así como:

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