Commit | Line | Data |
---|---|---|
b7715701 AR |
1 | ;;; -*- mode: scheme; coding: utf-8; -*- |
2 | ;;; R6RS-specific arithmetic benchmarks | |
3 | ;;; | |
b064d565 | 4 | ;;; Copyright (C) 2011, 2012 Free Software Foundation, Inc. |
b7715701 AR |
5 | ;;; |
6 | ;;; This library is free software; you can redistribute it and/or | |
7 | ;;; modify it under the terms of the GNU Lesser General Public | |
8 | ;;; License as published by the Free Software Foundation; either | |
9 | ;;; version 3 of the License, or (at your option) any later version. | |
10 | ;;; | |
11 | ;;; This library is distributed in the hope that it will be useful, | |
12 | ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
13 | ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
14 | ;;; Lesser General Public License for more details. | |
15 | ;;; | |
16 | ;;; You should have received a copy of the GNU Lesser General Public | |
17 | ;;; License along with this library. If not, see | |
18 | ;;; <http://www.gnu.org/licenses/>. | |
19 | ||
20 | (define-module (benchmarks r6rs-arithmetic) | |
21 | #:use-module (benchmark-suite lib) | |
22 | #:use-module (rnrs arithmetic fixnums)) | |
23 | ||
24 | \f | |
25 | (with-benchmark-prefix "fixnum" | |
26 | ||
b064d565 | 27 | (benchmark "fixnum? [yes]" #e1e7 |
b7715701 AR |
28 | (fixnum? 10000)) |
29 | ||
30 | (let ((n (+ most-positive-fixnum 100))) | |
b064d565 | 31 | (benchmark "fixnum? [no]" #e1e7 |
b7715701 AR |
32 | (fixnum? n))) |
33 | ||
b064d565 | 34 | (benchmark "fxxor [2]" #e1e7 |
b7715701 | 35 | (fxxor 3 8))) |