27eb4d8ce4
I think we're going to have to lose the call/cc; something is allocating a lot of memory.
12 lines
334 B
Scheme
12 lines
334 B
Scheme
(import (chezscheme)
|
|
(regex)
|
|
(loops))
|
|
|
|
(let ((rx (compile-rx
|
|
(seq (seq (star (lit "a"))
|
|
(lit "foo"))
|
|
(plus
|
|
(lit "b"))))))
|
|
(time (upto (n 1000000)
|
|
(rx "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaafoobbbbbbb"))))
|