mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

Add fixnum arithmetic benchmarks.

Browse source 
* benchmark-suite/benchmarks/arithmetic.bm ("fixnum")["*", "/"]: New
  benchmarks.
This commit is contained in:
Ludovic Courtès 2010-11-19 11:06:10 +01:00
parent 0c57673a11
commit 2427baa6a2
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
benchmark-suite/benchmarks/arithmetic.bm
View file

@ -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)))