Cod sursa(job #708840)

Utilizator mada0222Tomus Madalina mada0222 Data 7 martie 2012 12:20:18
Problema Potrivirea sirurilor Scor 40
Compilator fpc Status done
Runda Arhiva educationala Marime 0.65 kb
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.