add benchmark for prepending to a vector

This commit is contained in:
nathanmarz 2017-02-21 11:18:32 -05:00
parent e7b595c4ca
commit cdbbd13939

View file

@ -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)