diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2010-07-13 00:07:12 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2010-07-21 01:07:56 +0200 |
| commit | 0b7f2eb8bf5002c91dec6267afb451ee6e3bf7c1 (patch) | |
| tree | fd4a85fa48234271610f7da0f0f4c80d157b1fc7 /benchmark-suite | |
| parent | 927bf5e8cc0af9515797ebab6d9ba162bef23c2a (diff) | |
Start rewriting SRFI-1 in Scheme.
This partially reverts commit e556f8c3c6b74ee6596e8dcbe829109d7745da2c
(Fri May 6 2005).
* module/srfi/srfi-1.scm (xcons, list-tabulate, not-pair?, car+cdr,
last, fold, list-index): New procedures.
* srfi/srfi-1.c (srfi1_module): New variable.
(CACHE_VAR): New macro.
(scm_srfi1_car_plus_cdr, scm_srfi1_fold, scm_srfi1_last,
scm_srfi1_list_index, scm_srfi1_list_tabulate, scm_srfi1_not_pair_p,
scm_srfi1_xcons): Rewrite as proxies of the corresponding Scheme
procedure.
* test-suite/tests/srfi-1.test ("list-tabulate")["-1"]: Change exception
type to `exception:wrong-type-arg'.
* benchmark-suite/benchmarks/srfi-1.bm: New file.
* benchmark-suite/Makefile.am (SCM_BENCHMARKS): Add
`benchmarks/srfi-1.bm'.
* test-suite/standalone/Makefile.am (test_srfi_1_SOURCES,
test_srfi_1_CFLAGS, test_srfi_1_LDADD): New variables.
(check_PROGRAMS): Add `test-srfi-1'.
(TESTS): Ditto.
* test-suite/standalone/test-srfi-1.c: New file.
Diffstat (limited to 'benchmark-suite')
| -rw-r--r-- | benchmark-suite/Makefile.am | 1 | ||||
| -rw-r--r-- | benchmark-suite/benchmarks/srfi-1.bm | 38 |
2 files changed, 39 insertions, 0 deletions
diff --git a/benchmark-suite/Makefile.am b/benchmark-suite/Makefile.am index d99e457af..b58219a24 100644 --- a/benchmark-suite/Makefile.am +++ b/benchmark-suite/Makefile.am @@ -5,6 +5,7 @@ SCM_BENCHMARKS = benchmarks/0-reference.bm \ benchmarks/if.bm \ benchmarks/logand.bm \ benchmarks/read.bm \ + benchmarks/srfi-1.bm \ benchmarks/srfi-13.bm \ benchmarks/structs.bm \ benchmarks/subr.bm \ diff --git a/benchmark-suite/benchmarks/srfi-1.bm b/benchmark-suite/benchmarks/srfi-1.bm new file mode 100644 index 000000000..2888934c5 --- /dev/null +++ b/benchmark-suite/benchmarks/srfi-1.bm @@ -0,0 +1,38 @@ +;;; -*- mode: scheme; coding: utf-8; -*- +;;; SRFI-1. +;;; +;;; Copyright 2010 Free Software Foundation, Inc. +;;; +;;; This program is free software; you can redistribute it and/or +;;; modify it under the terms of the GNU Lesser General Public License +;;; as published by the Free Software Foundation; either version 3, or +;;; (at your option) any later version. +;;; +;;; This program is distributed in the hope that it will be useful, +;;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU Lesser General Public License for more details. +;;; +;;; You should have received a copy of the GNU Lesser General Public +;;; License along with this software; see the file COPYING.LESSER. If +;;; not, write to the Free Software Foundation, Inc., 51 Franklin +;;; Street, Fifth Floor, Boston, MA 02110-1301 USA + +(define-module (benchmarks srfi-1) + #:use-module (srfi srfi-1) + #:use-module (benchmark-suite lib)) + +(define %big-list + (iota 1000000)) + +(define %small-list + (iota 10)) + + +(with-benchmark-prefix "fold" + + (benchmark "fold" 30 + (fold (lambda (x y) y) #f %big-list)) + + (benchmark "fold" 2000000 + (fold (lambda (x y) y) #f %small-list))) |