bzoj 1529 并查集

题意：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