1015: [JSOI2008]星球大战starwar

Time Limit: 3 Sec Memory Limit: 162 MB

Submit: 3001 Solved: 1321

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

HINT

Source

题解：正如JSZKC神犇所言——既然并查集不能合并，那么倒着插入不就行了？于是乎我这么做了一下，结果是70分，TLE。。。然后我只好找网上的标程，结果发现了人家在并查集里面有个异常强悍的优化（具体见程序里面的getfat函数），然后就擦着边AC了。。。具体做法是——先把所有边里面没有涉及到被删除点的全部合并，然后按照删点顺序倒着来合并，这一路每次要记录下连通块数量。。。（注意：最后输出时要-i+1，因为假如举个例子，所有的星球在最后的数据中都被干掉了的话，那么假如单纯是连通块的话，应该有N个才是，可是事实上一个星球都没了。。。）

 1 type point=^node;
 2      node=record
 3                 g:longint;
 4                 next:point;
 5      end;
 6 var
 7    i,j,k,l,m,n,t:longint;
 8    a:array[0..400000] of point;
 9    c,b,d,e:array[0..400000] of longint;
10    p:point;
11 function getfat(x:longint):longint;inline;
12          begin
13               if x<>c[x] then
14                  begin
15                       c[x]:=getfat(c[x]);  //orz强悍的优化
16                  end;
17               exit(c[x]);
18          end;
19 function tog(x,y:longint):boolean;inline;
20          begin
21               exit(getfat(x)=getfat(y));
22          end;
23 procedure merge(x,y:longint);inline;
24           begin
25                c[getfat(x)]:=getfat(y);
26           end;
27 procedure add(x,y:longint);inline;
28           var p:point;
29           begin
30                new(p);
31                p^.g:=y;
32                p^.next:=a[x];
33                a[x]:=p;
34           end;
35 begin
36      readln(n,m);
37      for i:=1 to n do
38          begin
39               c[i]:=i;
40               a[i]:=nil;
41          end;
42      for i:=1 to m do
43          begin
44               readln(j,k);
45               add(j+1,k+1);add(k+1,j+1);
46          end;
47      fillchar(b,sizeof(b),0);
48      readln(t);
49      for i:=1 to t do
50          begin
51               readln(d[i]);
52               d[i]:=d[i]+1;
53               b[d[i]]:=1;
54          end;
55      l:=n;
56      for i:=1 to n do
57          begin
58               if b[i]=0 then
59                  begin
60                       p:=a[i];
61                       while p<>nil do
62                             begin
63                                  if b[p^.g]=0 then
64                                     begin
65                                          if not(tog(i,p^.g)) then
66                                             begin
67                                                  dec(l);merge(i,p^.g);
68                                             end;
69                                     end;
70                                  p:=p^.next;
71                             end;
72                  end;
73          end;
74      e[t+1]:=l;
75      for i:=t downto 1 do
76          begin
77               b[d[i]]:=0;
78               p:=a[d[i]];
79               while p<>nil do
80                     begin
81                          if b[p^.g]=0 then
82                             begin
83                                  if not(tog(d[i],p^.g)) then
84                                     begin
85                                          merge(d[i],p^.g);
86                                          dec(l);
87                                     end;
88                             end;
89                          p:=p^.next;
90                     end;
91               e[i]:=l;
92          end;
93      for i:=1 to t+1 do writeln(e[i]-i+1);
94 end.