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

avoid inexact iteration count in benchmarks

Browse source 
* benchmark-suite/benchmarks/arithmetic.bm:
* benchmark-suite/benchmarks/r6rs-arithmetic.bm: Use #e1e7 for the
  iteration count, instead of the flonum 1e7.
This commit is contained in:
Andy Wingo 2012-04-23 04:27:34 -04:00
parent d10f7b572c
commit b064d56514
2 changed files with 11 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1,7 +1,7 @@
;;; -*- mode: scheme; coding: utf-8; -*- ;;; -*- mode: scheme; coding: utf-8; -*-
;;; Integer arithmetic. ;;; Integer arithmetic.
;;; ;;;
;;; Copyright 2010 Free Software Foundation, Inc. ;;; Copyright 2010, 2012 Free Software Foundation, Inc.
;;; ;;;
;;; This program is free software; you can redistribute it and/or ;;; This program is free software; you can redistribute it and/or
;;; modify it under the terms of the GNU Lesser General Public License ;;; modify it under the terms of the GNU Lesser General Public License
@ -48,20 +48,20 @@
(with-benchmark-prefix "fixnum" (with-benchmark-prefix "fixnum"
(benchmark "1+" 1e7 (benchmark "1+" #e1e7
(repeat (1+ <>) 2 100)) (repeat (1+ <>) 2 100))
(benchmark "1-" 1e7 (benchmark "1-" #e1e7
(repeat (1- <>) 2 100)) (repeat (1- <>) 2 100))
(benchmark "+" 1e7 (benchmark "+" #e1e7
(repeat (+ 2 <>) 7 100)) (repeat (+ 2 <>) 7 100))
(benchmark "-" 1e7 (benchmark "-" #e1e7
(repeat (- 2 <>) 7 100)) (repeat (- 2 <>) 7 100))
(benchmark "*" 1e7 (benchmark "*" #e1e7
(repeat (* 1 <>) 1 100)) (repeat (* 1 <>) 1 100))
(benchmark "/" 1e7 (benchmark "/" #e1e7
(repeat (/ 2 <>) 1 100))) (repeat (/ 2 <>) 1 100)))

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

@ -1,7 +1,7 @@
;;; -*- mode: scheme; coding: utf-8; -*- ;;; -*- mode: scheme; coding: utf-8; -*-
;;; R6RS-specific arithmetic benchmarks ;;; R6RS-specific arithmetic benchmarks
;;; ;;;
;;; Copyright (C) 2011 Free Software Foundation, Inc. ;;; Copyright (C) 2011, 2012 Free Software Foundation, Inc.
;;; ;;;
;;; This library is free software; you can redistribute it and/or ;;; This library is free software; you can redistribute it and/or
;;; modify it under the terms of the GNU Lesser General Public ;;; modify it under the terms of the GNU Lesser General Public
@ -24,12 +24,12 @@
(with-benchmark-prefix "fixnum" (with-benchmark-prefix "fixnum"
(benchmark "fixnum? [yes]" 1e7 (benchmark "fixnum? [yes]" #e1e7
(fixnum? 10000)) (fixnum? 10000))
(let ((n (+ most-positive-fixnum 100))) (let ((n (+ most-positive-fixnum 100)))
(benchmark "fixnum? [no]" 1e7 (benchmark "fixnum? [no]" #e1e7
(fixnum? n))) (fixnum? n)))
(benchmark "fxxor [2]" 1e7 (benchmark "fxxor [2]" #e1e7
(fxxor 3 8))) (fxxor 3 8)))