当在{{ArrayChunk}}上调用{{reduce}}而不是当前{{dotimes}}时,分块序列处理显示整体改进。受影响的函数是{{map}},{{filter}}和{{keep}}。以下表格显示了相关的基准测试,单位为毫秒。括号中的数字比原版差(尽管幅度很小)。在长序列上看到最佳的整体改进。
*长序列*
|| f || before(doall)|| after(doall)|| before(chunk-last)|| after(chunk-last)||
| {{(map inc lr)}} | 3.75 | 2.88 | 2.15 | 2.06 |
| {{(keep identity lr)}}| 2.56 | 2.16 | 0.75 | 0.72 |
| {{(filter odd? lr)}} | 2.77 | 2.20 | 1.53 | 1.45 |
*序列*
|| f || before(doall)|| after(doall)|| before(chunk-last)|| after(chunk-last)||
| {{(map inc lr)}} | 3.64 | [3.70] | 2.32 | [2.50] |
| {{(keep identity lr)}}| 2.10 | 1.94 | 0.56 | 0.46 |
| {{(filter odd? lr)}} | 1.95 | [1.99] | 1.19 | [1.66] |
*向量*
|| f || before(doall)|| after(doall)|| before(chunk-last)|| after(chunk-last)||
| {{(map inc lr)}} | 3.81 | 3.68 | 2.44 | 2.15 |
| {{(keep identity lr)}}| 2.03 | [2.16] | 0.53 | 0.46 |
| {{(filter odd? lr)}} | 2.08 | [2.82] | 1.67 | 1.39 |
*gvec*
|| f || before(doall)|| after(doall)|| before(chunk-last)|| after(chunk-last)||
| {{(map inc lr)}} | 3.69 | [3.83] | 1.46 | 1.35 |
| {{(keep identity lr)}}| 2.86 | 2.82 | 2.44 | 2.52 |
| {{(filter odd? lr)}} | 2.95 | 2.70 | 2.08 | 2.07 |
所有基准测试均使用“bench”标准在刚启动的JVM上执行,并丢弃具有较大异常量变方差的结果。一般基准模板的形式如下:{{(let [xs chunked-seq] (bench (doall (f xs))))}} 其中
* "chunked-seq" 是以下之一:{{(range 100000)}}, {{(range 1e5)}}, {{(vec (range 1e5))}} 或 {{(into (vector-of :int) (range 1e5)))}
* "doall" 是 {{doall}} 或 {{chunk-last}}(见下文定义)
* "f" 是以下之一:{{(map inc xs)}}, {{(filter odd? xs)}} 或 {{(keep identity xs)}}。
观察结果
* 块越多、块越大,受益越多。带有更大块(大于32)的自定义(分块)序列还可以从这些变化中受益。
* 同样的更改会使 {{keep-indexed}} 和 {{map-indexed}} 的情况变得更糟,因此它们尚未更改。
* {{for}} 宏也具有分块意识,但它使用显式循环来处理 {{:let, :when, :while}} 情况,这很难与块缓冲区更改区分开来。
* {{chunk-last}} 是一个具有分块意识的功能,用于通过块来访问最后一个元素。与 {{doall}}(逐个遍历序列)相比,{{chunk-last}} 在执行前后的代码中都具有更高的效率。函数定义如下:{{(defn chunk-last [xs] (when-let [xs (seq xs)] (if-let [cn (chunk-next xs)] (recur cn) (last xs))))}}
* 在 {{map}} 定义之前对 {{dotimes}} 的初始临时预定义可以从核心中删除。这包含在补丁中。