Add fixnum arithmetic benchmarks.
authorLudovic Courtès <ludo@gnu.org>
Fri, 19 Nov 2010 10:06:10 +0000 (11:06 +0100)
committerLudovic Courtès <ludo@gnu.org>
Fri, 19 Nov 2010 12:34:43 +0000 (13:34 +0100)
* benchmark-suite/benchmarks/arithmetic.bm ("fixnum")["*", "/"]: New
  benchmarks.

benchmark-suite/benchmarks/arithmetic.bm

index 62d67be..0755c03 100644 (file)
     (repeat (+ 2 <>) 7 100))
 
   (benchmark "-" 1e7
-    (repeat (+ 2 <>) 7 100)))
+    (repeat (+ 2 <>) 7 100))
+
+  (benchmark "*" 1e7
+    (repeat (* 1 <>) 1 100))
+
+  (benchmark "/" 1e7
+    (repeat (/ 2 <>) 1 100)))