farkup-benchmark ( -- )

Vocabulary

benchmark.farkup

Inputs

None

Outputs

None

Definition

USING: farkup io.encodings.utf8 io.files kernel math sequences ;

IN: benchmark.farkup

: farkup-benchmark ( -- )
    100 "vocab:webapps/wiki/initial-content/Farkup.txt" utf8
    file-contents [ convert-farkup length 5300 assert= ] curry
    times ;