题目描述 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
解题思路
这是一道灰常灰常裸的最短路,用并查集优化的克鲁斯卡尔就好。。。呼呼呼
1 program RebuildPath; 2 type paa=record 3 l,r,t:longint; 4 end; 5 var 6 ro:array[1..1000] of longint; 7 pa:array[1..100000] of paa; 8 m,n,i,j,ans,cheak:Longint; 9 function root(i:longint):longint; 10 begin 11 if ro[i]=i then exit(i); 12 root:=root(ro[i]); 13 ro[i]:=root; 14 exit(root); 15 end; 16 17 procedure union(x,y:Longint); 18 begin 19 ro[root(x)]:=root(y); 20 end; 21 22 procedure sort(l,r: longint); 23 var 24 i,j,x: longint; 25 y:paa; 26 begin 27 i:=l; 28 j:=r; 29 x:=pa[(l+r) div 2].t; 30 repeat 31 while pa[i].t<x do 32 inc(i); 33 while x<pa[j].t do 34 dec(j); 35 if not(i>j) then 36 begin 37 y:=pa[i]; 38 pa[i]:=pa[j]; 39 pa[j]:=y; 40 inc(i); 41 j:=j-1; 42 end; 43 until i>j; 44 if l<j then 45 sort(l,j); 46 if i<r then 47 sort(i,r); 48 end; 49 begin 50 read(n,m); 51 for i:=1 to n do ro[i]:=i; 52 for i:=1 to m do 53 begin 54 read(pa[i].l,pa[i].r,pa[i].t); 55 end; 56 sort(1,m); 57 for i:=1 to m do 58 if (root(pa[i].l))<>root(pa[i].r) then 59 begin 60 union(root(pa[i].l),root(pa[i].r)); 61 ans:=pa[i].t; 62 end; 63 cheak:=root(1); 64 for i:=1 to n do if root(i)=cheak then continue else 65 begin 66 writeln(-1); 67 halt; 68 end; 69 writeln(ans); 70 end.
时间: 2024-08-25 21:20:12