Игроки-2, нужно оптимизировать Опции

[volvo]

Нет, ребята, я просто в шоке. Нашел еще одно уязвимое место - какое говорить не буду, чтоб не лишать вас удовольствия найти его самостоятельно. Исправил. Что вы думаете? Прошло? Ага, 13-тый тест прошло... На 18-ом застопорилось. В общем, я как-то больше и не хочу этой задачей заниматься... Строка с надписью "неверный ответ на тесте №65536" добьет меня окончательно...

[volvo]

Я-таки добил эту задачку... Зачли наконец-то...

xxx000, я в результате сдал чуть-чуть подправленный код из 18-го поста. Составитель тестов был хитрый, видимо. Но... Все-же я его "раскусил"...

[xxx000]

http://contester.tsure.ru/ - все вопросы к ней
вот мой код который прошёл все тесты

 var
 a,b:array[1..1025] of longint;
 d:array[-1..350000] of integer;
 f,c,j,i,k,l,n,m,o,p,w,q,z,x,y:longint;
begin
 readln(z);
 n:=1;
 for i:=1 to z do n:=n*2;
 readln(x,y);
 f:=(n*n-1) div 3;
 for i:=1 to n do
 begin
  read(a[i]);
  if a[i]>f then
  begin
   writeln('Wrong Answer');
   halt;
  end;
 end;
 if (x=1)and(a[y]<>0) then
 begin
  writeln('Wrong Answer');
  halt;
 end;

 for i:=2 to n do
 begin
  for j:=1 to n do
  begin
   read(b[j]);
   if b[j]>f then
   begin
    writeln('Wrong Answer');
    halt;
   end;
  end;
  if (x=i)and(b[y]<>0) then
  begin
   writeln('Wrong Answer');
   halt;
  end;

  for j:=1 to n do
  begin
   inc(d[a[j]]);
   if (a[j]=-1) then inc(o);
   if (a[j]>0)and(a[j+1]=a[j])and((b[j]=a[j])or(b[j+1]=a[j])) then
   begin
    inc(d[a[j]],2);
    inc(o);
    inc(p);
    if (b[j]=a[j]) then b[j]:=-1 else
     if b[j+1]=a[j] then b[j+1]:=-1;
    a[j]:=-1;
    a[j+1]:=-1;
   end;
   if (a[j]>0)and(a[j]=b[j])and((a[j]=b[j+1])or(a[j]=b[j-1])) then
   begin
    inc(d[a[j]],2);
    inc(o);
    if (b[j+1]=a[j]) then b[j+1]:=-1 else
     if (b[j-1]=a[j]) then b[j-1]:=-1;
    inc(p);
    a[j]:=-1;
    b[j]:=-1;
   end;
   if (a[j]=0)and(q=1) then
   begin
    writeln('Wrong Answer');
    halt;
   end;
   if (a[j]=0) then
   begin
    inc(o);
    inc(q);
    a[j]:=-1;
   end;
  end;

  for j:=1 to n do a[j]:=b[j];
 end;
{ for i:=1 to n do
 begin
  if (a[j]<>-1)or((a[j]<>0)and(y=n)and(x=j)) then
  begin
   writeln('Wrong Answer');
   halt;
  end;
 end;
} for i:=1 to 350000 do
  if d[i]>3 then
  begin
   writeln('Wrong Answer');
   halt;
  end;
  if n*n-(p*3)<>1 then
  begin
   writeln('Wrong Answer');
   halt;
  end;
 writeln('Accepted');
end.

volvo я где ты сдавал????
и кстати я её сдал со 140 раза

Сообщение отредактировано: xxx000 - 18.04.2010 23:25