【CF659E】New Reform（图的联通，环）

分析转载自http://blog.csdn.net/yukizzz/article/details/51029628

题意：

给定n个点和m条双向边，将双向边改为单向边，问无法到达的顶点最少有多少个？

分析：

无法到达的话即入度为0。 
DFS判断每一个连通块中是否存在环，如果存在环，就能保证环中每个点的入度都大于等于1。否则，有头有尾，头的入度为0。

var head,vet,next,flag:array[1..200000]of longint;
    n,m,x,y,tmp,ans,tot,i:longint;

procedure add(a,b:longint);
begin
 inc(tot);
 next[tot]:=head[a];
 vet[tot]:=b;
 head[a]:=tot;
end;

procedure dfs(u,pre:longint);
var e,v:longint;
begin
 if flag[u]=1 then begin tmp:=0; exit; end;
 flag[u]:=1;
 e:=head[u];
 while e<>0 do
 begin
  v:=vet[e];
  if v<>pre then dfs(v,u);
  e:=next[e];
 end;
end;

begin
// assign(input,'1.in'); reset(input);
 //assign(output,'1.out'); rewrite(output);
 readln(n,m);
 for i:=1 to m do
 begin
  read(x,y);
  add(x,y);
  add(y,x);
 end;
 for i:=1 to n do
  if flag[i]=0 then
  begin
   tmp:=1;
   dfs(i,0);
   ans:=ans+tmp;
  end;
 writeln(ans);
// close(input);
 //close(output);
end.