fork download
copy 
  1. const   fi = '';
  2.         fo = '';
  3.         maxn = trunc(1e4)+3;
  4. var     p : array[1..maxn] of longint;
  5.         i,j,n,m : longint;
  6.         x,u,v : longint;
  7. procedure chuanbi;
  8. begin
  9.         for i:=1 to maxn do p[i]:=i;
  10. end;
  11. function find(i:longint):longint;
  12. begin
  13.         while p[i]<>i do i:=p[i];
  14.         exit(i);
  15. end;
  16. procedure lam1;
  17. var     i,j : longint;
  18. begin
  19.         i:=find(u);
  20.         j:=find(v);
  21.         if i<>j then
  22.         if i<j then p[j]:=p[i] else p[i]:=p[j];
  23. end;
  24. procedure main;
  25. var     i:longint;
  26. begin
  27.         assign(input,fi);reset(input);
  28.         assign(output,fo);rewrite(output);
  29.         readln(m);
  30.         chuanbi;
  31.  
  32.         for i:=1 to m do
  33.                 begin
  34.                         readln(u,v,x);
  35.                         if x=1 then lam1 else
  36.                                 if find(u)=find(v) then writeln(1) else writeln(0);
  37.                 end;
  38.         close(input);
  39.         close(output);
  40. end;
  41. begin
  42.         main;
  43. end.
Success #stdin #stdout 0s 376KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
https://ideone.com/jqAeB7
language:
Pascal (fpc 3.0.4)
created:
6 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!