发现这题的并查集做法真是惊呆了
不过似乎匹配跑得更快?
对于一个联通块，假如不含环（就是一棵树），那么必定可以满足其中任意的p-1个点。
对于一个联通块，假如含环，那么必定全部的p个点都能满足。
那么合并并查集的时候可以利用一个vis来维护这个性质
把权值看成点，把武器看成边
如果每次加入的边是合并两个联通块
就把权值小的联通块并到权值大的联通块，然后给权值小的vis=true
如果不是
就把改联通块的顶点的vis=true
这样就可以保证，如果一个大小为N联通块
=N-1条边构成，最大点的vis=false，其他为true
≥N条边构成，所有点的vis=true
然后最后只要一次扫描vis就可以得出答案了 ————hzwer
代码：
var i,n,m,x,y,tmp:longint;
fa:array[..] of longint;
vis:array[..] of boolean;
function find(x:longint):longint;
begin
if fa[x]<>x then fa[x]:=find(fa[x]);
exit(fa[x]);
end;
procedure main;
begin
readln(n);
fillchar(vis,sizeof(vis),false);
for i:= to do fa[i]:=i;
for i:= to n do
begin
readln(x,y);
x:=find(x);y:=find(y);
if x=y then vis[x]:=true
else
begin
if x>y then begin tmp:=x;x:=y;y:=tmp;end;
fa[x]:=y;
vis[x]:=true;
end;
end;
for i:= to do if (not(vis[i])) and (find(i)=i) then break;
writeln(i-);
end;
begin
main;
end.