lexer-benchmark ( -- )

Vocabulary

benchmark.lexer

Inputs

None

Outputs

None

Definition

USING: io.encodings.ascii io.files kernel lexer math ;

IN: benchmark.lexer

: lexer-benchmark ( -- )
    10000 "vocab:math/math.factor" ascii file-lines
    [ <lexer> [ parse-token ] curry loop ] curry times ;