Source
clojure/core/protocols.clj:68
top
(def arr-impl
'(internal-reduce
[a-seq f val]
(let [arr (.array a-seq)]
(loop [i (.index a-seq)
val val]
(if (< i (alength arr))
(recur (inc i) (f val (aget arr i)))
val)))))
Comments top
No comments for arr-impl. Log in to add a comment.