局域网(最小生成树)

Description

　　某个局域网内有n(n<=100)台计算机，由于搭建局域网时工作人员的疏忽，现在局域网内的连接形成了回路，我们知道如果局域网形成回路那么数据将不停的在回路内传输，造成网络卡的现象。因为连接计算机的网线本身不同，所以有一些连线不是很畅通，我们用f(i,j)表示i,j之间连接的畅通程度(f(i,j)<=1000)，f(i,j)值越小表示i,j之间连接越通畅，f(i,j)为0表示i,j之间无网线连接。现在我们需要解决回路问题，我们将除去一些连线，使得网络中没有回路，并且被除去网线的Σf(i,j)最大，请求出这个最大值。

Input

第一行两个正整数n k
接下来的k行每行三个正整数i j m表示i,j两台计算机之间有网线联通，通畅程度为m

Output

一个正整数，Σf(i,j)的最大值

Sample Input

5 5

1 2 8

1 3 1

1 5 3

2 4 5

3 4 2

Sample Output

8   (拆除红色网线)

   这道题目很显然是最小生成树，求出最小值后，用总通畅程度减去最小值即可。

标程：

·              var

·               p,r:array [1..2001] of longint;

·               a:array [1..10001,1..3] of longint;

·               n,m,p1,u,v,w,ans,k,i:longint;

·              function find(x:longint):longint;

·               var y,root,w:longint;

·               begin

·               y:=x;

·                 while p[y]>0 do

·                  y:=p[y];

·                 root:=y;

·                 y:=x;

·                 while p[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);

·               if u=v then exit;

·               if r[u]<=r[v] then

·                begin

·                 p[u]:=v;

·                 if r[u]=r[v] then inc(r[v]);

·                end

·               else p[v]:=u;

·              end;

·               

·              procedure qsort(l,r:longint);

·                var

·                  i,j,key,temp:longint;

·                begin

·                  if l>=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;

·                  until i>j;

·                  qsort(l,j);

·                  qsort(i,r);

·                end;

·               

·               

·              begin

·               readln(n,m);

·               for i:=1 to m do

·                begin

·                 readln(u,v,w);

·                  a[i,1]:=u;

·                  a[i,2]:=v;

·                  a[i,3]:=w;

·                  ans:=ans+w;

·                 end;

·               qsort(1,m);

·               for i:=1 to m do

·                begin

·                 if find(a[i,1])<>find(a[i,2]) then

·                  begin

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

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

·                  end;

·                end;

·               write(ans);

·              end.

·