Boyer-Moore string search: Difference between revisions
m
→{{header|Pascal}}: cosmetic
m (→{{header|Pascal}}: cosmetic) |
m (→{{header|Pascal}}: cosmetic) |
||
Line 541:
I: Integer;
begin
FillDWord(BcTable,
for I := 0 to Length(aPattern) - 2 do
BcTable[p[I]] := Pred(Length(aPattern) - I);
| |||