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[1..1000] of longint;
pa:array[1..100000] 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 2].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-1;
             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:=1 to n do ro[i]:=i;
    for i:=1 to m do
    begin
        read(pa[i].l,pa[i].r,pa[i].t);
    end;
    sort(1,m);
    for i:=1 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(1);
    for i:=1 to n do if root(i)=cheak then continue else
    begin
        writeln(-1);
        halt;
    end;
    writeln(ans);
end.