Generate a collection benchmarks in a single file

Author: Abduqodiri Qurbonzoda

benchmarks-libraries/src/jmh/java/benchmarks/immutableList/clojure/Add.kt

@@ -0,0 +1,196 @@
+/*
+ * Copyright 2016-2019 JetBrains s.r.o.
+ * 
+ * Licensed under the Apache License, Version 2.0 (the "License");
+ * you may not use this file except in compliance with the License.
+ * You may obtain a copy of the License at
+ * 
+ * http://www.apache.org/licenses/LICENSE-2.0
+ * 
+ * Unless required by applicable law or agreed to in writing, software
+ * distributed under the License is distributed on an "AS IS" BASIS,
+ * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+ * See the License for the specific language governing permissions and
+ * limitations under the License.
+ */
+
+// Auto-generated file. DO NOT EDIT!
+
+package benchmarks.immutableList.clojure
+
+import org.openjdk.jmh.annotations.*
+import java.util.concurrent.TimeUnit
+import org.openjdk.jmh.infra.Blackhole
+import benchmarks.*
+
+
+@Fork(1)
+@Warmup(iterations = 5)
+@Measurement(iterations = 5)
+@BenchmarkMode(Mode.AverageTime)
+@OutputTimeUnit(TimeUnit.MICROSECONDS)
+@State(Scope.Thread)
+open class Add {
+    @Param("10000", "100000")
+    var size: Int = 0
+
+    @Benchmark
+    fun addLast(): clojure.lang.PersistentVector {
+        return persistentListAdd(size)
+    }
+
+    @Benchmark
+    fun addLastAndIterate(bh: Blackhole) {
+        val list = persistentListAdd(size)
+        for (e in list) {
+            bh.consume(e)
+        }
+    }
+
+    @Benchmark
+    fun addLastAndGet(bh: Blackhole) {
+        val list = persistentListAdd(size)
+        for (i in 0 until size) {
+            bh.consume(list.get(i))
+        }
+    }
+}
+
+
+
+@Fork(1)
+@Warmup(iterations = 5)
+@Measurement(iterations = 5)
+@BenchmarkMode(Mode.AverageTime)
+@OutputTimeUnit(TimeUnit.MICROSECONDS)
+@State(Scope.Thread)
+open class Get {
+    @Param("10000", "100000")
+    var size: Int = 0
+
+    private var persistentList = clojure.lang.PersistentVector.EMPTY
+
+    @Setup(Level.Trial)
+    fun prepare() {
+        persistentList = persistentListAdd(size)
+    }
+
+    @Benchmark
+    fun getByIndex(bh: Blackhole) {
+        for (i in 0 until size) {
+            bh.consume(persistentList.get(i))
+        }
+    }
+}
+
+
+
+@Fork(1)
+@Warmup(iterations = 5)
+@Measurement(iterations = 5)
+@BenchmarkMode(Mode.AverageTime)
+@OutputTimeUnit(TimeUnit.MICROSECONDS)
+@State(Scope.Thread)
+open class Iterate {
+    @Param("10000", "100000")
+    var size: Int = 0
+
+    private var persistentList = clojure.lang.PersistentVector.EMPTY
+
+    @Setup(Level.Trial)
+    fun prepare() {
+        persistentList = persistentListAdd(size)
+    }
+
+    @Benchmark
+    fun firstToLast(bh: Blackhole) {
+        for (e in persistentList) {
+            bh.consume(e)
+        }
+    }
+
+    @Benchmark
+    fun lastToFirst(bh: Blackhole) {
+        val iterator = persistentList.listIterator(size)
+
+        while (iterator.hasPrevious()) {
+            bh.consume(iterator.previous())
+        }
+    }
+}
+
+
+
+@Fork(1)
+@Warmup(iterations = 5)
+@Measurement(iterations = 5)
+@BenchmarkMode(Mode.AverageTime)
+@OutputTimeUnit(TimeUnit.MICROSECONDS)
+@State(Scope.Thread)
+open class Remove {
+    @Param("10000", "100000")
+    var size: Int = 0
+
+    private var persistentList = clojure.lang.PersistentVector.EMPTY
+
+    @Setup(Level.Trial)
+    fun prepare() {
+        persistentList = persistentListAdd(size)
+    }
+
+    @Benchmark
+    fun removeLast(): clojure.lang.PersistentVector {
+        var list = persistentList
+        repeat(times = size) {
+            list = list.pop()
+        }
+        return list
+    }
+}
+
+
+
+@Fork(1)
+@Warmup(iterations = 5)
+@Measurement(iterations = 5)
+@BenchmarkMode(Mode.AverageTime)
+@OutputTimeUnit(TimeUnit.MICROSECONDS)
+@State(Scope.Thread)
+open class Set {
+    @Param("10000", "100000")
+    var size: Int = 0
+
+    private var persistentList = clojure.lang.PersistentVector.EMPTY
+    private var randomIndices = listOf<Int>()
+
+    @Setup(Level.Trial)
+    fun prepare() {
+        persistentList = persistentListAdd(size)
+        randomIndices = List(size) { it }.shuffled()
+    }
+
+    @Benchmark
+    fun setByIndex(): clojure.lang.PersistentVector {
+        repeat(times = size) { index ->
+            persistentList = persistentList.assocN(index, "another element")
+        }
+        return persistentList
+    }
+
+    @Benchmark
+    fun setByRandomIndex(): clojure.lang.PersistentVector {
+        repeat(times = size) { index ->
+            persistentList = persistentList.assocN(randomIndices[index], "another element")
+        }
+        return persistentList
+    }
+}
+
+
+private fun persistentListAdd(size: Int): clojure.lang.PersistentVector {
+    var list = clojure.lang.PersistentVector.EMPTY
+    repeat(times = size) {
+        list = list.cons("some element")
+    }
+    return list
+}