From 13cee36804dad9391285326f36f86d579d61f818 Mon Sep 17 00:00:00 2001 From: Joe Thornber Date: Tue, 29 Aug 2017 13:26:14 +0100 Subject: [PATCH] [functional-tests/regex-bench] update benchmark to use regex from a string rather than combinators. --- functional-tests/regex-bench.scm | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) diff --git a/functional-tests/regex-bench.scm b/functional-tests/regex-bench.scm index 0fd96fd..1af815a 100644 --- a/functional-tests/regex-bench.scm +++ b/functional-tests/regex-bench.scm @@ -2,10 +2,6 @@ (regex) (loops)) -(let ((rx (compile-rx - (seq (seq (star (lit "a")) - (lit "foo")) - (plus - (lit "b")))))) - (time (upto (n 1000000) - (rx "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaafoobbbbbbb")))) +(let ((rx (regex "a*foob+"))) + (time (upto (n 1000000) + (rx "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaafoobbbbbbb"))))