blockenemy

Description

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

Input

第一行一个数：nn<=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

 c,p,p1,b:Array [0..100] of longint;

 a:array[0..100,0..3] of longint;

 n,i,j,ans,k,t,x:longint;

 flag:boolean;

function find(x:longint):longint;

var y,root,w:longint;

begin

 y:=x;

   whilep[y]>0 do

   y:=p[y];

  root:=y;

   y:=x;

   whilep[y]>0 do

    begin

    w:=p[y];

    p[y]:=root;

    y:=w;

    end;

  find:=root;

 end;

 

procedure union(x,y:longint);

 var

 u,v:longint;

 begin

 u:=find(x);

 v:=find(y);

 p[v]:=u;

end;

 

procedure qsort(l,r:longint);

  var

    i,j,key,temp:longint;

  begin

    ifl>=r then exit;

   i:=l;j:=r;

   key:=a[l+random(r-l+1),3];

    repeat

     while  (a[i,3]>key) do inc(i);

     while  (a[j,3]<key) do dec(j);

     if i<=j then

     begin

       temp:=a[i,1];a[i,1]:=a[j,1];a[j,1]:=temp;

       temp:=a[i,2];a[i,2]:=a[j,2];a[j,2]:=temp;

       temp:=a[i,3];a[i,3]:=a[j,3];a[j,3]:=temp;

       inc(i);dec(j);

     end;

    untili>j;

   qsort(l,j);

   qsort(i,r);

  end;

 

begin

 readln(n);

 fori:=1 to n-1 do

  begin

   read(a[i,1],a[i,2],a[i,3]);

  ans:=ans+a[i,3];

  end;

 qsort(1,n-1);

 whilenot eof do

  begin

  inc(t);

  readln(x);

  c[t]:=x;

  end;

 fori:=1 to n-1 do

  begin

  ans:=ans-a[i,3];

  p1:=p;

  union(a[i,1]+1,a[i,2]+1);

  flag:=true;

   forj:=1 to t do

    b[j]:=find(c[j]+1);

   forj:=1 to t-1 do

    fork:=j+1 to t do

     if b[j]=b[k] then flag:=false;

   ifnot flag then

    begin

    p:=p1;

    ans:=ans+a[i,3];

    end;

  end;

 writeln(ans);

end.