poj1149

非常好的网络流

每个顾客分别用一个结点来表示。

对于每个猪圈的第一个顾客，从源点向他连一条边，容量就是该猪圈里的猪的初始数量

对于每个猪圈，假设有n个顾客打开过它，则对所有整数i∈[1, n)，从该猪圈的第i个顾客向第i + 1个顾客连一条边，容量为无穷。

从各个顾客到汇点各有一条边，容量是各个顾客能买的数量上限。

其实很好理解

const inf=100000007;
type node=record
       from,point,flow,next:longint;
     end;
var p,s,w,h,numh,cur,pre:array[0..1010] of longint;
    v:array[0..1010] of boolean;
    a:array[0..1010,0..1010] of longint;
    edge:array[0..1000010] of node;
    ans,z,len,t,i,j,k,x,y,n,m:longint;

procedure add(x,y,f:longint);
  begin
    inc(len);
    edge[len].from:=x;
    edge[len].point:=y;
    edge[len].flow:=f;
    edge[len].next:=p[x];
    p[x]:=len;
  end;

procedure sap;
  var q,u,i,j,flow,neck,tmp:longint;
  begin
    fillchar(numh,sizeof(numh),0);
    fillchar(h,sizeof(h),0);
    fillchar(pre,sizeof(pre),255);
    numh[0]:=t+1;
    u:=0;
    while h[0]<t+1 do
    begin
      if u=t then
      begin
        neck:=0;
        flow:=inf;
        i:=0;
        j:=cur[i];
        while i<>t do
        begin
          if flow>edge[j].flow then
          begin
            flow:=edge[j].flow;
            neck:=i;
          end;
          i:=edge[j].point;
          j:=cur[i];
        end;
        i:=0;
        j:=cur[i];
        while i<>t do
        begin
          dec(edge[j].flow,flow);
          inc(edge[j xor 1].flow,flow);
          i:=edge[j].point;
          j:=cur[i];
        end;
        ans:=ans+flow;
        u:=neck;
      end;
      q:=-1;
      i:=p[u];
      while i<>-1 do
      begin
        x:=edge[i].point;
        if (edge[i].flow>0) and (h[u]=h[x]+1) then
        begin
          q:=i;
          break;
        end;
        i:=edge[i].next;
      end;
      if q<>-1 then
      begin
        cur[u]:=q;
        pre[x]:=u;
        u:=x;
      end
      else begin
        dec(numh[h[u]]);
        if numh[h[u]]=0 then break;
        tmp:=t+1;
        i:=p[u];
        while i<>-1 do
        begin
          x:=edge[i].point;
          if (edge[i].flow>0) then tmp:=min(tmp,h[x]);
          i:=edge[i].next;
        end;
        h[u]:=tmp+1;
        inc(numh[h[u]]);
        if u<>0 then u:=pre[u];
      end;
    end;
  end;


begin
  readln(m,n);
  fillchar(p,sizeof(p),255);
  len:=-1;
  t:=n+1;
  for i:=1 to m do
    read(w[i]);
  for i:=1 to n do
  begin
    read(y);
    z:=0;
    for j:=1 to y do
    begin
      read(x);
      if v[x]=false then
      begin
        v[x]:=true;
        z:=z+w[x];   //如果多条边连接源点和顾客，那么合并
      end;
      inc(s[x]);
      a[x,s[x]]:=i;
    end;
    if z<>0 then
    begin
      add(0,i,z);
      add(i,0,0);
    end;
    readln(x);
    add(i,t,x);
    add(t,i,0);
  end;
  for i:=1 to m do
    for j:=1 to s[i]-1 do
      for k:=j+1 to s[i] do
      begin
        add(a[i,j],a[i,k],inf);
        add(a[i,k],a[i,j],0);
      end;
  sap;
  writeln(ans);
end.