diff options
author | Ludovic Courtès <ludo@gnu.org> | 2010-11-19 11:06:10 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2010-11-19 13:34:43 +0100 |
commit | 2427baa6a21925178f99726083e38d53b2276b9b (patch) | |
tree | ee4d6f355f2013c42e40fca85e6fd2cf113f0e16 | |
parent | 0c57673a1176dec03d6ddb88fa5cfc82a2628cc3 (diff) | |
download | guile-2427baa6a21925178f99726083e38d53b2276b9b.tar.gz |
Add fixnum arithmetic benchmarks.
* benchmark-suite/benchmarks/arithmetic.bm ("fixnum")["*", "/"]: New
benchmarks.
-rw-r--r-- | benchmark-suite/benchmarks/arithmetic.bm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/benchmark-suite/benchmarks/arithmetic.bm b/benchmark-suite/benchmarks/arithmetic.bm index 62d67be70..0755c0324 100644 --- a/benchmark-suite/benchmarks/arithmetic.bm +++ b/benchmark-suite/benchmarks/arithmetic.bm @@ -58,4 +58,10 @@ (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))) |