(linked-assocs-benchmark) ( -- )

Vocabulary

benchmark.linked-assocs

Inputs

None

Outputs

None

Definition

USING: assocs combinators kernel linked-assocs sequences ;

IN: benchmark.linked-assocs

: (linked-assocs-benchmark) ( -- )
    10000 <iota> <linked-hash> {
        [ [ [ 0 swap ] ] dip [ set-at ] curry compose each ]
        [ [ at ] curry map-sum 0 assert= ]
        [ [ [ dup ] ] dip [ set-at ] curry compose each ]
        [ [ at ] curry map-sum 49995000 assert= ]
        [ [ delete-at ] curry each ]
        [ nip assoc-size 0 assert= ]
    } 2cleave ;