I am not Liar
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
БЛИН! весь вечер переписывал задачу про этого Васю..задача вроде бы простейшая..но из 20 различных решений ни одно не прошло полностью..проходятся от 7 до 14 тестов..я уже создал два массива, первый и второй день..все равно не хочет работать...помогите пожалуйста с этой задачей...
Код:
var
a,b:array[0..2500] of boolean;
vasiliy,res:integer;
procedure init;
var i,j,k,l,m,n,o:integer;
begin
readln(i,j);
vasiliy:=i*60+j;
readln(k);
for i:=0 to 1439 do begin
a[i]:=false;
b[i]:=false;
end;
for i:=1 to k do begin
readln(l);
readln(m);
for j:=1 to m do begin
readln(n,o);
if n*60+o+l<1440 then a[n*60+o+l]:=true;
if n*60+o+l>=1440 then b[(n*60+o+l)-1440]:=true;
end;
end;
for i:=0 to 1439 do begin
if a[i]=true then begin
b[i]:=true;
end;
end;
end;
procedure run;
var i,j,k:integer;
begin
i:=vasiliy;
j:=0;
while (i<1440) and (not a[i]) do inc(i);
if i=1440 then begin
j:=1440;
i:=0;
while (i<1440) and (not b[i]) do inc(i);
end;
res:=i+j-vasiliy;
end;
procedure outd;
begin
write(res);
end;
begin
init;
run;
outd;
end.
|
|
на самом деле это не критично...я бы все таки хотел узнать, как оптимизировать алгоритм задачи с палиндромами. Может перед полным перебором эвристику провести? Если да, то какую?