題目背景
A地區在地震過后，連接所有村莊的公路都造成了損壞而無法通車。政府派人修復這些公路。
題目描述
給出A地區的村莊數N，和公路數M，公路是雙向的。并告訴你每條公路的連著哪兩個村莊，并告訴你什么時候能修完這條公路。問最早什么時候任意兩個村莊能夠通車，即最早什么時候任意兩條村莊都存在至少一條修復完成的道路（可以由多條公路連成一條道路）
輸入輸出格式
輸入格式： 第1行兩個正整數N，M
下面M行，每行3個正整數x, y, t，告訴你這條公路連著x,y兩個村莊，在時間t時能修復完成這條公路。
輸出格式： 如果全部公路修復完畢仍然存在兩個村莊無法通車，則輸出-1，否則輸出最早什么時候任意兩個村莊能夠通車。
輸入輸出樣例
輸入樣例#1： 4 4 1 2 6 1 3 4 1 4 5 4 2 3 輸出樣例#1： 5 說明
N<=1000，M<=100000
x<=N，y<=N，t<=100000
分析：就是一個最小生成樹，用并查集跑一邊，最小生成樹的最大邊權就是解。
代碼：
var p,r:array [1..10001] of longint; a:array [1..200001,1..3] of longint; n,m,p1,u,v,w,ans,k,i,s: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); inc(k); a[k,1]:=u; a[k,2]:=v; a[k,3]:=w; end; qsort(1,k); for i:=1 to k do begin if find(a[i,1])<>find(a[i,2]) then begin union(a[i,1],a[i,2]); ans:=a[i,3]; end; end; for i:=1 to n do if find(i)=i then inc(s); if s<2 then write(ans) else write(-1);end.新聞熱點
疑難解答
