gc3-benchmark ( -- )

Vocabulary

benchmark.gc3

Inputs

None

Outputs

None

Definition

USING: assocs hashtables kernel math.parser sequences ;

IN: benchmark.gc3

: gc3-benchmark ( -- )
    1000000 <iota> 1000000 <hashtable>
    [ [ [ number>string ] keep ] ] dip [ set-at ] curry compose
    each ;