store-lookup-mix ( hash keys -- )

Vocabulary

benchmark.hashtables

Inputs

hash	an object
keys	an object

Outputs

None

Definition

USING: assocs kernel math sequences ;

IN: benchmark.hashtables

:: store-lookup-mix ( hash keys -- )
    keys [ 0 swap hash set-at ] each keys [ hash at ] map drop
    keys [ hash [ 1 + ] change-at ] each ;