1 ;;; -*- mode: scheme; coding: utf-8; -*-
4 ;;; Copyright 2010, 2011 Free Software Foundation, Inc.
6 ;;; This program is free software; you can redistribute it and/or
7 ;;; modify it under the terms of the GNU Lesser General Public License
8 ;;; as published by the Free Software Foundation; either version 3, or
9 ;;; (at your option) any later version.
11 ;;; This program 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
14 ;;; GNU Lesser General Public License for more details.
16 ;;; You should have received a copy of the GNU Lesser General Public
17 ;;; License along with this software; see the file COPYING.LESSER. If
18 ;;; not, write to the Free Software Foundation, Inc., 51 Franklin
19 ;;; Street, Fifth Floor, Boston, MA 02110-1301 USA
21 (define-module (benchmarks srfi-1)
22 #:use-module (srfi srfi-1)
23 #:use-module (benchmark-suite lib))
32 (with-benchmark-prefix "fold"
35 (fold (lambda (x y) y) #f %big-list))
37 (benchmark "small" 2000000
38 (fold (lambda (x y) y) #f %small-list)))
41 (with-benchmark-prefix "drop-while"
44 (drop-while (lambda (n) #t) %big-list))
46 (benchmark "small" 2000000
47 (drop-while (lambda (n) #t) %small-list)))
49 (with-benchmark-prefix "map"
52 (map (lambda (x) x) %big-list))
54 (benchmark "small" 2000000
55 (map (lambda (x) x) %small-list)))
57 (with-benchmark-prefix "for-each"
60 (for-each (lambda (x) #f) %big-list))
62 (benchmark "small" 2000000
63 (for-each (lambda (x) #f) %small-list)))