家族_SSL 1896

家族

Time Limit:10000MS  Memory Limit:65536K
Total Submit:222 Accepted:112
Case Time Limit:1000MS

Description

若某個家族人員過於龐大，要判斷兩個是否是親戚，確實還很不容易，現在給出某個親戚關係圖，求任意給出的兩個人是否具有親戚關係。
規定：x和y是親戚，y和z是親戚，那麼x和z也是親戚。如果x,y是親戚，那麼x的親戚都是y的親戚，y的親戚也都是x的親戚。

Input

第一行：三個整數n,m,p，（n<=50000,m<=50000,p<=50000），分別表示有n個人，m個親戚關係，詢問p對親戚關係。以下m行：每行兩個數Mi，Mj，1<=Mi，Mj<=N，表示Ai和Bi具有親戚關係。接下來p行：每行兩個數Pi，Pj，詢問Pi和Pj是否具有親戚關係。

Output

P行，每行一個’Yes’或’No’。表示第i個詢問的答案爲“具有”或“不具有”親戚關係。

Sample Input

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

Sample Output

Yes
Yes
No

Source

cwj數據

//思路：這道題是簡單的並查集，主要是找到這個親戚的親戚（root），之後的事情就是看看別的親戚堆

裏有沒有這個Root親戚就ＯＪＢＫ了。

• var
   f,r:array[0..50000]of longint;//注意開大，爲了這個我卡了一上午
   n,m,k,i,x,y,u,v:longint;
  function find(x:longint):longint;
  var
   root,y,w:longint;
  begin
   y:=x;
   while f[y]>0 do y:=f[y];
    root:=y;
    y:=x;
    while f[y]>0 do begin
                     w:=f[y];
                     f[y]:=root;
                     y:=w;
                    end;
   find:=root;
  end;
  procedure ok(x,y,u,v:longint);
  begin
   if r[u]<=r[v] then begin
                       f[u]:=v;
                       if r[u]=r[v] then inc(r[v]);
                      end else f[v]:=u;
  end;
  begin
   read(n,m,k);
   for i:=1 to m do begin
                     readln(x,y);
                     u:=find(x); v:=find(y);
                     if u<>v then ok(x,y,u,v);
                    end;
   for i:=1 to k do begin
                     readln(x,y);
                     if find(x)=find(y) then
                      writeln('Yes') else writeln('No');
                    end;
  end.