base91-benchmark ( -- )

Vocabulary

benchmark.base91

Inputs

None

Outputs

None

Definition

USING: base91 kernel math sequences ;

IN: benchmark.base91

: base91-benchmark ( -- )
    65535 <iota> [ 255 bitand ] "" map-as 20
    [ >base91 base91> ] times drop ;