Network
Time Limit: 1000MS | Memory Limit: 10000K | |
Total Submissions: 9844 | Accepted: 4607 |
Description
A Telephone Line Company (TLC) is establishing a new telephone cable network. They are connecting several places numbered by integers from 1 to N . No two places have the same number. The lines are bidirectional and always connect together two places and in each place the lines end in a telephone exchange. There is one telephone exchange in each place. From each place it is
possible to reach through lines every other place, however it need not be a direct connection, it can go through several exchanges. From time to time the power supply fails at a place and then the exchange does not operate. The officials from TLC realized that in such a case it can happen that besides the fact that the place with the failure is unreachable, this can also cause that some other places cannot connect to each other. In such a case we will say the place (where the failure
occured) is critical. Now the officials are trying to write a program for finding the number of all such critical places. Help them.
possible to reach through lines every other place, however it need not be a direct connection, it can go through several exchanges. From time to time the power supply fails at a place and then the exchange does not operate. The officials from TLC realized that in such a case it can happen that besides the fact that the place with the failure is unreachable, this can also cause that some other places cannot connect to each other. In such a case we will say the place (where the failure
occured) is critical. Now the officials are trying to write a program for finding the number of all such critical places. Help them.
Input
The input file consists of several blocks of lines. Each block describes one network. In the first line of each block there is the number of places N < 100. Each of the next at most N lines contains the number of a place followed by the numbers of some places to which there is a direct line from this place. These at most N lines completely describe the network, i.e., each direct connection of two places in the network is contained at least in one row. All numbers in one line are separated
by one space. Each block ends with a line containing just 0. The last block has only one line with N = 0;
by one space. Each block ends with a line containing just 0. The last block has only one line with N = 0;
Output
The output contains for each block except the last in the input file one line containing the number of critical places.
Sample Input
5 5 1 2 3 4 0 6 2 1 3 5 4 6 2 0 0
Sample Output
1 2
Hint
You need to determine the end of one line.In order to make it's easy to determine,there are no extra blank before the end of each line.
Source
var
i,j,m,n,x,y,s,t,l,r,time,root,ans:longint;
dfn,f,low:array[0..100] of longint;
colour:array[1..100]of boolean;
a:array[1..100,0..100]of longint;
function min(x,y:longint):longint;
begin
if (x>y) then exit(y) else exit(x);
end;
procedure find_cut(x:longint);
var
i,j:longint;
boo:boolean;
begin
inc(time);
dfn[x]:=time;
low[x]:=time;
colour[x]:=true;
boo:=false;
for i:=1 to a[x,0] do
begin
if not colour[a[x,i]] then
begin
find_cut(a[x,i]);
if (low[a[x,i]]>=dfn[x]) then boo:=true;
low[x]:=min(low[a[x,i]],low[x]);
end
else
if colour[a[x,i]] then low[x]:=min(low[x],dfn[a[x,i]]);
end;
if boo then inc(ans);
end;
procedure main;
begin
fillchar(colour,sizeof(colour),false);
fillchar(dfn,sizeof(dfn),0);
fillchar(low,sizeof(low),0);
ans:=0;
root:=0;
colour[1]:=true;
for i:=1 to a[1,0] do
begin
if not colour[a[1,i]] then
begin
time:=0;
inc(root);
find_cut(a[1,i]);
end;
end;
if root>1 then
inc(ans);
end;
procedure print;
begin
writeln(ans);
end;
procedure init;
begin
while (true) do
begin
fillchar(a,sizeof(a),0);
readln(m);
if (m=0) then break;
while (true) do
begin
read(x);
if (x=0) then break;
while not eoln do
begin
read(y);
inc(a[x,0]);
a[x,a[x,0]]:=y;
inc(a[y,0]);
a[y,a[y,0]]:=x;
end;
readln;
end;
main;
print;
end;
end;
begin
init;
end.
i,j,m,n,x,y,s,t,l,r,time,root,ans:longint;
dfn,f,low:array[0..100] of longint;
colour:array[1..100]of boolean;
a:array[1..100,0..100]of longint;
function min(x,y:longint):longint;
begin
if (x>y) then exit(y) else exit(x);
end;
procedure find_cut(x:longint);
var
i,j:longint;
boo:boolean;
begin
inc(time);
dfn[x]:=time;
low[x]:=time;
colour[x]:=true;
boo:=false;
for i:=1 to a[x,0] do
begin
if not colour[a[x,i]] then
begin
find_cut(a[x,i]);
if (low[a[x,i]]>=dfn[x]) then boo:=true;
low[x]:=min(low[a[x,i]],low[x]);
end
else
if colour[a[x,i]] then low[x]:=min(low[x],dfn[a[x,i]]);
end;
if boo then inc(ans);
end;
procedure main;
begin
fillchar(colour,sizeof(colour),false);
fillchar(dfn,sizeof(dfn),0);
fillchar(low,sizeof(low),0);
ans:=0;
root:=0;
colour[1]:=true;
for i:=1 to a[1,0] do
begin
if not colour[a[1,i]] then
begin
time:=0;
inc(root);
find_cut(a[1,i]);
end;
end;
if root>1 then
inc(ans);
end;
procedure print;
begin
writeln(ans);
end;
procedure init;
begin
while (true) do
begin
fillchar(a,sizeof(a),0);
readln(m);
if (m=0) then break;
while (true) do
begin
read(x);
if (x=0) then break;
while not eoln do
begin
read(y);
inc(a[x,0]);
a[x,a[x,0]]:=y;
inc(a[y,0]);
a[y,a[y,0]]:=x;
end;
readln;
end;
main;
print;
end;
end;
begin
init;
end.