排座椅

来源：互联网发布：微信牛牛作弊器软件编辑：程序博客网时间：2024/04/27 07:18

1147 排座椅

2008年NOIP全国联赛普及组

时间限制: 1 s

空间限制: 128000 KB

题目等级 : 黄金 Gold

题目描述 Description

上课的时候总有一些同学和前后左右的人交头接耳，这是令小学班主任十分头疼的一件事情。不过，班主任小雪发现了一些有趣的现象，当同学们的座次确定下来之后，只有有限的D对同学上课时会交头接耳。同学们在教室中坐成了M行N列，坐在第i行第j列的同学的位置是（i，j），为了方便同学们进出，在教室中设置了K条横向的通道，L条纵向的通道。于是，聪明的小雪想到了一个办法，或许可以减少上课时学生交头接耳的问题：她打算重新摆放桌椅，改变同学们桌椅间通道的位置，因为如果一条通道隔开了两个会交头接耳的同学，那么他们就不会交头接耳了。

请你帮忙给小雪编写一个程序，给出最好的通道划分方案。在该方案下，上课时交头接耳的学生对数最少。

输入描述 Input Description

第一行，有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 Input

4 5 1 2 3

4 2 4 3

2 3 3 3

2 5 2 4

样例输出 Sample Output

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.

阅读全文

0 0