Files
thin-provisioning-tools/functional-tests/regex-bench.scm
Joe Thornber 13cee36804 [functional-tests/regex-bench] update benchmark to use regex from a
string rather than combinators.
2017-08-29 13:26:14 +01:00

8 lines
209 B
Scheme

(import (chezscheme)
(regex)
(loops))
(let ((rx (regex "a*foob+")))
(time (upto (n 1000000)
(rx "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaafoobbbbbbb"))))