这个题的样例让我大呼坑爹——竟然把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.