洛谷_P1056 排座椅

题目描述

上课的时候总会有一些同学和前后左右的人交头接耳，这是令小学班主任十分头疼的一件事情。不过，班主任小雪发现了一些有趣的现象，当同学们的座次确定下来之后，只有有限的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，每两个整数之间用空格隔开（列尾没有空格）。

题解：

使用结构体标记x,y轴，然后在读入每一对同学时，如果他们x轴相同就放在一个组，y轴相同放在另一个组，然后把对应的数组的值+1。
（对于x轴和y轴，某一条无论怎么分割对其他的分割线都没有影响。）
然后对读入后这两个结构体的值降序排序，取前k和前l个的位置坐标输出即可，可以证明这是最优的思路。

代码：

var
  s,d,f,g,h,j,z:longint; a:array[1..3000,1..5] of integer;
  a1:array[1..3000,1..5] of integer;
  m,n,k,l,i:integer;
begin
  read(m,n,k,l,i);
  z:=0; j:=0;
  for s:=1 to i do
    begin
      read(d,f,g,h);
      if d=g then
        begin
          z:=z+1;
          if f<h
           then
            begin
              a[z,1]:=f; a[z,2]:=h; a[z,5]:=d;
            end
           else
            begin
              a[z,1]:=h; a[z,2]:=f; a[z,5]:=d
            end;
        end;
      if f=h then
        begin
          j:=j+1;
          if d<g
           then
            begin
              a1[j,1]:=d; a1[j,2]:=g; a1[j,5]:=f;
            end
           else
             begin
              a1[j,1]:=g; a1[j,2]:=d; a1[j,5]:=f;
            end;
        end;
    end;
  for s:=1 to j do
    if a1[s,3]=0 then
      begin
        a1[s,3]:=1; a1[s,4]:=a1[s,4]+1;
        for d:=s+1 to j do
          if (a1[s,1]=a1[d,1]) and (a1[s,2]=a1[d,2])
            then
              begin
                a1[d,3]:=1; a1[s,4]:=a1[s,4]+1;
              end;
      end;
  for s:=1 to j-1 do
    for d:=s+1 to j do
      if a1[s,4]<a1[d,4] then
        for f:=1 to 5 do
          begin
            g:=a1[s,f]; a1[s,f]:=a1[d,f]; a1[d,f]:=g;
          end;
  for s:=1 to k-1 do
    for d:=s+1 to k do
      if a1[s,1]>a1[d,1] then
        for f:=1 to 5 do
          begin
            g:=a1[s,f]; a1[s,f]:=a1[d,f]; a1[d,f]:=g;
          end;
  for s:=1 to k do
    write(a1[s,1],' ');
  writeln;
  for s:=1 to z do
    if a[s,3]=0 then
      begin
        a[s,3]:=1; a[s,4]:=a[s,4]+1;
        for d:=s+1 to z do
          if (a[s,1]=a[d,1]) and (a[s,2]=a[d,2])
            then
              begin
                a[d,3]:=1; a[s,4]:=a[s,4]+1;
              end;
      end;
  for s:=1 to z-1 do
    for d:=s+1 to z do
      if a[s,4]<a[d,4] then
        for f:=1 to 5 do
          begin
            g:=a[s,f]; a[s,f]:=a[d,f]; a[d,f]:=g;
          end;
  for s:=1 to l-1 do
    for d:=s+1 to l do
      if a[s,1]>a[d,1] then
        for f:=1 to 5 do
          begin
            g:=a[s,f]; a[s,f]:=a[d,f]; a[d,f]:=g;
          end;
  for s:=1 to l do
    write(a[s,1],' ');
end.