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])
|
||||
(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)
|
||||
|
||||
|
|
|
|||
Loading…
Reference in a new issue