Dining

原创 2015年11月18日 20:04:29

题目

农夫JOHN为牛们做了很好的食品,但是牛吃饭很挑食。每一头牛只喜欢吃一些食品和饮料而别的一概不吃。虽然他不一定能把所有牛喂饱,他还是想让尽可能多的牛吃到他们喜欢的食品和饮料。
  农夫JOHN做了F (1<=F<=100) 种食品和准备了D(1<=D<=100)种饮料。他有N(1<=N<=100)头牛,现在已经知道他的每头牛是否愿意吃某种食物和喝某种饮料。农夫JOHN想给每一头牛一种食品和一种饮料,使得尽可能多的牛得到喜欢的食物和饮料。
  每一件食物和饮料只能由一头牛来用。例如如果食物2被一头牛吃掉了,没有别的牛能吃食物2。

分析

很明显的约束条件,我们可以往网络流的方向想
我们会想到每次流出的值都是一种合法的方案,所以我们便可以接着往这个方向去想。
我们会发现若是源点向牛连边,那么我们不能够把饮料和食物连在一起,所以我们可以考虑把牛放在中间,旁边连一些饮料和食物。实际上也是这样的:
我们从源点向饮料连容量为1的边,再把每头牛拆成两个点x,x’。对于它喜欢的饮料i,和食物j,我们可以这样连边:(i->x,1)(x->x’,1)(x’->j,1),这样便可以跑最大流了。

var
    nu,i,n,m,k,x,x1,x2,ans,p,s,ni,tu,j:longint;
    b,last,next,f,re,h,vh:array[0..100000] of longint;
procedure insert(x,y,z:longint);
begin
    inc(nu);b[nu]:=y;next[nu]:=last[x];last[x]:=nu;f[nu]:=z;re[nu]:=nu+1;
    inc(nu);b[nu]:=x;next[nu]:=last[y];last[y]:=nu;f[nu]:=0;re[nu]:=nu-1;
end;
function min(l,r:longint):longint;
begin
    if l<r then exit(l);exit(r);
end;
function sap(x,y:longint):longint;
var p,t,minh:longint;
begin
    if x=tu then exit(y);
    p:=last[x];minh:=ni+1;
    while p<>0 do begin
       if f[p]>0 then begin
          if h[x]=h[b[p]]+1 then begin
             t:=sap(b[p],min(y,f[p]));
             if t>0 then begin
                f[p]:=f[p]-t;
                f[re[p]]:=f[re[p]]+t;
                exit(t);
             end;
             if h[0]>ni then exit(0);
          end;
          minh:=min(minh,h[b[p]]+1);
       end;
       p:=next[p];
    end;
    dec(vh[h[x]]);
    if vh[h[x]]=0 then h[0]:=ni+1;
    h[x]:=minh;
    inc(vh[h[x]]);
    exit(0);
end;
begin
    readln(n,m,k);
    for i:=1 to n do begin
        read(x1,x2);insert(m+i,i+m+n,1);
        for j:=1 to x1 do begin
            read(x);insert(x,m+i,1);
        end;
        for j:=1 to x2 do begin
            read(x);insert(n+m+i,n+m+n+x,1);
        end;
    end;
    s:=0;tu:=n+m+k+1+n;ni:=n+m+k+2+n;
    for i:=1 to m do insert(0,i,1);
    for i:=1 to k do insert(i+m+n+n,tu,1);
    vh[0]:=ni;
    while h[0]<=ni do
    ans:=ans+sap(0,maxlongint);
    writeln(ans);
end.
版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

poj 3281 Dining(网络流最大流+分点)

题目大意:有N种食物,和N种饮料.每头牛有喜欢的饮料和食物.问有多少头牛可以同时吃到自己喜欢的饮料和食物. 思路:这道题主要在于建图问题. 添加超级汇点和超级源点自然不用多说了. 正确的建模:源...

动态规划——Dining Cows

The cows are so very silly about their dinner partners. They have organized themselves into three gr...
  • LSC_333
  • LSC_333
  • 2017年07月24日 14:57
  • 76

【网络流-最大流-Dinic-建模】POJ3281 Dining:Pascal 解法

传送门:POJ3281 【题目大意】 有N头奶牛,每一头都有自己喜欢的食物和饮料,且它们只吃自己喜欢的东西。每头牛只能选一个食物与一个饮料现在有F种食物,D种饮料,求最多能够同时满足几头奶牛的需求...

POJ 3281Dining(网络流之最大流)

题目地址:

[BZOJ1226][SDOI2009][状态压缩DP]学校食堂Dining

小F 的学校在城市的一个偏僻角落,所有学生都只好在学校吃饭。学校有一个食堂,虽然简陋,但食堂大厨总能做出让同学们满意的菜肴。当然,不同的人口味也不一定相同,但每个人的口味都可以用一个非负整数表示。由于...

poj3281 Dining

网络流(最大流)的经典题,今天打个人赛遇到了,具体的见图方法在挑战程序设计的235页。 #include #include #include #include #include #include u...
  • zh9406
  • zh9406
  • 2015年04月04日 15:35
  • 245

POJ3281 Dining (SAP+GAP)

题目大意:农夫FJ的农场有一批奶牛,奶牛有自己喜爱的food和drink,FJ要计划一个策略,使得让尽可能多的牛匹配自己喜欢的food和drink,每种food和drink只能被分配一次,每头奶牛只能...

POJ 3281 Dining 最大流

Description Cows are such finicky eaters. Each cow has a preference for certain foods and drink...

poj 3281 Dining 【图论-网络流-最大流-EK&Ford-Fulkerson】

Dining Time Limit: 2000MS Memory Limit: 65536K Description Cows are such f...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Dining
举报原因:
原因补充:

(最多只允许输入30个字)