add benchmark for prepending to a vector
This commit is contained in:
parent
e7b595c4ca
commit
cdbbd13939
1 changed files with 6 additions and 0 deletions
|
|
@ -206,6 +206,12 @@
|
||||||
(reduce conj v [1])
|
(reduce conj v [1])
|
||||||
(conj v 1)))
|
(conj v 1)))
|
||||||
|
|
||||||
|
(let [data [1 2 3 4 5 6 7 8 9 10]]
|
||||||
|
(run-benchmark "prepend to a vector" 1000000
|
||||||
|
(vec (cons 0 data))
|
||||||
|
(setval BEFORE-ELEM 0 data)
|
||||||
|
(into [0] data)
|
||||||
|
))
|
||||||
|
|
||||||
(declarepath TreeValues)
|
(declarepath TreeValues)
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue