suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

rx benchmark minor additions

Browse Source 
svn: r4361
This commit is contained in:
Matthew Flatt 2006-09-17 22:13:53 +00:00
parent f80818233e
commit 3d722a8fdd
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/tests/mzscheme/benchmarks/rx/auto.ss
View File

@ -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))

2
collects/tests/mzscheme/benchmarks/shootout/regexpdna.ss
View File

@ -29,7 +29,7 @@
(#"W" #"(a|t)") (#"Y" #"(c|t)")))
;; -------------------------------
(define (ci-byte-regexp s)
(byte-regexp (ci-pattern s)))
(define (ci-pattern s)