8 lines
209 B
Scheme
8 lines
209 B
Scheme
(import (chezscheme)
|
|
(regex)
|
|
(loops))
|
|
|
|
(let ((rx (regex "a*foob+")))
|
|
(time (upto (n 1000000)
|
|
(rx "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaafoobbbbbbb"))))
|