2017年2月14日
dinic板子
摘要： 1 procedure dinic; 2 begin 3 while bfs do inc(ans,dfs(s,maxlongint)); 4 end; 5 6 function bfs:boolean; 7 var h,tail,i,j:longint; 8 begin 9 fillchar(dis,sizeof(dis),$3f); 10 h:=0;tail:... 阅读全文
posted @ 2017-02-14 00:18 OldJang 阅读(302) 评论(0) 推荐(0) 编辑