steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

benchmark.regexp: longer benchmark.

db4
John Benediktsson 2014-05-18 20:47:22 -07:00
parent 647b8ffb46
commit e431db4144
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/benchmark/regexp/regexp.factor
View File

@ -6,7 +6,7 @@ IN: benchmark.regexp
: regexp-benchmark ( -- ) : regexp-benchmark ( -- )
200 200
10,000 iota [ number>string ] map 20,000 iota [ number>string ] map
200 iota [ 1 + CHAR: a <string> ] map 200 iota [ 1 + CHAR: a <string> ] map
'[ '[
_ R/ \d+/ [ matches? ] curry all? t assert= _ R/ \d+/ [ matches? ] curry all? t assert=