题意:n个存钱罐,每个的钥匙都在一个存钱罐里,想要把所有存钱罐中的钱都拿出,问最少砸几个存钱罐
一眼看过去就是找tarjan缩点后重建的图中有几个入度为0的强连通块...mdzz爆栈了
然后才发现,其实就是找连通块的个数,mdzz并查集不就行了(思想类似团伙)
var
n,ans,x,y :longint;
i :longint;
f :array[0..1000010] of longint;
function get_father(x:longint):longint;
begin
if x=f[x] then exit(x);
f[x]:=get_father(f[x]);
exit(f[x]);
end;
begin
read(n);
for i:=1 to n do f[i]:=i;
for i:=1 to n do
begin
read(x);
x:=get_father(x);
y:=get_father(i);
if x<>y then f[y]:=x;
end;
ans:=0;
for i:=1 to n do if f[i]=i then inc(ans);
writeln(ans);
end.
——by Eirlys