program hjsd;const dx:array[1..4] of integer=(1,0,0,-1); dy:array[1..4] of integer=(0,1,-1,0);var f:array[0..100,-1..7,-1..7,0..2] of longint; mouse:array[1..5,1..5,1..100] of boolean; sum:array[1..5,1..15] of longint; s,a,b,c,d,i,j,k,n,m,l,l1,x,y:longint;begin read(n,m); for i:=1 to n dobegin read(a,b,c,d); for j:=c to d do
f[a,b,j]:=true; end; filchar(f,sizeof(f),0); for i:=1 to m do beginfor j:=-1 to 7 do for k:=0 to 1 do begin
f[i,-1,j,k]:=-9999;f[i,7,j,k]:=-9999;
f[i,-1,j,k]:=-9999;f[i,7,j,k]:=-9999; end;for j:=0 to 6 do begin
f[i,0,j,0]:=-9999;f[i,6,j,0]:=-9999;
f[i,j,0,0]:=-9999;f[i,j,6,0]:=-9999; end; for i:=1 to m dobeginfor j:=1 to 5 do for k:=1 to 5 do
for l:=1 to 4 do
begin
if f[i-1,j+dx[l],k+dy[l],1]>f[i,j,k,1] then f[i,j,k,1]:=f[i-1,j+dx[l],k+dy[l]];
if mouse[j,k,i] then f[i,j,k,1]:=f[i,j,k,1]+1;
if f[i-1,j+dx[l],k+dy[l],0]>f[i,j,k,0] then f[i,j,k,0]:=f[i-1,j+dx[l],f[k+dy[l]];
if mouse[j,k,i] then f[i,j,k,0]:=f[i,j,k,1]+1;
end; s:=0; for j:=1 to 5 do
begin
f[i,0,j,1]:=f[i,1,j,0];if f[i,0,j,1]>s then begin s:=f[i,0,j,1];x:=1;y:=j;end;
f[i,j,0,1]:=f[i,j,1,0];if f[i,j,0,1]>s then begin s:=f[i,j,0,1];x:=j;y:=1;end;
f[i,6,j,1]:=f[i,5,j,0];if f[i,6,j,1]>s then begin s:=f[i,6,j,1];x:=5;y:=j;end;
f[i,j,6,1]:=f[i,j,5,0];if f[i,j,6,1]>s then begin s:=f[i,j,6,1];x:=j;y:=5;end;
end; for |
