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