regexp-benchmark ( -- )

Vocabulary

benchmark.regexp

Inputs

None

Outputs

None

Definition

USING: kernel math math.parser regexp sequences strings ;

IN: benchmark.regexp

: regexp-benchmark ( -- )
    200 20000 <iota> [ number>string ] map 200 <iota>
    [ 1 + 97 <string> ] map
    [ [ R/ \d+/ [ matches? ] curry all? t assert= ] curry ] dip
    [ R/ [a]+/ [ matches? ] curry all? t assert= ] curry compose
    times ;