算法模板——sap网络最大流 3（递归+邻接矩阵）

实现功能：同之前

可以看见的是这次的程序优美了许多，代码简短了一倍还多，可是速度却是和原来的邻接表一个级别的（在Codevs上面草地排水那题的运行时间比较，但是显然数据很大时应该比那个慢些），原理差不多，感觉dfs里面的来回倒变量很神奇

 

var
   s,t,i,j,k,l,m,n,ans:longint;
   a:array[0..1000,0..1000] of longint;
   d,dv:array[0..10000] of longint;
function min(x,y:longint):longint;inline;
         begin
              if x<y then min:=x else min:=y;
         end;
function dfs(x,flow:longint):longint;inline;
         var i,j,k,l:longint;
         begin
              if x=t then exit(flow);
              dfs:=0;
              for i:=1 to n do
                  if (a[x,i]>0) and (d[x]=(d[i]+1)) then
                     begin
                          k:=dfs(i,min(flow-dfs,a[x,i]));
                          dec(a[x,i],k);
                          inc(a[i,x],k);
                          inc(dfs,k);
                          if dfs=flow then exit;
                     end;
              if d[s]=n then exit;
              dec(dv[d[x]]);
              if dv[d[x]]=0 then d[s]:=n;
              inc(d[x]);
              inc(dv[d[x]]);
         end;
begin
     readln(n,m,s,t);
     fillchar(a,sizeof(a),0);
     for i:=1 to m do
         begin
              readln(j,k,l);
              inc(a[j,k],l);
         end;
     fillchar(d,sizeof(d),0);
     fillchar(dv,sizeof(dv),0);
     dv[0]:=n;ans:=0;
     while d[s]<n do inc(ans,dfs(s,maxlongint));
     writeln(ans);
end.