utf16-benchmark ( -- )

Vocabulary

benchmark.utf16

Inputs

None

Outputs

None

Definition

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

IN: benchmark.utf16

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