scratch.clj

(defn microbench-lock []
  (let [ba (byte-array 100000000)]
    (time (dotimes [i 80000000] (locking ba (aset ba i (byte 0)))))))

(dotimes [j 10] (microbench-lock))

"Elapsed time: 9323.400529 msecs"
"Elapsed time: 9181.996864 msecs"
"Elapsed time: 9084.981462 msecs"
"Elapsed time: 9090.169757 msecs"
"Elapsed time: 9162.061647 msecs"
[... (got bored and stopped it)]

(defn microbench-nolock []
  (let [ba (byte-array 100000000)]
    (time (dotimes [i 80000000] (aset ba i (byte 0))))))

(dotimes [j 10] (microbench-nolock))

"Elapsed time: 51.819095 msecs"
"Elapsed time: 47.302764 msecs"
"Elapsed time: 46.975915 msecs"
"Elapsed time: 46.790621 msecs"
"Elapsed time: 47.223832 msecs"
"Elapsed time: 46.95477 msecs"
"Elapsed time: 47.31063 msecs"
"Elapsed time: 47.218298 msecs"
"Elapsed time: 47.412488 msecs"
"Elapsed time: 47.326872 msecs"