thin-provisioning-tools/functional-tests/regex-bench.scm

(import (chezscheme)
        (regex)
        (loops))

(let ((rx (regex "a*foob+")))
 (time (upto (n 1000000)
             (rx "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaafoobbbbbbb"))))
[functional-tests/regex] more optimisation. I think we're going to have to lose the call/cc; something is allocating a lot of memory. 2017-08-18 23:58:07 +05:30			`(import (chezscheme)`
			`(regex)`
			`(loops))`

[functional-tests/regex-bench] update benchmark to use regex from a string rather than combinators. 2017-08-29 17:56:14 +05:30			`(let ((rx (regex "a*foob+")))`
			`(time (upto (n 1000000)`
			`(rx "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaafoobbbbbbb"))))`