排座椅
1147 排座椅
2008年NOIP全國聯賽普及組
時間限制: 1 s 空間限制: 128000 KB 題目等級 : 黃金 Gold 題目描述 Description上課的時候總有一些同學和前後左右的人交頭接耳，這是令小學班主任十分頭疼的一件事情。不過，班主任小雪發現了一些有趣的現象，當同學們的座次確定下來之後，只有有限的D對同學上課時會交頭接耳。同學們在教室中坐成了M行N列，坐在第i行第j列的同學的位置是（i，j），為了方便同學們進出，在教室中設定了K條橫向的通道，L條縱向的通道。於是，聰明的小雪想到了一個辦法，或許可以減少上課時學生交頭接耳的問題：她打算重新擺放桌椅，改變同學們桌椅間通道的位置，因為如果一條通道隔開了兩個會交頭接耳的同學，那麼他們就不會交頭接耳了。
請你幫忙給小雪編寫一個程式，給出最好的通道劃分方案。在該方案下，上課時交頭接耳的學生對數最少。
第一行，有5各用空格隔開的整數，分別是M，N，K，L，D（2<=N，M<=1000，0<=K<M，0<=L<N，D<=2000）。
接下來D行，每行有4個用空格隔開的整數，第i行的4個整數Xi，Yi，Pi，Qi，表示坐在位置(Xi,Yi)與(Pi,Qi)的兩個同學會交頭接耳（輸入保證他們前後相鄰或者左右相鄰）。
輸入資料保證最優方案的唯一性。
輸出描述 Output Description共兩行。
第一行包含K個整數，a1a2……aK，表示第a1行和a1+1行之間、第a2行和第a2+1行之間、…、第aK行和第aK+1行之間要開闢通道，其中ai< ai+1，每兩個整數之間用空格隔開（行尾沒有空格）。
第二行包含L個整數，b1b2……bk，表示第b1列和b1+1列之間、第b2列和第b2+1列之間、…、第bL列和第bL+1列之間要開闢通道，其中bi< bi+1，每兩個整數之間用空格隔開（行尾沒有空格）。
樣例輸入 Sample Input4 5 1 2 3
4 2 4 3
2 3 3 3
2 5 2 4
樣例輸出 Sample Output2
2 4
———————————————————分割線—————————————————————————————————
這本來是道水題，然而本蒟蒻實在太弱。貪心+4個快排（2個用來排在一列或一行設定過道可以隔開講話的人的人數（大到小） 另外兩個用來排最後輸出的答案）可已解決，但是我不知道為什麼只有90……
附上90分程式碼（等我a掉換成ac程式碼）
var x1,y1,m,n,k,l,d,i:longint;x,y,p,q,fx,fy,fx1,fy1:array[1..1001] of longint;
function min(a,b:longint):longint;
begin
if a<b then exit(a)
else exit(b)
end;
procedure sort(l,r: longint);
var
i,j,x,y: longint;
begin
i:=l;
j:=r;
x:=fx[(l+r) div 2];
repeat
while fx[i]>x do
inc(i);
while x>fx[j] do
dec(j);
if not(i>j) then
begin
y:=fx[i];
fx[i]:=fx[j];
fx[j]:=y;
y:=fx1[i];
fx1[i]:=fx1[j];
fx1[j]:=y;
inc(i);
j:=j-1;
end;
until i>j;
if l<j then
sort(l,j);
if i<r then
sort(i,r);
end;
procedure sort3(l,r: longint);
var
i,j,x,y: longint;
begin
i:=l;
j:=r;
x:=fx1[(l+r) div 2];
repeat
while fx1[i]<x do
inc(i);
while x<fx1[j] do
dec(j);
if not(i>j) then
begin
y:=fx[i];
fx[i]:=fx[j];
fx[j]:=y;
y:=fx1[i];
fx1[i]:=fx1[j];
fx1[j]:=y;
inc(i);
j:=j-1;
end;
until i>j;
if l<j then
sort3(l,j);
if i<r then
sort3(i,r);
end;
procedure sort1(l,r: longint);
var
i,j,x,y: longint;
begin
i:=l;
j:=r;
x:=fy[(l+r) div 2];
repeat
while fy[i]>x do
inc(i);
while x>fy[j] do
dec(j);
if not(i>j) then
begin
y:=fy[i];
fy[i]:=fy[j];
fy[j]:=y;
y:=fy1[i];
fy1[i]:=fy1[j];
fy1[j]:=y;
inc(i);
j:=j-1;
end;
until i>j;
if l<j then
sort1(l,j);
if i<r then
sort1(i,r);
end;
procedure sort4(l,r: longint);
var
i,j,x,y: longint;
begin
i:=l;
j:=r;
x:=fy1[(l+r) div 2];
repeat
while fy1[i]<x do
inc(i);
while x<fy1[j] do
dec(j);
if not(i>j) then
begin
y:=fy[i];
fy[i]:=fy[j];
fy[j]:=y;
y:=fy1[i];
fy1[i]:=fy1[j];
fy1[j]:=y;
inc(i);
j:=j-1;
end;
until i>j;
if l<j then
sort4(l,j);
if i<r then
sort4(i,r);
end;
begin
x1:=0;
y1:=0;
readln(m,n,k,l,d);
for i:=1 to d do
begin
read(x[i],y[i],p[i],q[i]);
if p[i]=x[i] then begin inc(fy[min(y[i],q[i])]);fy1[min(y[i],q[i])]:=min(y[i],q[i]);inc(y1);end
else begin inc(fx[min(x[i],p[i])]);fx1[min(x[i],p[i])]:=min(x[i],p[i]);inc(x1); end;
end;
sort(1,m);
sort1(1,n);
sort3(1,k);
sort4(1,l);
for i:=1 to k-1 do
write(fx1[i],' ');
writeln(fx1[k]);
for i:=1 to l-1 do
write(fy1[i],' ');
writeln(fy1[l]);
end.