Cod sursa(job #285879)
Utilizator | Data | 23 martie 2009 09:09:23 | |
---|---|---|---|
Problema | Car | Scor | 0 |
Compilator | cpp | Status | done |
Runda | Arhiva de probleme | Marime | 2.65 kb |
const d1:array[0..7]of longint=(-1,-1,0,1,1,1,0,-1);
d2:array[0..7]of longint=(0,1,1,1,0,-1,-1,-1);
var ax,ay,ad,bx,by,bd:array[0..2000000]of longint;
n,i,j,k,m,x1,x2,y1,y2,t,k1,k2,d,x,y:longint;
v:array[0..510,0..510]of longint;
pv:array[0..510,0..510,0..7]of longint;
f:text;
c:int64;
begin
assign(f,'car.in'); reset(f);
read(f,n,m); read(f,x1,y1,x2,y2);
for i:=1 to 8 do
begin
ax[i]:=x1; ay[i]:=y1; ad[i]:=i-1;
pv[x1,y1,i-1]:=1;
end;
for i:=1 to n do
for j:=1 to m do read(f,v[i,j]);
c:=0; close(f);
k1:=8; k2:=0;
while(t=0)and(k1>0)do
begin
i:=0;
while(i<k1)do
begin
i:=i+1; d:=ad[i]; x:=ax[i]+d1[d]; y:=ay[i]+d2[d];
if(v[x,y]=0)and(x>0)and(y>0)and(x<=n)and(y<=m)and(pv[x,y,ad[i]]<2)then begin k1:=k1+1;
ad[k1]:=ad[i];
ax[k1]:=x;
ay[k1]:=y;
pv[x,y,ad[i]]:=pv[ax[i],ay[i],d]+1;
end;
d:=(ad[i]+7)mod 8;
if pv[ax[i],ay[i],d]<1 then begin k2:=k2+1;
bd[k2]:=d;
bx[k2]:=ax[i];
by[k2]:=ay[i];
pv[ax[i],ay[i],d]:=pv[ax[i],ay[i],d]+1;
if(bx[k2]=x2)and(by[k2]=y2)then t:=1;
end;
d:=(ad[i]+1)mod 8;
if pv[ax[i],ay[i],d]<1 then begin k2:=k2+1;
bd[k2]:=d;
bx[k2]:=ax[i];
by[k2]:=ay[i];
pv[ax[i],ay[i],d]:=pv[ax[i],ay[i],d]+1;
if(bx[k2]=x2)and(by[k2]=y2)then t:=1;
end;
if(ax[i]=x2)and(ay[i]=y2)then t:=1;
end;
k1:=k2; k2:=0;
for i:=1 to k1 do
begin
ax[i]:=bx[i];
ay[i]:=by[i];
ad[i]:=bd[i];
end;
if t=0 then c:=c+1;
end;
if(k2=0)and(t=0)then c:=-1;
assign(f,'car.out');
rewrite(f);
writeln(f,c);
close(f);
end.