S 城现有两座监狱，一共关押着N 名罪犯，编号分别为1~N。他们之间的关系自然也极

不和谐。很多罪犯之间甚至积怨已久，如果客观条件具备则随时可能爆发冲突。我们用“怨

气值”（一个正整数值）来表示某两名罪犯之间的仇恨程度，怨气值越大，则这两名罪犯之

间的积怨越多。如果两名怨气值为c 的罪犯被关押在同一监狱，他们俩之间会发生摩擦，并

造成影响力为c 的冲突事件。

每年年末，警察局会将本年内监狱中的所有冲突事件按影响力从大到小排成一个列表，

然后上报到S 城Z 市长那里。公务繁忙的Z 市长只会去看列表中的第一个事件的影响力，

如果影响很坏，他就会考虑撤换警察局长。

在详细考察了N 名罪犯间的矛盾关系后，警察局长觉得压力巨大。他准备将罪犯们在

两座监狱内重新分配，以求产生的冲突事件影响力都较小，从而保住自己的乌纱帽。假设只

要处于同一监狱内的某两个罪犯间有仇恨，那么他们一定会在每年的某个时候发生摩擦。那

么，应如何分配罪犯，才能使Z 市长看到的那个冲突事件的影响力最小？这个最小值是少？

第一行为两个正整数N 和M，分别表示罪犯的数目以及存在仇恨的罪犯对数。

接下来的M 行每行为三个正整数aj，bj，cj，表示aj 号和bj 号罪犯之间存在仇恨，其怨气值为cj。数据保证，且每对罪犯组合只出现一次。

共1 行，为Z 市长看到的那个冲突事件的影响力。如果本年内监狱

中未发生任何冲突事件，请输出0。

4 6

1 4 2534

2 3 3512

1 2 28351

1 3 6618

2 4 1805

3 4 12884

3512

罪犯之间的怨气值如下面左图所示，右图所示为罪犯的分配方法，市长看到的冲突事件

影响力是3512（由2 号和3 号罪犯引发）。其他任何分法都不会比这个分法更优。

【数据范围】

对于30%的数据有N≤ 15。

对于70%的数据有N≤ 2000，M≤ 50000。

对于100%的数据有N≤ 20000，M≤ 100000。

————————————————————————————————————————我是奇妙的分割线——————————————————————————————————

     看到这道题蒟蒻我的第一个想法就是贪心，因为题目要求使最大的怨气值最小，所以只要把怨气值排序，再尽量满足有怨气的罪犯不分到同一个监狱，直到一定会起冲突。但是直接枚举判断监狱里是否有这个罪犯的敌人非常麻烦，需要枚举每一个在这个监狱里的罪犯，判断是否有冲突，肯定会TLE。于是，蒟蒻想到了刚学的并查集。

     科普部分：想学并查集的请浏览http://blog.csdn.net/dellaserss/article/details/7724401/（某大神的并查集详解（转））

     于是使用并查集，但还需要一个神奇的技巧：

     我们只需要记录每个罪犯最近一次枚举到的敌人，在第二次枚举到这个罪犯时，将他的敌人和上一次枚举到的敌人合并（即放到同一个监狱），这样一个罪犯的所有敌人都会被合并（放到同一个监狱），这样当两个互为敌人的罪犯出现在同一个监狱时，就知道会起冲突。

       
     最后，再梳理一下解题流程：

    1、对怨气值排序；

    2、按怨气值从大到小枚举每对罪犯，再用并查集处理；

    3、没有起冲突的罪犯时不要忘了输出0；

———————————————————————————————————————我是奇妙的分割线x2—————————————————————————————————

    当AC时我特别开心（一个蒟蒻做出水题的开心），看题解发现有大神用二分图（orz orz orz orz orz orz orz orz orz orz orz 我不会)

代码如下：

var e,x,y:array[0..100100]of longint;
f,a:array[0..20010]of longint;
n,m,i:longint;
procedure qs(l,r:longint);
var i,j,m,t:longint;
begin
i:=l; j:=r; m:=e[(l+r)shr 1];
repeat
while e[i]>m do inc(i);
while e[j]<m do dec(j);
if i<=j then begin
t:=e[i]; e[i]:=e[j]; e[j]:=t;
t:=x[i]; x[i]:=x[j]; x[j]:=t;
t:=y[i]; y[i]:=y[j]; y[j]:=t;
inc(i); dec(j);
end;
until i>j;
if l<j then qs(l,j);
if i<r then qs(i,r);
end;
function find(n:longint):longint;
begin
if f[n]=n then exit(n);
find:=find(f[n]);
f[n]:=find;
end;
procedure merge(a,b:longint);
var x,y:longint;
begin
x:=find(a); y:=find(b);
if x<>y then f[x]:=y;
end;
begin
readln(n,m);
for i:=1 to m do
read(x[i],y[i],e[i]);
qs(1,m);
for i:=1 to n do
f[i]:=i;
for i:=1 to m do begin
if find(x[i])=find(y[i])then begin
writeln(e[i]);
halt;
end;
if a[x[i]]<>0 then merge(a[x[i]],y[i]);
if a[y[i]]<>0 then merge(x[i],a[y[i]]);
a[x[i]]:=y[i]; a[y[i]]:=x[i];
end;
writeln(0);
end.