POJ 3177
题目大意:同poj 3352。
解:同poj3352,但记得处理重边的问题。
![](https://images.cnblogs.com/OutliningIndicators/ContractedBlock.gif)
1 //poj 3177
2 const
3 maxn=5111;
4 maxm=11111;
5 type
6 data=record
7 dest, next, op: longint;
8 end;
9 var
10 edge: array[1..maxm*2]of data;
11 pre, dfn, low, deg, vect: array[1..maxn]of longint;
12 g: array[1..maxn, 1..maxn]of boolean;
13 visit:array[1..maxn]of boolean;
14 n, m, time, tot, ans: longint;
15 procedure add(x, y: longint);
16 begin
17 inc(tot);
18 with edge[tot] do begin
19 dest := y;
20 next := vect[x];
21 vect[x] := tot;
22 op := tot + 1;
23 end;
24 inc(tot);
25 with edge[tot] do begin
26 dest := x;
27 next := vect[y];
28 vect[y] := tot;
29 op := tot - 1;
30 end;
31 end;
32
33 procedure init;
34 var
35 i, x, y: longint;
36 begin
37 tot := 0; ans := 0;
38 fillchar(vect, sizeof(vect), 0);
39 fillchar(g, sizeof(g), 0);
40 readln(n, m);
41 for i := 1 to m do begin
42 readln(x, y);
43 if not g[x, y] then begin
44 add(x, y);
45 g[x, y] := true;
46 g[y, x] := true;
47 end;
48 end;
49 end;
50
51 procedure tarjan(x: longint);
52 var
53 i: longint;
54 begin
55 inc(time);
56 dfn[x] := time; low[x] := time;
57 visit[x] := true;
58 i := vect[x];
59 while i<>0 do
60 with edge[i] do begin
61 if (pre[x]<>dest) then
62 if (dfn[dest]=0) then begin
63 pre[dest] := x;
64 tarjan(dest);
65 pre[dest] := 0;
66 if (low[dest]<low[x]) then low[x] := low[dest];
67 end
68 else if visit[dest] then begin
69 if (dfn[dest]<low[x]) then low[x] := dfn[dest];
70 end;
71 i := next;
72 end;
73 visit[x] := false;
74 end;
75
76 procedure main;
77 var
78 i, u: longint;
79 begin
80 fillchar(dfn, sizeof(dfn), 0);
81 fillchar(pre, sizeof(pre), 0);
82 fillchar(visit, sizeof(visit), 0);
83 time := 0;
84 for i := 1 to n do if dfn[i]=0 then tarjan(i);
85 fillchar(deg, sizeof(deg), 0);
86 for u := 1 to n do begin
87 i := vect[u];
88 while i<>0 do
89 with edge[i] do begin
90 if (low[u]<>low[dest]) then begin
91 inc(deg[low[u]]);
92 inc(deg[low[dest]]);
93 end;
94 i := next;
95 end;
96 end;
97 for i := 1 to time do
98 if deg[i] >> 1 = 1 then inc(ans);
99 if ans = 1 then ans := 0;
100 ans := (ans + 1) >> 1;
101 end;
102
103 procedure print;
104 begin
105 writeln(ans);
106 end;
107
108 begin
109 assign(input,'1.txt'); reset(input);
110 while not seekeof do begin
111 init;
112 main;
113 print;
114 end;
115 end.