From 3d722a8fdd4c2b956dcca8daedc922453ccbfee4 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 17 Sep 2006 22:13:53 +0000 Subject: [PATCH] rx benchmark minor additions svn: r4361 --- collects/tests/mzscheme/benchmarks/rx/auto.ss | 2 +- collects/tests/mzscheme/benchmarks/shootout/regexpdna.ss | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/tests/mzscheme/benchmarks/rx/auto.ss b/collects/tests/mzscheme/benchmarks/rx/auto.ss index 1919e25472..adee7ae54b 100755 --- a/collects/tests/mzscheme/benchmarks/rx/auto.ss +++ b/collects/tests/mzscheme/benchmarks/rx/auto.ss @@ -158,7 +158,7 @@ exec mzscheme -qu "$0" ${1+"$@"} (list 'backref #"cataract cataract23" #"(?i:(cat(?:a(?:ract|tonic)|erpillar))) \\1(?:)23" 100000 '(mzold)) (list 'digits #"From abcd Mon Sep 1 12:33:02 1997" #"^From\\s+\\S+\\s+([a-zA-Z]{3}\\s+){2}\\d{1,2}\\s+\\d\\d:\\d\\d" 100000 '(mzold)) (list 'digits #"From abcd Sep 01 12:33:02 1997" #"^From\\s+\\S+\\s+([a-zA-Z]{3}\\s+){2}\\d{1,2}\\s+\\d\\d:\\d\\d" 100000 '(mzold)) - (list 'lines (bytes-append (make-bytes 100 (char->integer #\x)) #"\na\nb\nc\nxxxxxxxx") #"(?m:^a(?:$)[^a]^b(?:$)[^a]^c(?:$))" 10000 '(mzold)) + (list 'lines (bytes-append (make-bytes 100 (char->integer #\x)) #"\na\nb\nc\nxxxxxxxx") #"(?m:^a(?:$)[^a]^b(?:$)[^a]^c(?:$))" 100000 '(mzold)) (list 'lookahead #"foobar is foolish see?" #"foo(?!bar).*" 100000 '(mzold)) (list 'lookahead #"foobar crowbar etc" #"(?:(?!foo)...|^.{0,2})bar.*" 100000 '(mzold)) (list 'lookbehind #"foobar is foolish see?" #"(?<=foo)lish.*" 100000 '(mzold)) diff --git a/collects/tests/mzscheme/benchmarks/shootout/regexpdna.ss b/collects/tests/mzscheme/benchmarks/shootout/regexpdna.ss index 6196e63aaf..11e9817f7a 100644 --- a/collects/tests/mzscheme/benchmarks/shootout/regexpdna.ss +++ b/collects/tests/mzscheme/benchmarks/shootout/regexpdna.ss @@ -29,7 +29,7 @@ (#"W" #"(a|t)") (#"Y" #"(c|t)"))) ;; ------------------------------- - + (define (ci-byte-regexp s) (byte-regexp (ci-pattern s))) (define (ci-pattern s)