change-random ( newkeys splay keys -- splay' )

Vocabulary

benchmark.splay

Inputs

newkeys	an object
splay	an object
keys	an object

Outputs

splay'

an object

Definition

USING: assocs kernel sequences ;

IN: benchmark.splay

: change-random ( newkeys splay keys -- splay' )
    swapd [ first pick delete-at first2 pick set-at ] 2each ;