benchmarks/Hash.st
changeset 2353 fa7400d022a0
child 2380 9195eccdcbd9
child 2396 fadc6d7a2f5b
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/benchmarks/Hash.st	Sat Feb 16 19:08:45 2013 +0100
@@ -0,0 +1,45 @@
+"{ Package: 'stx:libjava/benchmarks' }"
+
+JavaBenchmark subclass:#Hash
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Benchmarks-Java-Micro'
+!
+
+
+!Hash methodsFor:'running'!
+
+runBenchmarkS:n 
+    | count  table |
+
+    count := 0.
+    table := Dictionary new:n + (n // 5).
+    ^ Time 
+        millisecondsToRun:[
+            1 to:n do:[:each | 
+                table at:(each printStringRadix:16) put:each
+            ].
+            1 to:n do:[:each | 
+                (table includesKey:(each printStringRadix:10)) ifTrue:[
+                    count := count + 1
+                ]
+            ].
+        ].
+! !
+
+!Hash class methodsFor:'documentation'!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libjava/benchmarks/Hash.st,v 1.1 2013-02-16 18:08:32 vrany Exp $'
+!
+
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
+!
+
+version_SVN
+    ^ '§Id::                                                                                                                        §'
+! !
+