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))        ;; 哈希已缓存
"执行时间：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 case（原始代码）更新为使用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报告）