user=> (Integer/rotateRight 0 0)
0
user=> (apply Integer/rotateRight [0 0])
CompilerException java.lang.RuntimeException: Unable to find static field:
rotateRight in class java.lang.Integer, compiling:(NO_SOURCE_PATH:172)
有没有办法在 Clojure 中申请 java 函数？如果不是，我怎么能写一个支持这个的宏或函数？
【问题讨论】：
我能想到的最简单的方法是将它包装在一个函数中，但我不完全确定这是否是最好/最惯用的方式：
user> (apply (fn [a b] (Integer/rotateRight a b)) [0 0])
0
或者，略短但等效：
user> (apply #(Integer/rotateRight %1 %2) [0 0])
0
或者，您可以为您的 java 方法调用创建一个适当的包装函数：
(defn rotate-right [a b]
(Integer/rotateRight a b))
你会这样使用它：
user> (apply rotate-right [0 0])
0
编辑：只是为了好玩，灵感来自 iradik 关于效率的评论，调用此方法的三种不同方式之间的时间比较：
;; direct method call (x 1 million)
user> (time (dorun (repeatedly 1E6 #(Integer/rotateRight 2 3))))
"Elapsed time: 441.326 msecs"
nil
;; method call inside function (x 1 million)
user> (time (dorun (repeatedly 1E6 #((fn [a b] (Integer/rotateRight a b)) 2 3))))
"Elapsed time: 451.749 msecs"
nil
;; method call in function using apply (x 1 million)
user> (time (dorun (repeatedly 1E6 #(apply (fn [a b] (Integer/rotateRight a b)) [2 3]))))
"Elapsed time: 609.556 msecs"
nil
【讨论】：
eval 参与其中，那么解决方案会立即变得很糟糕。鉴于上述宏定义，尝试（例如）(let [x "10"] (java-static-apply Integer/parseInt [x])) - 你会发现x 不在范围内。更糟糕的是，这个宏只有在你有 literal seq at compile-time 时才有效——这正是你根本不需要 apply 的时候！它根本不适用于(let [args ["10"]] (java-static-apply Integer/parseInt args))，因为它无法在编译时映射到 args。
这里有几点虽然不是直接的答案，但与此相关。
首先，Java 没有函数。它只有实例方法或静态方法。这似乎是一种迂腐的区别，但它确实有所不同（如在静态和实例调用需要不同形式的其他一些示例中所示）。
其次，类型系统之间的阻抗不匹配会起作用。要让 Java 以 Javaish 方式获得完全成熟的 FP 支持，它需要进行静态类型化。事实证明，要以真正令人满意的方式做到这一点非常困难（有关正在使用的方法的详细信息，请参阅 lambda-dev 邮件列表中的讨论，了解 Java 8 中正在使用的方法的详细信息）。
从这两点我们可以看出，从 Clojure 中我们真正能做的最好的事情就是支持通过 #() 或类似方法调用 Java 方法的“所有赌注都没有”的方法。 Clojure 只会根据参数的数量在要调用的形式之间进行选择，因此可能需要某种类型的提示或强制转换来确保调用正确的重载 Java 方法。
当然，更重要的是，如果用户传递了 Java 不期望或无法处理的类型的参数，则可能要到运行时才能检测到。
【讨论】：
在受到 gertalot 回答的启发后，我编写了一些宏来执行此操作。似乎编译为等效的正常代码。基准是相同的。好奇你的想法。
(defmacro java-new-apply
([klass] `(new ~klass))
([klass args] `(new ~klass ~@(map eval args))))
(defmacro java-static-apply
([f] f)
([f args] `(~f ~@(map eval args))))
(defmacro java-method-apply
([method obj] method obj)
([method obj args] `(~method ~obj ~@(map eval args))))
;; get date for Jan 1 1969
(import java.util.Date)
(java-new-apply Date [69 1 1])
(macroexpand '(java-new-apply Date [69 1 1]))
(new Date 69 1 1)
(java-static-apply Integer/rotateRight [2 3])
(macroexpand '(java-static-apply Integer/rotateRight [2 3]))
(. Integer rotateRight 2 3)
(java-method-apply .substring "hello world!" [6 11])
(macroexpand '(java-method-apply .substring "hello world!" [6 11]))
(. "hello world!" substring 6 11)
【讨论】：
(def my-date-data [69 1 1])(macroexpand '(java-new-apply Date my-date-data)) 看看它不起作用。宏在编译时扩展，而不是在运行时扩展，这意味着您无法访问传递的实际值。