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

8 lines
209 B
Scheme
Raw Normal View History

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