3453. 【NOIP2013中秋节模拟】连通块(connect)

Description

你应该知道无向图的连通块的数量，你应该知道如何求连通块的数量。当你兴奋与你的成就时，破坏王Alice拆掉了图中的边。当她发现，每删去一条边，你都会记下边的编号，同时告诉她当前连通块的个数。然而，对边编号简直就是个悲剧，因为Alice为了刁难你，拆掉编号从l到r的边，当然你需要做的事情就是求连通块的个数。如果你答对了，Alice会把拆掉的边装好，迚行下一次破坏。如果你无法完成这个任务，Alice会彻底毁了你的图。进行完足够多次之后，Alice觉得无聊，就玩去了，而你却需要继续做第三题。

Input

第一行两个整数n,m，表示点数和边数。 
之后m行每行两个整数x,y，表示x与y之间有无向边。（按读入顺序给边编号，编号从1开始） 
一行一个整数k，表示Alice的破坏次数。 
之后k行，每行两个整数l,r。 

Output

k行，每行一个整数。 

Sample Input

6 5 
1 2 
5 4 
2 3 
3 1 
3 6 
6 
1 3 
2 5 
1 5 
5 5 
2 4 
3 3

Sample Output

4 
5 
6 
3 
4 
2 

Data Constraint

对于30%的数据，n<=100,k<=10 
对于60%的数据，k<=1000 
对于100%的数据，n<=500,m<=10000,k<=20000,1<=l<=r<=m

思路

分别记录添加前i条边时所有节点的联通情况，和只添加i—m条边时所有节点的联通情况。对于每个询问只要把f[l-1]和g[r+1]合并即可。

type
  ar=array[1..1000] of longint;
var
  first,last:array [0..10001] of ar;
  g:ar;
  x,y:array [1..10001] of longint;
  n,k,i,j,l,r,x1,y1,ans,m,t:longint;
function fi(x:longint):longint;
var
  y,root,w:longint;
begin
  y:=x;
  while first[i,y]>0 do
    y:=first[i,y];
  root:=y;
  y:=x;
  while first[i,y]>0 do
    begin
      w:=first[i,y];
      first[i,y]:=root;
      y:=w;
    end;
  fi:=root;
end;
function fd(x,s:longint):longint;
var
  y,root,w:longint;
begin
  y:=x;
  while last[s,y]>0 do
    y:=last[s,y];
  root:=y;
  y:=x;
  while last[s,y]>0 do
    begin
      w:=last[s,y];
      last[s,y]:=root;
      y:=w;
    end;
  fd:=root;
end;
function fn(x:longint):longint;
var
  y,root,w:longint;
begin
  y:=x;
  while g[y]>0 do
    y:=g[y];
  root:=y;
  y:=x;
  while g[y]>0 do
    begin
      w:=g[y];
      g[y]:=root;
      y:=w;
    end;
  fn:=root;
end;
procedure un(x,y:longint);
var
  s,t:longint;
begin
  s:=fi(x);
  t:=fi(y);
  if s<>t then
    first[i,s]:=t;
end;
procedure ui(x,y:longint);
var
  s,t:longint;
begin
  s:=fd(x,i);
  t:=fd(y,i);
  if s<>t then
    last[i,s]:=t;
end;
procedure uo(x,y:longint);
var
  s,t:longint;
begin
  s:=fn(x);
  t:=fn(y);
  if s<>t then
    g[s]:=t;
end;
begin
  assign(input,'connect.in');reset(input);
  assign(output,'connect.out');rewrite(output);
  readln(n,m);
  for i:=1 to m do
    readln(x[i],y[i]);
  for i:=1 to m do
    begin
      first[i]:=first[i-1];
      un(x[i],y[i]);
    end;
  for i:=m downto 1 do
    begin
      last[i]:=last[i+1];
      ui(x[i],y[i]);
    end;
  readln(k);
  for i:=1 to k do
    begin
      readln(l,r);
      ans:=0;
      l:=l-1;r:=r+1;
      g:=first[l];
      for j:=1 to n do
        begin
          x1:=fn(j);
          y1:=fd(j,r);
          if x1<>y1 then
            uo(x1,y1);
        end;
      for j:=1 to n do
        if g[j]=0 then inc(ans);
      writeln(ans);
    end;
  close(input);close(output); 
end.