2010提高组prison

这题我们可以先排个序（从大到小），为了保证不发生影响力较大的时间，应该使a[i],b[i]不在同一监狱。如果前i个出现了矛盾，前i-1没有矛盾，那么发生最大影响值的事件就是影响值第i大的事件！！！！

那么如何判断是否出现矛盾呢？我们可以设k[i]为i号犯人的仇人，和明显k[i]可能有很多个，然而这里只记录最先出现的！一开始，每个k[i]都为0，当出现一个人出现了两次仇人时，为了保证尽量不发生事件，所以那犯人的两个仇人必然是同一监狱的。当我们遇到一对仇人在同一监狱时，就是矛盾的地方。这里我们可以用并查集来解决。

具体代码如下

type node=record x,y,c:longint; end; var k,fa:array[1..20000]of longint; line:array[1..100000]of node; i,j,n,m,ans:longint; procedure sort(x,y:longint); var l,r,mid:longint; tmp:node; begin l:=x; r:=y; mid:=line[(l+r)shr 1].c; repeat while (line[l].c>mid)and(l<y) do inc(l); while (line[r].c<mid)and(r>x) do dec(r); if l<=r then begin tmp:=line[l]; line[l]:=line[r]; line[r]:=tmp; inc(l); dec(r); end; until l>r; if l<y then sort(l,y); if r>x then sort(x,r); end; function get(x:longint):longint; begin if fa[x]=0 then exit(x); fa[x]:=get(fa[x]); exit(fa[x]); end; begin assign(input,'prison.in');reset(input); assign(output,'prison.out');rewrite(output); readln(n,m); for i:=1 to m do with line[i] do readln(x,y,c); sort(1,m); fillchar(k,sizeof(k),0); fillchar(fa,sizeof(fa),0); ans:=0; for i:=1 to m do with line[i] do begin if get(x)=get(y) then begin ans:=c; break; end; if k[x]=0 then k[x]:=y else if get(k[x])<>get(y) then fa[get(y)]:=get(k[x]); if k[y]=0 then k[y]:=x else if get(k[y])<>get(x) then fa[get(x)]:=get(k[y]); end; writeln(ans); close(input); close(output); end.