poj1611 The suspect并查集

AC啦

var   n,m,i,j,t,ans,k:longint;   f:array[0..30000] of longint;   a:array[1..30000] of longint; function findset(x:longint):longint; begin   if x<>f[x] then     f[x]:=findset(f[x]);   exit(f[x]); end; procedure union(x,y:longint); begin   x:=findset(x);   y:=findset(y);   if x<>y then     if x=0 then       f[y]:=x     else       if y=0 then         f[x]:=y       else         f[x]:=y; end; begin   while not eof do     begin       fillchar(f,sizeof(f),0);       read(n,m);       for i:=1 to n do         f[i]:=i;       for j:=1 to m do         begin           fillchar(a,sizeof(a),0);           read(k);           read(a[1]);           for i:=2 to k do             begin               read(a[i]);               union(a[i],a[i-1]);             end;         end;   ans:=0;   for i:=0 to n do     begin       f[i]:=findset(f[i]);       if f[i]=0 then inc(ans);     end;   if n<>0 then     writeln(ans);   end; end.