poj3275

比较笨啊，一直在想，到底问几次绝对能知道所有的关系呢?

后来看了题解才知道，问一次最少确定一对关系…………

这就好办le，n头牛有C（2，n）个关系

现在给出m条边，以确定的关系有多少呢？直接dfs啊……

……O(nm)

type link=^node;
     node=record
       po:longint;
       next:link;
     end;
var w:array[0..1010] of link;
    sum:array[0..1010] of longint;
    v:array[0..1010] of boolean;
    n,i,m,ans,x,y:longint;

procedure add(x,y:longint);
  var p:link;
  begin
    new(p);
    p^.next:=w[x];
    p^.po:=y;
    w[x]:=p;
  end;

procedure dfs(i:longint);
  var p:link;
      y:longint;
  begin
    p:=w[i];
    v[i]:=true;
    sum[i]:=1;
    while p<>nil do
    begin
      y:=p^.po;
      if not v[y] then
      begin
        dfs(y);
        sum[i]:=sum[i]+sum[y];
      end;
      p:=p^.next;
    end;
  end;

begin
  readln(n,m);
  for i:=1 to m do
  begin
    readln(x,y);
    add(x,y);
  end;
  for i:=1 to n do
  begin
    fillchar(v,sizeof(v),false);
    dfs(i);
    ans:=ans+sum[i]-1;
  end;
  writeln(n*(n-1) div 2-ans);
end.