insert-bad-char-shift ( table elt len i -- table ) - Factor Documentation

insert-bad-char-shift ( table elt len i -- table )

Vocabulary
boyer-moore.private

Inputs

table	an object
elt	an object
len	an object
i	an object

Outputs

table

Definition

USING: assocs kernel math ;

IN: boyer-moore.private

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