bzoj 3943 最大生成树

题意：给定n个数，每次任选两个数，将这两个数的xor累加到ans里并删除其中一个数，重复操作直到只剩一个数，求ans的最大值

...一开始sb的写了个暴力贪心，在改了1h对拍后才发现naive的贪错了...

于是果断放弃挣扎

如果把比赛的两个人之间连边的话，n-1次操作后就会得到一棵树，实质上一棵树就对应着一种比赛的安排方案

那么这题实际上就是求n*（n-1）边、n个点的最大生成树，边权为两个端点的xor值

type
        rec=record
            x,y,len:longint;
end;

var
        n,tt,tot,tx,ty  :longint;
        i,j             :longint;
        ans             :int64;
        l               :array[0..4000010] of rec;
        father,a        :array[0..2010] of longint;

function get_father(x:longint):longint;
begin
   if x=father[x] then exit(x);
   father[x]:=get_father(father[x]);
   exit(father[x]);
end;

procedure sort(ll,rr:longint);
var
        i,j,x:longint;
        y:rec;
begin
   i:=ll; j:=rr; x:=l[(ll+rr)>>1].len;
   while i<=j do
   begin
      while l[i].len>x do inc(i);
      while l[j].lenll then sort(ll,j);
end;

begin
   read(n);
   for i:=1 to n do father[i]:=i;
   for i:=1 to n do read(a[i]);
   tot:=0;
   for i:=1 to n do
     for j:=i+1 to n do
     begin
        inc(tot);
        l[tot].x:=i; l[tot].y:=j; l[tot].len:=a[i] xor a[j];
     end;
   sort(1,tot);
   tt:=0; ans:=0;
   for i:=1 to tot do
   begin
      tx:=get_father(l[i].x);
      ty:=get_father(l[i].y);
      if tx<>ty then
      begin
         inc(tt);
         father[tx]:=ty;
         inc(ans,int64(l[i].len));
         if tt=n-1 then break;
      end;
   end;
   writeln(ans);
end.

——by Eirlys