From 6d154799f95f52afbe71c7eefe7dc953cee857c8 Mon Sep 17 00:00:00 2001
From: nathanmarz <nathan@nathanmarz.com>
Date: Sun, 12 Feb 2017 12:13:13 -0500
Subject: [PATCH] add benchmark for getting first element of a vector

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

diff --git a/scripts/benchmarks.clj b/scripts/benchmarks.clj
index 8005e43..db861b5 100644
--- a/scripts/benchmarks.clj
+++ b/scripts/benchmarks.clj
@@ -164,6 +164,14 @@
     (map-vals-map-iterable-transient data inc)))
 
 
+(let [data [1 2 3 4 5 6 7 8 9 10]]
+  (run-benchmark "first value of a vector" 10000000
+    (first data)
+    (select-any ALL data)
+    (select-any FIRST data)
+    (select-first ALL data)
+    ))
+
 (let [data [1 2 3 4 5]]
   (run-benchmark "map a function over a vector" 1000000
     (vec (map inc data))