From a1073275c32981f57ba4e03099a531029782dc97 Mon Sep 17 00:00:00 2001 From: nathanmarz Date: Fri, 27 Jan 2017 10:39:50 -0500 Subject: [PATCH] add assoc-in vs setval benchmark --- scripts/benchmarks.clj | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/scripts/benchmarks.clj b/scripts/benchmarks.clj index e17c90d..8005e43 100644 --- a/scripts/benchmarks.clj +++ b/scripts/benchmarks.clj @@ -86,6 +86,11 @@ (select-any [(keypath :a) (keypath :b) (keypath :c)] data))) +(let [data {:a {:b {:c 1}}}] + (run-benchmark "set value in nested map" 2500000 + (assoc-in data [:a :b :c] 1) + (setval [:a :b :c] 1 data))) + ;; because below 1.7 there is no update function (defn- my-update [m k afn]