CODEVS 1638 修复公路

题目描述 Description

A地区在地震过后，连接所有村庄的公路都造成了损坏而无法通车。政府派人修复这些公路。

给出A地区的村庄数N，和公路数M，公路是双向的。并告诉你每条公路的连着哪两个村庄，并告诉你什么时候能修完这条公路。问最早什么时候任意两个村庄能够通车，即最早什么时候任意两条村庄都存在至少一条修复完成的道路（可以由多条公路连成一条道路）

输入描述 Input Description

第1行两个正整数N，M（N<=1000，M<=100000）

下面M行，每行3个正整数x, y, t，告诉你这条公路连着x,y两个村庄，在时间t时能修复完成这条公路。（x<=N，y<=N，t<=100000）

输出描述 Output Description

如果全部公路修复完毕仍然存在两个村庄无法通车，则输出-1，否则输出最早什么时候任意两个村庄能够通车。

样例输入 Sample Input

4 4

1 2 6

1 3 4

1 4 5

4 2 3

样例输出 Sample Output

5

解题思路

这是一道灰常灰常裸的最短路，用并查集优化的克鲁斯卡尔就好。。。呼呼呼

 program RebuildPath;
 type paa=record
 l,r,t:longint;
 end;
 var
 ro:array[..] of longint;
 pa:array[..] of paa;
 m,n,i,j,ans,cheak:Longint;
 function root(i:longint):longint;
 begin
     if ro[i]=i then exit(i);
     root:=root(ro[i]);
     ro[i]:=root;
     exit(root);
 end;

 procedure union(x,y:Longint);
 begin
     ro[root(x)]:=root(y);
 end;

 procedure sort(l,r: longint);
       var
          i,j,x: longint;
          y:paa;
       begin
          i:=l;
          j:=r;
          x:=pa[(l+r) div ].t;
          repeat
            while pa[i].t<x do
             inc(i);
            while x<pa[j].t do
             dec(j);
            if not(i>j) then
              begin
                 y:=pa[i];
                 pa[i]:=pa[j];
                 pa[j]:=y;
                 inc(i);
                 j:=j-;
              end;
          until i>j;
          if l<j then
            sort(l,j);
          if i<r then
            sort(i,r);
       end;
 begin
     read(n,m);
     for i:= to n do ro[i]:=i;
     for i:= to m do
     begin
         read(pa[i].l,pa[i].r,pa[i].t);
     end;
     sort(,m);
     for i:= to m do
     if (root(pa[i].l))<>root(pa[i].r) then
     begin
         union(root(pa[i].l),root(pa[i].r));
         ans:=pa[i].t;
     end;
     cheak:=root();
     for i:= to n do if root(i)=cheak then continue else
     begin
         writeln(-);
         halt;
     end;
     writeln(ans);
 end.