From cdbbd139398d0648553d575f5f97a8229538f648 Mon Sep 17 00:00:00 2001
From: nathanmarz <nathan@nathanmarz.com>
Date: Tue, 21 Feb 2017 11:18:32 -0500
Subject: [PATCH] add benchmark for prepending to a vector

---
 scripts/benchmarks.clj | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/scripts/benchmarks.clj b/scripts/benchmarks.clj
index e34fada..36e165c 100644
--- a/scripts/benchmarks.clj
+++ b/scripts/benchmarks.clj
@@ -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)