[functional-tests/regex-bench] update benchmark to use regex from a

string rather than combinators.
This commit is contained in:
Joe Thornber 2017-08-29 13:26:14 +01:00
parent 14d1751022
commit 13cee36804

View File

@ -2,10 +2,6 @@
(regex) (regex)
(loops)) (loops))
(let ((rx (compile-rx (let ((rx (regex "a*foob+")))
(seq (seq (star (lit "a")) (time (upto (n 1000000)
(lit "foo")) (rx "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaafoobbbbbbb"))))
(plus
(lit "b"))))))
(time (upto (n 1000000)
(rx "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaafoobbbbbbb"))))