codevs1034

题目地址：http://codevs.cn/problem/1034/

代码：

type ss=recordy,c,r,next:longint;end;
const maxn=10100; maxm=100000; oo=maxlongint shr 2;
var n,m,i,j,k,l,st,ed,t1,t2,t,tot,limit,ans,augo:longint;v:array[0..30] of boolean;ee:array[0..30,0..30] of boolean;e:array[0..maxm] of ss;r,z:array[0..31] of longint;p:array[0..31,0..100] of longint;h,g,b,d:array[0..maxn] of longint;can:boolean;
procedure shi(k:longint);
var i:longint;
beginif v[k] then exit;v[k]:=true;for i:=1 to n do if ee[k,i] then shi(i);if v[n] then exit;
end;
procedure jia(x,y,c:longint);
begininc(tot); e[tot].y:=y; e[tot].c:=c; e[tot].next:=b[x]; b[x]:=tot;inc(tot); e[tot].y:=x; e[tot].next:=b[y]; b[y]:=tot;e[tot].r:=tot-1; e[tot-1].r:=tot;
end;
procedure flow(k:longint);
var i,temp:longint;
begintemp:=augo;if k=ed thenbegincan:=true;inc(ans,augo);exit;end;i:=d[k];while i<>-1 dobeginif e[i].c>0 thenbeginif h[e[i].y]+1=h[k] thenbeginif e[i].c<augo then augo:=e[i].c;flow(e[i].y);if h[st]>=limit then exit;if can then break;end;augo:=temp;end;i:=e[i].next;end;if can thenbegind[k]:=i; dec(e[i].c,augo); inc(e[e[i].r].c,augo);endelsebegind[k]:=b[k]; dec(g[h[k]]);if g[h[k]]<=0 then h[st]:=limit;inc(h[k]); inc(g[h[k]]);end;
end;
beginreadln(n,m,k);for i:=1 to m dobeginread(r[i],z[i]);for j:=0 to z[i]-1 dobeginread(p[i,j]);if p[i,j]=0 then p[i,j]:=n+1;if p[i,j]=-1 then p[i,j]:=n+2;end;for j:=0 to z[i]-1 dofor l:=0 to z[i]-1 do ee[p[i,j],p[i,l]]:=true;end;inc(n,2); shi(n-1);if not(v[n]) then writeln(0)elsebeginst:=1000; ed:=1001;fillchar(b,sizeof(b),255);jia(st,n-1,k); jia(n,ed,oo);repeatinc(t);jia(st,n-1+t*n,k); jia(n+t*n,ed,oo);for i:=1 to n do jia(i+(t-1)*n,i+t*n,oo);for i:=1 to m dobegint1:=p[i,(t-1) mod z[i]]+(t-1)*n;t2:=p[i,t mod z[i]]+t*n;jia(t1,t2,r[i]);end;limit:=(t+1)*n+2;fillchar(h,sizeof(h),0);fillchar(g,sizeof(g),0);g[0]:=limit;for i:=1 to limit do d[i]:=b[i];d[st]:=b[st]; d[ed]:=b[ed];while h[st]<limit dobegincan:=false;augo:=oo;flow(st);end;until ans>=k;writeln(t);end;
end.

codevs1034相关推荐

【codevs1034】家园——网络流
由数据范围看是可以用网络流的... 其实还是接近于很裸的网络流,不过是变成了动态建边,图会很大,不过题目数据范围小啊... 枚举时间,自己想一个上界,cyc大佬说是100,那就100吧,到达上界前找到 ...
latex c语言程序,latex中添加C++代码
HttpClient Http协议的重要性相信不用我多说了,HttpClient相比传统JDK自带的URLConnection,增加了易用性和灵活性(具体区别,日后我们再讨论),它不仅是客户端发送Ht ...

codevs1034

codevs1034相关推荐

最新文章

热门文章