Submission #10585655

Source Code Expand

var
  n,m,i,p,x,y:longint;
  a:array[0..100000] of longint;
 function cz(x:longint):longint;
  begin
    if a[x]=x then exit(x);
    a[x]:=cz(a[x]);
    exit(a[x]);
  end;
begin
  readln(n,m);
  for i:=1 to n do a[i]:=i;
  for i:=1 to m do
    begin
      readln(p,x,y);
      if p=0 then a[cz(x)]:=cz(y)
        else
          if cz(a)=cz(b) then writeln('Yes')
            else writeln('No');
    end;
end.

Submission Info