[BZOJ1015] [JSOI2008]星球大战starwar

[JSOI2008]星球大战starwar

Description

很久以前，在一个遥远的星系，一个黑暗的帝国靠着它的超级武器统治者整个星系。某一天，凭着一个偶然的机遇，一支反抗军摧毁了帝国的超级武器，并攻下了星系中几乎所有的星球。这些星球通过特殊的以太隧道互相直接或间接地连接。 但好景不长，很快帝国又重新造出了他的超级武器。凭借这超级武器的力量，帝国开始有计划地摧毁反抗军占领的星球。由于星球的不断被摧毁，两个星球之间的通讯通道也开始不可靠起来。现在，反抗军首领交给你一个任务：给出原来两个星球之间的以太隧道连通情况以及帝国打击的星球顺序，以尽量快的速度求出每一次打击之后反抗军占据的星球的连通快的个数。（如果两个星球可以通过现存的以太通道直接或间接地连通，则这两个星球在同一个连通块中）。

Input

输入文件第一行包含两个整数，N (1 <= N <= 2M) 和M (1 <= M <= 200,000)，分别表示星球的数目和以太隧道的数目。星球用0~N-1的整数编号。接下来的M行，每行包括两个整数X, Y，其中（0<=X<>Y

Output

输出文件的第一行是开始时星球的连通块个数。接下来的N行，每行一个整数，表示经过该次打击后现存星球的连通块个数。

Sample Input

8 13

0 1

1 6

6 5

5 0

0 6

1 2

2 3

3 4

4 5

7 1

7 2

7 6

3 6

5

1

6

3

5

7

Sample Output

1

1

1

2

3

3

题解

• 倒着用并查集维护连通块，也就是说先把最后都没有的P个点不加入并查集求一个连通块，然后依次倒序把他们加入并查集维护
• 得出连通块数，每次先认为加入的点是一个单独的连通块(tot+1)，然后如果能与其他连通块连接，那么tot-1

var
 t,s,ans,x,fa:array[0..400005]of longint;
 w:array[0..1000005,1..2]of longint;
 n,m,p:longint;
 i,j,k:longint;
 a,b,len,v,tot,key:longint;
function get(a:longint):longint;
begin
 if fa[a]=a then exit(a);
 fa[a]:=get(fa[a]);
 exit(fa[a]);
end;

procedure init(a,b:longint);
begin
 w[len,1]:=b;
 if w[a,2]=0
 then w[a,2]:=len else w[w[a,1],2]:=len;
 w[a,1]:=len; inc(len);
end;

begin
 readln(n,m); len:=n+1;
 for i:=1 to m do
  begin
   readln(a,b);
   init(a+1,b+1); init(b+1,a+1);
  end;
 for i:=1 to n do
  begin
   fa[i]:=i;
   s[i]:=1;
  end;
 readln(p);
 for i:=1 to p do
  begin
   readln(x[i]);
   inc(x[i]);
   s[x[i]]:=0;
  end;
 tot:=0;
 for i:=1 to n do
  begin
   if s[i]=0 then continue;
   v:=w[i,2]; inc(tot);
   while v<>0 do
    begin
     if (s[w[v,1]]=1)and(get(w[v,1])<>get(i))
         then begin fa[get(w[v,1])]:=fa[i]; dec(tot) end;
     v:=w[v,2];
        end;
  end;
 ans[p+1]:=tot;
 for i:=p downto 1 do
  begin
   ans[i]:=ans[i+1]+1;
   s[x[i]]:=1;
   v:=w[x[i],2];
   while v<>0 do
    begin
     if (s[w[v,1]]=1)and(get(w[v,1])<>get(x[i]))
         then begin fa[get(w[v,1])]:=fa[x[i]]; dec(ans[i]); end;
     v:=w[v,2];
    end;
  end;
 for i:=1 to p+1 do
  writeln(ans[i]);
end.