Description
In order to get from one of the F (1 <= F <= 5,000) grazing fields (which are numbered 1..F) to another field, Bessie and the rest of the herd are forced to cross near the Tree of Rotten Apples. The cows are now tired of often being forced to take a particular path and want to build some new paths so that they will always have a choice of at least two separate routes between any pair of fields. They currently have at least one route between each pair of fields and want to have at least two. Of course, they can only travel on Official Paths when they move from one field to another.
Given a description of the current set of R (F-1 <= R <= 10,000) paths that each connect exactly two different fields, determine the minimum number of new paths (each of which connects exactly two fields) that must be built so that there are at least two separate routes between any pair of fields. Routes are considered separate if they use none of the same paths, even if they visit the same intermediate field along the way.
There might already be more than one paths between the same pair of fields, and you may also build a new path that connects the same fields as some other path.
Input
Line 1: Two space-separated integers: F and R
Lines 2..R+1: Each line contains two space-separated integers which are the fields at the endpoints of some path.
Output
Line 1: A single integer that is the number of new paths that must be built.
Sample Input
7 7
1 2
2 3
3 4
2 5
4 5
5 6
5 7
Sample Output
2
Hint
Explanation of the sample:
- | |
-
| |
6 +—+—+ 4
/ 5 :
/ :
/ :
7 + - - - -
Check some of the routes:
1 – 2: 1 –> 2 and 1 –> 6 –> 5 –> 2
1 – 4: 1 –> 2 –> 3 –> 4 and 1 –> 6 –> 5 –> 4
3 – 7: 3 –> 4 –> 7 and 3 –> 2 –> 5 –> 7
Every pair of fields is, in fact, connected by two routes.
It’s possible that adding some other path will also solve the problem (like one from 6 to 7). Adding two paths, however, is the minimum.
Source
大意
对于给定的图,求最少加几条边可以使整个图变成边双连通图
题解
半个月啊半个月终于搞定了
画个图就明白了
tarjan求桥,然后统计缩点后的叶子节点,答案是(leaf+1)/2
注意有重边,而且在只有一个节点的情况下不用加边
上♂程序
type
edge=record
x,y,next:longint;
end;
var
n,m,t,maxE:longint;
dfn,low,oud,ls:array[1..5000]of longint;
p:array[1..5000,1..5000]of boolean;
e:array[1..20000]of edge;
procedure add(x,y:longint);
begin
inc(maxE);
e[maxE].x:=x;
e[maxE].y:=y;
e[maxE].next:=ls[x];
ls[x]:=maxE;
end;
function min(x,y:Longint):longint;
begin
min:=x;
if y<x then
min:=y;
end;
procedure dfs(x,fa:longint);
var
i:longint;
begin
inc(t);
dfn[x]:=t;
low[x]:=t;
i:=ls[x];
while i>0 do
with e[i] do
begin
if dfn[y]=0 then
begin
dfs(y,x);
low[x]:=min(low[x],low[y]);
end
else
if y<>fa then
low[x]:=min(low[x],dfn[y]);
i:=next;
end;
end;
procedure main;
var
i:longint;
lxf:longint;
begin
lxf:=0;
for i:=1 to maxE do
with e[i] do
if low[x]<>low[y] then
inc(oud[low[x]]);
for i:=1 to t do
if oud[i]=1 then inc(lxf);
if lxf=1 then
writeln(0)
else
writeln((lxf+1)div 2);
end;
procedure init;
var
i,x,y:Longint;
begin
readln(n,m);
for i:=1 to m do
begin
readln(x,y);
if not p[x,y] then
begin
p[x,y]:=true;
p[y,x]:=true;
add(x,y);
add(y,x);
end;
end;
end;
begin
init;
dfs(1,-1);
main;
end.