由:jdevuyst 评论
嗯。我想惰性序列确实导致了大量的分配。
好的,我重写了我的测试并运行了多次。现在我还在向量和数组上进行了测试。
补丁1需要进行一些调整。当coll-fold被调用时,补丁1只为{{object}}类型指定了后备(即调用{{r/reduce}})。我必须为{{array}}类型添加相同的后备。(这很奇怪!)
所以这里是结果。
对于向量
`
(let [coll (vec (repeat 100 (vec (range 100))))]
(time (dotimes [n 3000]
(->> coll
(r/mapcat identity)
(r/map inc)
(r/filter even?)
(r/fold +)))))
`
补丁1: 205872 毫秒
补丁2: 210756 毫秒
对于数组
`
(let [coll (into-array (repeat 100 (into-array (range 100))))]
(time (dotimes [n 3000]
(->> coll
(r/mapcat identity)
(r/map inc)
(r/filter even?)
(r/fold +)))))
`
补丁1: 123567 毫秒
补丁2: 119704 毫秒
我多次运行了测试,结果相当一致。补丁1对向量速度更快,补丁2对数组速度更快。
这很有道理。
在补丁1中,{{reducer}}将直接调用{{-reduce}}。在补丁2中,{{reducer}}首先调用{{r/reduce}},如果集合是向量,就调用{{-reduce}},如果是数组,就调用{{array-reduce}}。因此,在向量案例中,补丁2包含了一个额外的函数调用,但在数组案例中避免了在本地类型上调用协议方法。
使用宏(或复制粘贴)可以避免这个额外的函数调用。这值得尝试吗,或者保持代码整洁更重要?
--
我刚刚意识到补丁2在语义上与Clojure略有不同,尽管这可能是Clojure中的一个错误: https://groups.google.com/forum/#!searchin/clojure-dev/kv-reduce/clojure-dev/bEqECvbExGo/iW4B2vEUh8sJ。我建议使用宏(或复制粘贴)来避免补丁2中的额外函数调用,这也可能解决这个差异。