洛谷 并查集 星球大战.

题目描述

很久以前，在一个遥远的星系，一个黑暗的帝国靠着它的超级武器统治者整个星系。某一天，凭着一个偶然的机遇，一支反抗军摧毁了帝国的超级武器，并攻下了星系中几乎所有的星球。这些星球通过特殊的以太隧道互相直接或间接地连接。

但好景不长，很快帝国又重新造出了他的超级武器。凭借这超级武器的力量，帝国开始有计划地摧毁反抗军占领的星球。由于星球的不断被摧毁，两个星球之间的通讯通道也开始不可靠起来。现在，反抗军首领交给你一个任务：给出原来两个星球之间的以太隧道连通情况以及帝国打击的星球顺序，以尽量快的速度求出每一次打击之后反抗军占据的星球的连通快的个数。（如果两个星球可以通过现存的以太通道直接或间接地连通，则这两个星球在同一个连通块中）。

输入输出格式

输入格式：

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

接下来的M行，每行包括两个整数X, Y，其中（0<=X<>Y<N），表示星球X和星球Y之间有以太隧道。注意所有的以太隧道都是双向的。

接下来一行是一个整数K，表示帝国计划打击的星球个数。

接下来的K行每行一个整数X，满足0<=X<N，表示帝国计划打击的星球编号。帝国总是按输入的顺序依次摧毁星球的。

输出格式：

输出文件的第一行是开始时星球的连通块个数。

接下来的K行，每行一个整数，表示经过该次打击后现存星球的连通块个数。

输入输出样例

输入样例#1：

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

题解：逆序并查集。从后往前将星球一个一个连上，暴力找联通块

const
  maxn=400000;
  maxm=200001;
var
  fa,q,ans,r:array[0..maxn]of longint;
  jg,live:array[0..maxn]of boolean;
  edge:array[0..maxm*2,1..2]of longint;
  qj:array[0..maxn,1..2]of longint;

  n,k,m,i,x,y,p,j:longint;

function find(x:longint):longint;
begin
  if fa[x]=x then exit(x);
  fa[x]:=find(fa[x]);
  find:=fa[x];
end;

procedure union(x,y:longint);
var
  u,v:longint;
begin
  u:=find(x);v:=find(y);
  if u<>v then
  begin
    if r[u]<=r[v] then
    begin
      fa[u]:=v;
      if r[u]=r[v] then r[v]:=r[v]+1;
    end
    else fa[v]:=u;
  end; 
end;

procedure qsort(l,r:longint);
var
  i,j,key:longint;
begin
  if l>r then exit;
  i:=l;j:=r;
  key:=edge[(i+j)shr 1,1];
  repeat
    while edge[i,1]<key do inc(i);
    while edge[j,1]>key do dec(j);
    if i<=j then
    begin
      edge[0]:=edge[i];edge[i]:=edge[j];edge[j]:=edge[0];
      inc(i);dec(j);
    end;
  until i>j;
  qsort(l,j);
  qsort(i,r);
end;

procedure init;
var
  i:longint;
begin
  readln(n,m);
  for i:=0 to n do
    fa[i]:=i;
  for i:=1 to m do
  begin
    readln(edge[i,1],edge[i,2]);
    edge[i+m,1]:=edge[i,2];edge[i+m,2]:=edge[i,1];
  end;
  qsort(1,m*2);
  for i:=1 to m*2 do
  begin
    if qj[edge[i,1],1]=0 then qj[edge[i,1],1]:=i;
    if (edge[i+1,1]<>edge[i,1]) then qj[edge[i,1],2]:=i;
  end;
  readln(k);
  fillchar(live,sizeof(live),true);
  for i:=1 to k do
  begin
    readln(q[i]);
    live[q[i]]:=false;
  end;
  for i:=0 to n-1 do
    if live[i] then
    begin
      for j:=qj[i,1] to qj[i,2] do
        if live[edge[j,2]] then
        union(edge[j,1],edge[j,2]);
    end;
end;

function calc:longint;
var
  i,p:longint;
begin
  calc:=0;
  fillchar(jg,sizeof(jg),false);
  for i:=0 to n-1 do
  begin
    if live[i]=false then continue;
    p:=find(i);
    if jg[p]=false then
    begin
      jg[p]:=true;
      inc(calc);
    end;
  end;
end;

begin
  init;
  inc(ans[0]);ans[ans[0]]:=calc;
  for i:=k downto 1 do
  begin
    live[q[i]]:=true;
    for j:=qj[q[i],1] to qj[q[i],2] do
      if live[edge[j,2]] then
      union(edge[j,1],edge[j,2]);
    inc(ans[0]);ans[ans[0]]:=calc;
  end;
  for i:=ans[0] downto 1 do
    writeln(ans[i]);
end.

TLE 40

输出样例#1：

1
1
1
2
3
3