LazySeq 应该利用其底层序列的已缓存哈希。

Question

即使底层序列包含已缓存的哈希，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))        ;; 哈希已缓存
"执行时间：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

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

Answer 2

评论由：alexmiller

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

Answer 3

评论由：wagjo

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

Answer 4

评论由：alexmiller

-2 补丁无法编译，因此我认为那是一个错误建议。 :)

Answer 5

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