Bir Dizgeden Bir İşlev Çağrma İşlev Çağın İçinde Clojure ile

Question

Bir işlevi bir dizeyle nasıl çağırabilirim? Örneğin. Böyle bir şey:

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

Answer 1

Basit cevap:

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

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

Sadece eğlence için:

(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

şey gibi:

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