Clojure性能，大向量上的大循环

Question

我正在对大小为50,000个元素的两个向量执行基于元素的操作，并且有不满意的性能问题（几秒钟）。是否存在明显的性能问题，例如使用不同的数据结构？

(defn boolean-compare
  "Sum up 1s if matching 0 otherwise"
  [proposal-img data-img]
  (sum
  (map
    #(Math/abs (- (first %) (second %)))
    (partition 2 (interleave proposal-img data-img)))))

Answer 1

试试看：

(apply + (map bit-xor proposal-img data-img)))

一些注意事项：

• map将一个函数ping到多个集合，使用每个集合中的一个元素作为函数的参数-为此不需要interleave和partition。
• 如果您的数据是1和0，则异或将比绝对差分快

(def data-img (repeatedly 50000 #(rand-int 2)))
(def proposal-img (repeatedly 50000 #(rand-int 2)))
(def sum (partial apply +))

在预热JVM之后...

(time (boolean-compare proposal-img data-img))
;=> "Elapsed time: 528.731093 msecs"
;=> 24802

(time (apply + (map bit-xor proposal-img data-img)))
;=> "Elapsed time: 22.481255 msecs"
;=> 24802