LazySeq 应该使用其底层 seq 的缓存哈希。

Question

即使底层 seq 包含缓存哈希，LazySeq 也每次都重新计算。


user=> *clojure-version*
{:major 1, :minor 7, :incremental 0, :qualifier "master", :interim true}
user=> (def a (range 100000))
#'user/a
user=> (time (hash a))
"经过时间：21.812 毫秒"
375952610
user=> (time (hash a))        ;; hash 已缓存
"经过时间：0.036 毫秒"
375952610
user=> (def b (seq a))
#'user/b
user=> (time (hash b))
"经过时间：0.042 毫秒"   ;; 使用缓存哈希
375952610
user=> (def c (lazy-seq b))
#'user/c
user=> (time (hash c))        ;; 应使用底层哈希
"经过时间：27.758 毫秒"
375952610
user=> (time (hash c))        ;; 应使用底层哈希
"经过时间：17.846 毫秒"
375952610


*方法:* 如果 LazySeq 生成的 seq 实现了 IHashEq，则使用它来计算 hasheq()。
*补丁:* clj-1373.diff

Answer 1

评论由：wagjo 撰写

添加了一个补丁，该补丁检查底层 seq 是否实现了 IHashEq，如果是，则使用该哈希而不是重新计算。

Answer 2

评论由：alexmiller 撰写

在这个补丁中，你能否更新 else 情况（原始代码）以使用 s 而不是 this，这样就不会重新调用 seq()？

Answer 3

评论由：wagjo 撰写

添加了补丁（链接：^clj-1373-2.diff），重复使用 {{s}} 用于 else 的情况。

Answer 4

评论由：alexmiller 撰写

-2 补丁无法编译，所以我猜那是一个糟糕的建议 :)。

Answer 5

参考：[https://clojure.atlassian.net/browse/CLJ-1373](https://clojure.atlassian.net/browse/CLJ-1373)（由 wagjo 报告）