java - Clojure中Java实例方法的并列

Question

是否可以将 juxt 与 Clojure 中的 Java 对象的方法结合使用？

基本上我想要实现的是

((juxt .method1 .method2) myinstance)

.method1 和 method2 是 myinstance 的实例方法，它是某个 Java 类的实例。

感谢您的帮助!

Answer 1

或者只是为此制作一个宏，它将正常的 juxt 行为与 .method 行为结合起来。像这样:

user> (defmacro juxt+ [& fns]
        (let [x (gensym)]
          `(fn [~x] ~(mapv #(list % x) fns))))
#'user/juxt+

例如:

(juxt+ .getName (partial str "string val: ") .getAbsolutePath vector)

扩展为以下内容:

(fn*
  ([G__19829]
    [(. G__19829 getName)
     ((partial str "string val: ") G__19829)
     (. G__19829 getAbsolutePath)
     (vector G__19829)]))

回复:

user> ((juxt+ .getName 
              (partial str "string val: ") 
              .getAbsolutePath 
              vector) 
         (java.io.File. "aaa"))

["aaa" 
 "string val: aaa" 
 "/Users/.../aaa" 
 [#object[java.io.File 0x34c3af49 "aaa"]]]