insert-bc-shift ( table elt len i -- table )


Vocabulary
boyer-moore.private

Definition
USING: assocs kernel math ;

IN: boyer-moore.private

: insert-bc-shift ( table elt len i -- table )
1 + swap - swap pick 2dup key? [ 3drop ] [ set-at ] if ;
inline