1 ;;; coding: latin1 -*- mode: scheme; coding: latin-1; -*-
4 ;;; Copyright (C) 2009 Free Software Foundation, Inc.
7 ;;; This program is free software; you can redistribute it and/or
8 ;;; modify it under the terms of the GNU Lesser General Public License
9 ;;; as published by the Free Software Foundation; either version 3, or
10 ;;; (at your option) any later version.
12 ;;; This program is distributed in the hope that it will be useful,
13 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
14 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 ;;; GNU Lesser General Public License for more details.
17 ;;; You should have received a copy of the GNU Lesser General Public
18 ;;; License along with this software; see the file COPYING.LESSER. If
19 ;;; not, write to the Free Software Foundation, Inc., 51 Franklin
20 ;;; Street, Fifth Floor, Boston, MA 02110-1301 USA
22 (define-module (benchmarks chars)
23 :use-module (benchmark-suite lib))
26 (with-benchmark-prefix "chars"
28 (benchmark "char" 1000000
31 (benchmark "octal" 1000000
34 (benchmark "char? eq" 1000000
37 (benchmark "char=?" 1000000
40 (benchmark "char<?" 1000000
43 (benchmark "char-ci=?" 1000000
46 (benchmark "char-ci<? " 1000000
49 (benchmark "char->integer" 1000000
52 (benchmark "char-alphabetic?" 1000000
55 (benchmark "char-numeric?" 1000000