wrap-benchmark ( -- )

Vocabulary

benchmark.wrap

Inputs

None

Outputs

None

Definition

USING: kernel math math.parser sequences splitting wrap.strings
;

IN: benchmark.wrap

: wrap-benchmark ( -- )
    1000 <iota> [ number>string ] map join-words 100
    [ dup 80 wrap-string drop ] times drop ;