add-delete-mix ( hash keys -- )

Vocabulary

benchmark.hashtables

Inputs

hash	an object
keys	an object

Outputs

None

Definition

USING: assocs kernel sequences ;

IN: benchmark.hashtables

:: add-delete-mix ( hash keys -- )
    keys [| k | 0 k hash set-at k hash delete-at ] each keys
    [ 0 swap hash set-at ] each keys [ hash delete-at ] each ;