繁忙的都市

繁忙的都市

Problem
城市C是一个非常繁忙的大都市，城市中的道路十分的拥挤，于是市长决定对其中的道路进行改造。城市C的道路是这样分布的：城市中有n个交叉路口，有些交叉路口之间有道路相连，两个交叉路口之间最多有一条道路相连接。这些道路是双向的，且把所有的交叉路口直接或间接的连接起来了。每条道路都有一个分值，分值越小表示这个道路越繁忙，越需要进行改造。但是市政府的资金有限，市长希望进行改造的道路越少越好，于是他提出下面的要求：
1.改造的那些道路能够把所有的交叉路口直接或间接的连通起来。
2.在满足要求1的情况下，改造的道路尽量少。
3.在满足要求1、2的情况下，改造的那些道路中分值最大的道路分值尽量小。
任务：作为市规划局的你，应当作出最佳的决策，选择那些道路应当被修建。

Input
第一行有两个整数n,m表示城市有n个交叉路口，m条道路。接下来m行是对每条道路的描述，u, v, c表示交叉路口u和v之间有道路相连，分值为c。(1≤n≤300，1≤c≤10000)
Output
一行，两个整数s, max，表示你选出了几条道路，分值最大的那条道路的分值是多少。

Sample Input
4 5
1 2 3
1 4 5
2 4 7
2 3 6
3 4 8
Sample Output
3 6

Kruskal算法简单改装

Var
  f,a,b,c:Array[0..10001] of longint;
  n,m,DA,i,l,r:longint;
Procedure qSort(l,r:longint);
  Var
    i,j,Tmp,Mid:longint;
  Begin
    i:=l;
    j:=r;
    Mid:=a[(l+r) Shr 1];
    Repeat
      While a[i]<Mid Do inc(i);
      While Mid<a[j] Do Dec(j);
      if i<=j then
        Begin
          Tmp:=a[i];
          a[i]:=a[j];
          a[j]:=Tmp;
          Tmp:=b[i];
          b[i]:=b[j];
          b[j]:=Tmp;
          Tmp:=c[i];
          c[i]:=c[j];
          c[j]:=Tmp;
          inc(i);
          Dec(j);
        End;
    Until i>j;
    if i<r Then qSort(i,r);
    if l<j Then qSort(l,j);
  End;
Function Find(x:longint):longint;
  Begin
    if f[x]=0 Then Exit(x);
    f[x]:=Find(f[x]);
    Exit(f[x]);
  End;
Begin
  Read(n,m);
  For i:=1 to m do
    Read(a[i],b[i],c[i]);
  qSort(1,m);
  FillChar(f,SizeOf(f),0);
  DA:=1;
  For i:=1 to m do
    Begin
      l:=Find(a[i]);
      r:=Find(b[i]);
      if l<>r Then
        Begin
          Inc(DA);
          f[l]:=r;
          if DA=n Then
            Begin
              Writeln(DA-1,' ',c[i]);
              Exit;
            End;
        End;
    End;
End.