Clojure 多方法本质上很慢吗

Question

我正在查看 clojure.core 函数重新分组：

(defn re-groups [^java.util.regex.Matcher m]
    (let [gc  (. m (groupCount))]
      (if (zero? gc)
        (. m (group))
        (loop [ret [] c 0]
          (if (<= c gc)
            (recur (conj ret (. m (group c))) (inc c))
             ret))))) 

并认为将其重写为“更好”多方法：

(defmulti re-groups (fn [^java.util.regex.Matcher m] (.groupCount m)))
(defmethod re-groups 0 [m] (.group m))
(defmethod re-groups :default [m]
        (let [idxs (range (inc (.groupCount m)))]
             (reduce #(conj %1 (.group m %2)) [] idxs))) 

然而，当比较时间时，我惊讶地发现重写速度慢了 4 倍：

clojure.core: "Elapsed time: 668.029589 msecs"
multi-method: "Elapsed time: 2632.672379 msecs" 

这是多方法的自然结果还是这里还有其他问题？

Answer 1

Clojure 多方法允许基于任意调度函数的运行时多态行为。这对于构建临时层次结构和抽象非常强大，但您会因为这种灵活性而付出性能损失。您可能希望使用协议重新实现您的解决方案。仅当您需要完整的运行时类型灵活性时才使用多方法。

Answer 2

一般来说，任何做得更多的事情都会花费更多的时间。因为多方法提供了多种调度方式，所以它们比协议花费的时间更长，我必须回答你的问题“是的，与协议相比”。

在实践中，从协议开始，并在必要时使用多种方法（看起来您需要它们）。 你不能用代码让计算机变得更快，但你可以让它做得更少

Answer 3

我认为你的多方法实现速度较慢的原因也可能是因为你在惰性序列（由范围提供）上使用reduce，而不是在clojure.core中使用的递增索引上使用循环/递归。尝试将 clojure.core/re-groups 实现的循环部分复制到第二个 defmethod 中，看看这是否不会提高性能。

如果没有看到您的测试用例，很难说，但是如果匹配器中有很多组，那么您可能会花费比多方法调度更多的时间将组减少为向量。如果组很少，那么多方法调度将占据所花费时间的更重要部分。无论哪种情况，采用相同的实现都将消除造成时间差异的潜在影响因素，并帮助您更好地了解多方法调度中的实际开销。

您可能要考虑的另一件事是，速度放缓可能是由于反射造成的。尝试将 *warn-on-reflection* 设置为 true 并看看它是否抱怨。也许另一种策略类型的提示可能会有所帮助。