Pagini recente » Arhiva de probleme | Cod sursa (job #66449) | Cod sursa (job #2074493) | Cod sursa (job #2334897) | Cod sursa (job #708840)
Cod sursa(job #708840)
program brute_force;
var f,g:text;
a,b,s:ansistring;
i,numar:longint;
v:array[1..2000000] of longint;
begin
assign(f,'strmatch.in'); reset(f);
assign(g,'strmatch.out'); rewrite(g);
readln(f,a);
read(f,b);
numar:=0;
for i:=1 to length(b)-length(a)+1 do
begin
s:=copy(b,i,length(a));
if s=a then
begin
numar:=numar+1;
v[numar]:=i-1;
end;
end;
writeln(g,numar);
if numar<=1000 then
begin
for i:=1 to numar do
write(g,v[i],' ');
end
else
for i:=1 to 1000 do
write(g,v[i],' ');
close(f);
close(g);
end.