1729. blockenemy (Standard IO)

Description

你在玩电子游戏的时候遇到了麻烦。。。。。。 你玩的游戏是在一个虚拟的城市里进行，这个城市里有n个点，都从0~n-1编了号，每两个点之间有且仅有一条路径。现在，你的敌人到这个城市来踩点了!!!为了阻止他们更好的踩点， 你决定切断他们所有踩点人员的联系，使他们孤军作战，然后在各个击破。但是这就要切断某些街道，而你每切断一条路，市民就会产生相对的不满值，不满值越大，城市的和谐度就越小。所以你现在需要知道为了使踩点人员所在的点两两之间不联通所切断的边产生的最小不满值是多少？

Input

第一行一个数：n n<=50 以下n-1行，每行3个数 a，b，c 表示a点和b点之间有条路，切断这条路的不满值为c 以下若干行 每行一个数，表示踩点人员的位置

Output

一个数，最小不满值

Sample Input

5 
1 0 1 
1 2 2 
0 3 3 
4 0 4 
3 
2 
4

Sample Output

4

思路

先按每条路的不满值排序，一开始没有路，全部点都是独立的集合，在先加入不满值大的路径，没加入一条暴力判断是否有踩点人员在同一个集合。

var
  a:array[0..100,0..100] of boolean;
  c,d,e:array[0..100] of longint;
  b:array[0..100,1..3] of longint;
  i,j,k,ans,l,n,f:longint;
  t:boolean;
begin
  readln(n);
  for i:=1 to n-1 do
    readln(b[i,1],b[i,2],b[i,3]);
  l:=0;
  fillchar(a,sizeof(a),true);
  while not eoln do
    begin
      inc(l);
      readln(e[l]);
      for j:=1 to l-1 do
        begin
          a[e[j],e[l]]:=false;
          a[e[l],e[j]]:=false;
        end;

    end;
  for i:=1 to n-1 do
    for j:=i+1 to n do
      if b[i,3]<b[j,3] then
        begin
          k:=b[i,1];b[i,1]:=b[j,1];b[j,1]:=k;
          k:=b[i,2];b[i,2]:=b[j,2];b[j,2]:=k;
          k:=b[i,3];b[i,3]:=b[j,3];b[j,3]:=k;
        end;
  for i:=0 to n-1 do
    c[i]:=i;
  for i:=1 to n-1 do
    begin
      d:=c;
      t:=true;
      if (d[b[i,1]]<>d[b[i,2]]) then
        begin
          f:=d[b[i,2]];
          for j:=0 to n-1 do
            if d[j]=f then
              d[j]:=d[b[i,1]];
        end;
      for k:=1 to l do
        for j:=1 to l do
          if k<>j then
            if (d[e[k]]=d[e[j]])and(a[e[k],e[j]]=false) then t:=false;
      if not t then
        ans:=ans+b[i,3]
      else c:=d;
    end;
  writeln(ans);
end.