POJ1861 & ZOJ1542[Network]
这个题的样例让我大呼坑爹——竟然把Special Judge上的各种情况融合在了一个样例上……再次Orz
这个题就是个MST,但是题目要求是生成树中的最长边最小,所以要用Kruskal,因为Kruskal的算法保证了最小生成树中的最长边最小。
Var a,b,e,f,optx,opty:array[-1..15100]of longint; n,m,max,ans,p,q,i:longint; Procedure init; var i:longint; begin readln(n,m); for i:=1 to m do readln(a[i],b[i],e[i]); fillchar(f,sizeof(f),0); end; Function find(x:longint):longint; var k:longint; begin k:=x; while f[k]<>0 do k:=f[k]; find:=k; end; Procedure qsort(l,r:longint); var i,j,x,y:longint; begin i:=l;j:=r;x:=e[(l+r)shr 1]; Repeat while e[i]<x do inc(i); while e[j]>x do dec(j); if i<=j then begin y:=a[i];a[i]:=a[j];a[j]:=y; y:=b[i];b[i]:=b[j];b[j]:=y; y:=e[i];e[i]:=e[j];e[j]:=y; inc(i);dec(j); end; Until i>j; if i<r then qsort(i,r); if l<j then qsort(l,j); end; Begin init; qsort(1,m); ans:=0; max:=-1; for i:=1 to m do begin p:=find(a[i]); q:=find(b[i]); if p<>q then begin f[q]:=p; if e[i]>max then max:=e[i]; inc(ans); optx[ans]:=a[i]; opty[ans]:=b[i]; end; end; writeln(max); writeln(ans); for i:=1 to ans do writeln(optx[i],' ',opty[i]); End.