记录编号	119011	评测结果	AAAAAAAAAA
题目名称	爆炸化合物	最终得分	100
用户昵称	筽邝	是否通过	通过
代码语言	Pascal	运行时间	0.310 s
提交时间	2014-09-10 17:55:11	内存使用	0.49 MiB

program cojs899;
var
  fa:array[1..100010]of longint;
  ans,i,a,b,x,y:longint;

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

begin
assign(input,'explosion.in');reset(input);
assign(output,'explosion.out');rewrite(output);

  for i:=1 to 100010 do
    fa[i]:=i;
  while true do
  begin
    read(a);
    if a=-1 then break;
    readln(b);
    x:=find(a); y:=find(b);
    if x<>y then fa[x]:=y else inc(ans);
  end;
  writeln(ans);

close(input);close(output);
end.