洛谷 1056——排座椅(簡單的模擬)
題目描述
上課的時候總會有一些同學和前後左右的人交頭接耳,這是令小學班主任十分頭疼的一件事情。不過,班主任小雪發現了一些有趣的現象,當同學們的座次確定下來之後,只有有限的D對同學上課時會交頭接耳。同學們在教室中坐成了M行N列,坐在第i行第j列的同學的位置是(i,j),為了方便同學們進出,在教室中設定了K條橫向的通道,L條縱向的通道。於是,聰明的小雪想到了一個辦法,或許可以減少上課時學生交頭接耳的問題:她打算重新擺放桌椅,改變同學們桌椅間通道的位置,因為如果一條通道隔開了兩個會交頭接耳的同學,那麼他們就不會交頭接耳了。
請你幫忙給小雪編寫一個程式,給出最好的通道劃分方案。在該方案下,上課時交頭接耳的學生的對數最少。
輸入輸出格式
輸入格式:
輸入檔案seat.in的第一行,有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)的兩個同學會交頭接耳(輸入保證他們前後相鄰或者左右相鄰)。
輸入資料保證最優方案的唯一性。
輸出格式:
輸出檔案seat.out共兩行。
第一行包含K個整數,a1,a2……aK,表示第a1行和a1+1行之間、第a2行和a2+1行之間、…、第aK行和第aK+1行之間要開闢通道,其中ai< ai+1,每兩個整數之間用空格隔開(行尾沒有空格)。
第二行包含L個整數,b1,b2……bL,表示第b1列和b1+1列之間、第b2列和b2+1列之間、…、第bL列和第bL+1列之間要開闢通道,其中bi< bi+1,每兩個整數之間用空格隔開(列尾沒有空格)。
輸入輸出樣例
輸入樣例#1:
4 5 1 2 3
4 2 4 3
2 3 3 3
2 5 2 4
輸出樣例#1:
2
2 4
說明
上圖中用符號*、※、+標出了3對會交頭接耳的學生的位置,圖中3條粗線的位置表示通道,圖示的通道劃分方案是唯一的最佳方案。
讀入1對學生座標時,為該行或該列的陣列+1(即該行或列可以分割多少名學生)然後分別排序這些數值,最後從大到小累加,直到該行或該列不能分割為止
type arr=array[1..1000]of longint;
var h,k1,k2,l,n,x1,x2,y1,y2,i,j:longint;
a1,a2,x,b,a:arr;
procedure qsort(k:longint);
var i,j,t:longint;
begin
for i:=1 to k-1 do
for j:=i+1 to k do
if b[i]>b[j] then
begin
t:=b[i];
b[i]:=b[j];
b[j]:=t;
end;
end;
procedure sort(n:longint);
var
i,j,t:longint;
begin
for i:=1 to n-1 do
for j:=i+1 to n do
if (a[i]<a[j]) then
begin
t:=a[i]; a[i]:=a[j]; a[j]:=t;
t:=b[i]; b[i]:=b[j]; b[j]:=t;
end;
end;
begin
read(h,l,k1,k2,n);
for i:=1 to n do
begin
readln(x1,y1,x2,y2);
if x1=x2 then
begin
if y1>y2 then inc(a1[y2]);
if y1<y2 then inc(a1[y1]);
end;
if y1=y2 then
begin
if x1>x2 then inc(a2[x2]);
if x1<x2 then inc(a2[x1]);
end;
end;
for i:=1 to l do x[i]:=i;
a:=a2; b:=x; sort(l); qsort(k1); for i:=1 to k1 do write(b[i],' ');
for i:=1 to h do x[i]:=i;
writeln;
a:=a1; b:=x; sort(h); qsort(k2); for i:=1 to k2 do write(b[i],' ');
end.