poj1523[割顶&连通分支数]

SPF

Time Limit: 1000MS		Memory Limit: 10000K
Total Submissions: 3348		Accepted: 1520

Description

Consider the two networks shown below. Assuming that data moves around these networks only between directly connected nodes on a peer-to-peer basis, a failure of a single node, 3, in the network on the left would prevent some of the still available nodes from communicating with each other. Nodes 1 and 2 could still communicate with each other as could nodes 4 and 5, but communication between any other pairs of nodes would no longer be possible. 

Node 3 is therefore a Single Point of Failure (SPF) for this network. Strictly, an SPF will be defined as any node that, if unavailable, would prevent at least one pair of available nodes from being able to communicate on what was previously a fully connected network. Note that the network on the right has no such node; there is no SPF in the network. At least two machines must fail before there are any pairs of available nodes which cannot communicate. 

Input

The input will contain the description of several networks. A network description will consist of pairs of integers, one pair per line, that identify connected nodes. Ordering of the pairs is irrelevant; 1 2 and 2 1 specify the same connection. All node numbers will range from 1 to 1000. A line containing a single zero ends the list of connected nodes. An empty network description flags the end of the input. Blank lines in the input file should be ignored.

Output

For each network in the input, you will output its number in the file, followed by a list of any SPF nodes that exist. 

The first network in the file should be identified as "Network #1", the second as "Network #2", etc. For each SPF node, output a line, formatted as shown in the examples below, that identifies the node and the number of fully connected subnets that remain when that node fails. If the network has no SPF nodes, simply output the text "No SPF nodes" instead of a list of SPF nodes.

Sample Input

1 2
5 4
3 1
3 2
3 4
3 5
0

1 2
2 3
3 4
4 5
5 1
0

1 2
2 3
3 4
4 6
6 3
2 5
5 1
0

0

Sample Output

Network #1
  SPF node 3 leaves 2 subnets

Network #2
  No SPF nodes

Network #3
  SPF node 2 leaves 2 subnets
  SPF node 3 leaves 2 subnets

Source

Greater New York 2000
======================================================================================================
给定无向图，求出割顶以及删除该割顶后会分出多少连通分支，鉴于1000的数据规模，朴素就可以了。
Code:

program poj1523;

const
MaxN=1000;

type
link=^node;
node=record
           x:longint;
           next:link;
end;

var
g:array[1..MaxN] of link;
vis:array[1..MaxN] of boolean;

procedure Conn(i,j:longint);
var p:link;
begin
     new(p);
     p^.x:=j;
     p^.next:=g[i];
     g[i]:=p;
     //writeln('Conn'+#32,i,#32,j);
end;

procedure Draw(u:longint);
var p:link;
begin
     vis[u]:=true;
     p:=g[u];
     while p<>nil do begin
           if not vis[p^.x] then Draw(p^.x);
           p:=p^.next;
     end;
end;

function Nets(u:longint):longint;
var p:link;
begin
     fillchar(vis,sizeof(vis),false);
     vis[u]:=true;
     Nets:=0;
     p:=g[u];
     while p<>nil do begin
           if not vis[p^.x] then begin
              Draw(p^.x);
              inc(Nets);
           end;
           p:=p^.next;
     end;
end;

procedure Over;
begin
     close(input); close(output);
     halt;
end;

function Get(var x,y:longint):boolean;
var str:string; code:longint;
begin
     if eof then exit(false);
     while not eof do begin
           readln(str);
           if str<>'' then break;
     end;
     if str='' then exit(false);
     if str[1]='0' then exit(false);
     val(copy(str,1,pos(#32,str)-1),x,code);
     val(copy(str,pos(#32,str)+1,length(str)-pos(#32,str)),y,code);
     exit(true);
     //writeln('Get'+#32,x,#32,y);
end;

procedure Scan;
var i,x,y:longint;
begin
     for i:=1 to MaxN do g[i]:=nil;

     if not Get(x,y) then Over else begin
        Conn(x,y);
        Conn(y,x);
     end;
     while Get(x,y) do begin
           Conn(x,y);
           Conn(y,x);
     end;
end;

procedure Print(number:longint);
var i,tmp:longint; nothing:boolean;
begin
     writeln('Network'+#32+'#',number);
     nothing:=true;
     for i:=1 to MaxN do begin
         tmp:=Nets(i);
         if tmp>1 then begin
            writeln(#32+#32+'SPF'+#32+'node'+#32,i,#32+'leaves'+#32,tmp,#32+'subnets');
            nothing:=false;
         end;
     end;
     if nothing then writeln(#32+#32+'No'+#32+'SPF'+#32+'nodes');
     writeln;
end;

procedure Main;
var i:longint;
begin
     i:=0;
     while not eof do begin
           inc(i);
           Scan;
           Print(i);
     end;
end;

begin
     assign(input,'poj1523.in'); reset(input);
     assign(output,'poj1523.out'); rewrite(output);

     Main;

     close(input); close(output);
end.