2929: [Poi1999]洞穴攀行

2929: [Poi1999]洞穴攀行

Time Limit: 1 Sec  Memory Limit: 128 MB
Submit: 80  Solved: 41
[Submit][Status][Discuss]

Description

一队洞穴学者在Byte Mountain的Grate Cave里组织了一次训练。训练中，每一位洞穴学者要从最高的一个室到达最底下的一个室。他们只能向下走。一条路上每一个连续的室都要比它的前一个低。此外，每一个洞穴学者都要从最高的室出发，沿不同的路走到最低的室。问：可以有多少个人同时参加训练？

 

任务：

写一个程序：

l        读入对洞穴的描述。

l         计算可以同时参加训练的人数。

l         将结果输出。

 

Input

 

第一行有一个整数n(2<=n<=200)，等于洞穴中室的个数。用1~n给室标号，号码越大就在越下面。最高的室记为1，最低的室记为n。以下的n-1行是对通道的描述。第I+1行包含了与第I个室有通道的室（只有比标号比I大的室）。这一行中的第一个数是m,0<=m<=(n-i+1)，表示被描述的通道的个数。接着的m个数字是与第I个室有通道的室的编号。

 

Output

 

输出一个整数。它等于可以同时参加训练的洞穴学者的最大人数。

 

Sample Input

12
4 3 4 2 5
1 8
2 9 7
2 6 11
1 8
2 9 10
2 10 11
1 12
2 10 12
1 12
1 12

Sample Output

3

HINT

 

Source

题解：网络流模板题么么哒。。。（PS：其实我一开始看成求路径数了= =）；

 /**************************************************************
     Problem:
     User: HansBug
     Language: Pascal
     Result: Accepted
     Time: ms
     Memory: kb
 ****************************************************************/

 type
     point=^node;
     node=record
                g,w:longint;
                next,anti:point;
     end;
 var
    i,j,k,l,m,n,s,t,ans:longint;
    a:array[..] of point;
    d,dv:array[..] of longint;
 function min(x,y:longint):longint;
          begin
               if x<y then min:=x else min:=y;
          end;
 function max(x,y:longint):longint;
          begin
               if x>y then max:=x else max:=y;
          end;
 procedure add(x,y,z:longint);
           var p:point;
           begin
                new(p);p^.g:=y;p^.w:=z;p^.next:=a[x];a[x]:=p;
                new(p);p^.g:=x;p^.w:=;p^.next:=a[y];a[y]:=p;
                a[x]^.anti:=a[y];a[y]^.anti:=a[x];
           end;
 function dfs(x,flow:longint):longint;
          var p:point;k:longint;
          begin
               if x=t then exit(flow);
               dfs:=;p:=a[x];
               while p<>nil do
                     begin
                          if (p^.w<>) and (d[x]=(d[p^.g]+)) then
                             begin
                                  k:=dfs(p^.g,min(flow-dfs,p^.w));
                                  if p^.w<>maxlongint then dec(p^.w,k);
                                  if p^.anti^.w<>maxlongint then inc(p^.anti^.w,k);
                                  inc(dfs,k);
                                  if dfs=flow then exit;
                             end;
                          p:=p^.next;
                     end;
               if d[s]=n then exit;
               dec(dv[d[x]]);
               if dv[d[x]]= then d[s]:=n;
               inc(d[x]);inc(dv[d[x]]);
          end;
 begin
      readln(n);s:=;t:=n;
      for i:= to n- do
          begin
               read(l);
               for j:= to l do
                   begin
                        read(k);
                        if (i=s) or (k=t) then add(i,k,) else add(i,k,maxlongint);
                   end;
               readln;
          end;
      fillchar(d,sizeof(d),);fillchar(dv,sizeof(dv),);dv[]:=n;ans:=;
      while d[s]<n do inc(ans,dfs(s,maxlongint));
      writeln(ans);
      readln;
 end.