【PKU 3281】Dining(构图+网络流)

【题目大意】：

就是有n个牛，有f种食物和d种饮料，每个牛喜欢一个或多个食物和饮料，但是所有的食物和饮料每种都只有一个，问最多可以满足多少头牛的需要。

 

【题目分析】：

其实这个是很简单的，很明显的网络流模型，构图方法是把一头牛拆成两个点，两边分别是食物和饮料，然后把食物和左面的那一排牛连接在一起，右面的那一排牛和饮料连接在一起，两头牛拆开的点之间再连一条边。加上超级源点和所有食物相连，所有饮料和超级汇点相连。所有边上的容量都是1。然后求最大流就可以了。

 

【代码】：

program PKU_3281; var n,f,d,x,y,i,j,p,nn,s,t,delta,min,minj,tot:longint; g:array[0..401,0..401] of longint; dis,his,vh,di,pre:array[0..402] of longint; flag:boolean; begin assign(input,'a.in'); assign(output,'a.out'); reset(input); rewrite(output); readln(n,f,d); for i:=1 to n do begin read(x,y); for j:=1 to x do begin read(p); g[p,f+i]:=maxlongint; end; for j:=1 to y do begin read(p); g[f+n+i,f+2*n+p]:=maxlongint; end; g[f+i,f+n+i]:=1; end; for i:=1 to f do g[0,i]:=1; for i:=1 to d do g[f+2*n+i,f+2*n+d+1]:=1; nn:=f+2*n+d+1; vh[0]:=nn+1; for i:=0 to nn do di[i]:=0; s:=0; t:=nn; i:=s; delta:=maxlongint; tot:=0; while dis[s]<nn+1 do begin his[i]:=delta; flag:=false; for j:=di[i] to nn do if (g[i,j]>0) and (dis[j]+1=dis[i]) then begin flag:=true; pre[j]:=i; di[i]:=j; if g[i,j]<delta then delta:=g[i,j]; i:=j; if i=t then begin inc(tot,delta); x:=t; y:=pre[x]; while x<>s do begin dec(g[y,x],delta); inc(g[x,y],delta); x:=pre[x]; y:=pre[y]; end; i:=s; delta:=maxlongint; end; break; end; if flag then continue; min:=nn; for j:=0 to nn do if (g[i,j]>0) and (min>dis[j]) then begin min:=dis[j]; minj:=j; end; di[i]:=minj; dec(vh[dis[i]]); if vh[dis[i]]=0 then break; dis[i]:=min+1; inc(vh[dis[i]]); if i<>s then begin i:=pre[i]; delta:=his[i]; end; end; writeln(tot); close(input); close(output); end.