Sequence（pascal）堆

题意：

给n各组的数，每个组m个数，求出每个组去一个数的的和最小的m个数。

思路：

可以记录一个Δ为每个组的数对答案的影响，然后用堆维护Δ的最小值，然后会超时…..mdzz
这题想了我半天，本来想直接去网上看题解的，结果ymw大神说自己想（虽然他自己都想错了）。然后万般无奈就只能去百度搜索了。
正解：
1.将第一组数据输入arr1数组，升序排序。
2.将接下来的数据输入到arr2数组中，并且heap[i]=arr1[0]+arr2[0…n-1]，
然后建一个堆
3.arr1数组从1到n-1，比较temp=arr1[i]+arr2[0…n-1]与堆顶的元素，如果temp比较小，则将堆顶元素pop，添加temp到heap；否则跳出循环。
4.将heap中的元素全部赋值给arr1数组，升序排序，重复2,3两步，直到所有数据全部处理完。

时间复杂度：

这题时间复杂度只看程序就是n次方logn。
但是在枚举每个数得时候最多就只会比较n次，然后就全部被break掉。所以就是（n*n*logn）

const
 maxn=2000;
 maxv=200;
var
 data,data1,dataq:array [0..maxn] of longint;
 f:array [0..maxn,0..maxv] of longint;
 sum,k,t,i,j,n,m,p,ii:longint;
 q:array [0..maxv] of longint;

procedure siftup(x:longint);
var
 i,j:longint;
begin
 i:=x;
 j:=x div 2;
 while j<>0 do
 begin
  if dataq[i]>dataq[j] then
  begin
   dataq[0]:=dataq[i];
   dataq[i]:=dataq[j];
   dataq[j]:=dataq[0];
  end else break;
  i:=j;
  j:=j div 2;
 end;
end;

procedure qsort(l,r:longint);
var
 i,j,mid:longint;
begin
 i:=l; j:=r;
 mid:=data[(l+r) div 2];
 while i<j do
 begin
  while data[i]<mid do inc(i);
  while data[j]>mid do dec(j);
  if i<=j then
  begin
   data[0]:=data[i];
   data[i]:=data[j];
   data[j]:=data[0];
   inc(i); dec(j);
  end;
 end;
 if i<r then qsort(i,r);
 if l<j then qsort(l,j);
end;

procedure siftdown(x:longint);
var
 i,j:longint;
begin
 i:=x;
 j:=x*2;
 while j<=m do
 begin
  if (j+1<=m) and (dataq[j]<dataq[j+1]) then inc(j);
  if dataq[j]>dataq[i] then
  begin
   dataq[0]:=dataq[i];
   dataq[i]:=dataq[j];
   dataq[j]:=dataq[0];
  end else break;
  i:=j;
  j:=j*2;
 end;
end;

begin
 readln(t);
 for k:=1 to t do
 begin
  fillchar(f,sizeof(f),$7f);
  sum:=0;
  readln(n,m);
  for i:=1 to m do
   read(data[i]);
  readln;
  for j:=1 to m-1 do
    for ii:=j+1 to m do
     if data[j]>data[ii] then
     begin
      data[0]:=data[j];
      data[j]:=data[ii];
      data[ii]:=data[0];
     end;
  for i:=1 to n-1 do
  begin
   for j:=1 to m do
    read(data1[j]);
   readln;

   for j:=1 to m-1 do
    for ii:=j+1 to m do
     if data1[j]>data1[ii] then
     begin
      data1[0]:=data1[j];
      data1[j]:=data1[ii];
      data1[ii]:=data1[0];
     end;

   for j:=1 to m do
   begin
    dataq[j]:=data[j]+data1[1];
    siftup(j);
   end;
   for j:=2 to m do
    for ii:=1 to m do
     if data1[j]+data[ii]<dataq[1] then
     begin
      dataq[1]:=data1[j]+data[ii];
      siftdown(1);
     end else break;
   data:=dataq;
   qsort(1,m);
   fillchar(dataq,sizeof(dataq),0);
  end;
  for i:=1 to m do
   write(data[i],' ');
  writeln;
 end;
end.