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

add map and for-each benchmarks

Browse source 
* benchmark-suite/benchmarks/srfi-1.bm ("map", "for-each"): Add
  benchmarks.
This commit is contained in:
Andy Wingo 2011-05-08 17:27:41 +02:00
parent 012062a0d6
commit 0a6506781a
1 changed files with 18 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

19
benchmark-suite/benchmarks/srfi-1.bm
View file

@ -1,7 +1,7 @@
;;; -*- mode: scheme; coding: utf-8; -*-
;;; SRFI-1.
;;;
;;; Copyright 2010 Free Software Foundation, Inc.
;;; Copyright 2010, 2011 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
@ -45,3 +45,20 @@
(benchmark "small" 2000000
(drop-while (lambda (n) #t) %small-list)))
(with-benchmark-prefix "map"
(benchmark "big" 30
(map (lambda (x) x) %big-list))
(benchmark "small" 2000000
(map (lambda (x) x) %small-list)))
(with-benchmark-prefix "for-each"
(benchmark "big" 30
(for-each (lambda (x) #f) %big-list))
(benchmark "small" 2000000
(for-each (lambda (x) #f) %small-list)))