排座椅

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

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.