[BZOJ1015] [JSOI2008]星球大战starwar

最新推荐文章于 2018-08-18 16:13:03 发布

slongle_amazing

最新推荐文章于 2018-08-18 16:13:03 发布

阅读量560

点赞数

分类专栏：数据结构—并查集

本文链接：https://blog.csdn.net/slongle_amazing/article/details/47626643

版权

数据结构—并查集专栏收录该内容

8 篇文章 0 订阅

订阅专栏

本文介绍了一道名为“星球大战”的算法竞赛题目。任务是使用并查集算法来维护随着某些节点（星球）被移除后剩余节点（星球）的连通组件数量变化。题目设定在一个虚构的宇宙背景之下，要求参赛者实现高效的算法以应对大规模的数据输入。

摘要由CSDN通过智能技术生成

[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

Sample Output

题解

倒着用并查集维护连通块，也就是说先把最后都没有的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.