Autor
Código:
function fuerzabruta : integer;
var i, j : integer;
begin
i := 1;
j := 1;
repeat
if a[i] := p[j] then begin
i := i + 1;
j := j + 1;
end
else begin
i := 1 - j + 2;
j := 1;
end;
until j > M or i > N;
if j > M then fuerzabruta := i - M
else fuerzabruta := i;
end;
var i, j : integer;
begin
i := 1;
j := 1;
repeat
if a[i] := p[j] then begin
i := i + 1;
j := j + 1;
end
else begin
i := 1 - j + 2;
j := 1;
end;
until j > M or i > N;
if j > M then fuerzabruta := i - M
else fuerzabruta := i;
end;
El método obvio para la búsqueda de un patrón consiste en chequear cada posible posición en el texto en donde el patrón puede encontrarse. El programa busca de esta forma la ocurrencia del patrón p[1..M] en el string de texto a [1..N]
Bueno este algoritmo estaba, el un libro que leí hace un tiempo, que se llama, Algoritmos, datos, y programas....
SAludos
En línea
