洛谷 P1197 [JSOI2008]星球大战

题目描述

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

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

输入输出格式

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

接下来的M行，每行包括两个整数X, Y，其中（0<=X<>Y

var 
first,last,fa:array [0..1000000] of longint;
next,en:array [0..1000000] of longint;
b:array [0..1000000] of boolean;
a:array [0..1000000] of longint;
n,m,k,x,y,i,j,ans,tot:longint;

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

procedure add(x,y:longint);
begin
  inc(tot);
  if first[x]=0 then first[x]:=tot
  else next[last[x]]:=tot;
  last[x]:=tot;
  en[tot]:=y;
end;

begin
  read(n,m);
  for i:=0 to n-1 do
    fa[i]:=i;
  for i:=1 to m do
  begin
    read(x,y);
    add(x,y);
    add(y,x);
  end;
  read(k);
  for i:=1 to k do
  begin
    read(a[i]);
    b[a[i]]:=true;
  end;
  ans:=n-k;
  for i:=0 to n-1 do
  begin
    if b[i] then continue;
    j:=first[i];
    while j>0 do
    begin
      if not b[en[j]] then
      begin
        x:=ask(i);
        y:=ask(en[j]);
        if x<>y then
        begin
          fa[x]:=y;
          dec(ans);
        end;
      end;
      j:=next[j];
    end;
  end;
  a[k+1]:=ans;
  for i:=k downto 1 do
  begin
    b[a[i]]:=false;
    j:=first[a[i]];
    inc(ans);
    while j>0 do
    begin
      if not b[en[j]] then
      begin
        x:=ask(a[i]);
        y:=ask(en[j]);
        if x<>y then
        begin
          fa[x]:=y;
          dec(ans);
        end;
      end;
      j:=next[j];
    end;
    a[i]:=ans;
  end;
  for i:=1 to k+1 do
    writeln(a[i]);
end.