json-benchmark ( -- )

Vocabulary

benchmark.json

Inputs

None

Outputs

None

Definition

USING: assocs json kernel math math.parser sequences ;

IN: benchmark.json

: json-benchmark ( -- )
    200 <iota> [ [ number>string ] keep ] H{ } map>assoc 1000
    [ >json json> ] times drop ;