【CF700B】Connecting Universities（贪心，树上最短路）

题意：给出一棵树上的2*k个节点，给他们配对，使得他们之间的距离和最大。

思路：一条边的两侧如果有一侧没有给定的节点就不会被经过……

如果有1个节点就会被经过1次……

如果两侧分别有x,y个给定节点就会被经过min(x,y)次

因为要使总路程最大就是让每一条路被走过最多的次数

肯定是两侧各取一个 剩下的只能在某侧内部解决

所以按此统计即可

答案很大 用INT64

 var head,vet,next,a,b,c,dep,flag,f:array[..]of longint;
     n,k,tot,i:longint;
     ans:int64;

 procedure add(a,b:longint);
 begin
  inc(tot);
  next[tot]:=head[a];
  vet[tot]:=b;
  head[a]:=tot;
 end;

 function min(x,y:longint):longint;
 begin
  if x<y then exit(x);
  exit(y);
 end;

 procedure dfs(u,fa:longint);
 var e,v:longint;
 begin
  flag[u]:=;
  e:=head[u];
  while e<> do
  begin
   v:=vet[e];
   if (v<>fa)and(flag[v]=) then
   begin
    dep[v]:=dep[u]+;
    dfs(v,u);
    f[u]:=f[u]+f[v];
   end;
   e:=next[e];
  end;
 end;

 begin
  read(n,k);
  for i:= to *k do
  begin
   read(c[i]);
   f[c[i]]:=;
  end;
  for i:= to n- do
  begin
   read(a[i],b[i]);
   add(a[i],b[i]);
   add(b[i],a[i]);
  end;
  dfs(,-);
  for i:= to n- do
   if dep[a[i]]>dep[b[i]] then ans:=ans+min(f[a[i]],*k-f[a[i]])
    else ans:=ans+min(f[b[i]],*k-f[b[i]]);
  writeln(ans);

 end.