utf8-benchmark ( -- )

Vocabulary

benchmark.utf8

Inputs

None

Outputs

None

Definition

USING: io.encodings.string io.encodings.utf8 kernel math random
strings ;

IN: benchmark.utf8

: utf8-benchmark ( -- )
    100000 65535 randoms >string 1000 swap
    [ dup utf8 encode utf8 decode assert= ] curry times ;