(洛谷P1894)USACO 4.2 The Perfect Stall 完美的牛栏

Description

  农夫约翰上个星期刚刚建好了他的新牛棚,他使用了最新的挤奶技术。不幸的是,由于工程问题,每个牛栏都不一样。第一个星期,农夫约翰随便地让奶牛们进入牛栏,但是问题很快地显露出来:每头奶牛都只愿意在她们喜欢的那些牛栏中产奶。上个星期,农夫约翰刚刚收集到了奶牛们的爱好的信息(每头奶牛喜欢在哪些牛栏产奶)。一个牛栏只能容纳一头奶牛,当然,一头奶牛只能在一个牛栏中产奶。
  给出奶牛们的爱好的信息,计算最大分配方案。

Input

第一行 两个整数,N (0 <= N <= 200) 和 M (0 <= M <= 200) 。N 是农夫约翰的奶牛数量,M 是新牛棚的牛栏数量。
第二行到第N+1行 一共 N 行,每行对应一只奶牛。第一个数字 (Si) 是这头奶牛愿意在其中产奶的牛栏的数目 (0 <= Si <= M) 。后面的 Si 个数表示这些牛栏的编号。牛栏的编号限定在区间 (1..M) 中,在同一行,一个牛栏不会被列出两次。

Output

只有一行。输出一个整数,表示最多能分配到的牛栏的数量。

Sample Input

5 5
2 2 5
3 2 3 4
2 1 5
3 1 2 5
1 2

Sample Output

4

思路:
匈牙利算法模板改一改,在read的部分修改一下就好了

var
 cover:array[0..201]of boolean;
 map:array[0..201,0..201]of boolean;
 link:array[0..201]of longint;
 i,j,n,s,t,m,y,ans:longint;
function find(i:longint):boolean;
var
 k,q:longint;
begin
 find:=true;
 for k:=1 to n do
  if (not(cover[k]))and(map[i,k]) then
    begin
      q:=link[k];
      cover[k]:=true;
      link[k]:=i;
      if (q=0)or(find(q)) then exit;
      link[k]:=q;
    end;
 exit(false);
end;

begin
 read(n,m);
 for i:=1 to n do
   begin
     read(s);
     for j:=1 to s do
       begin
         read(y);
         map[y,i]:=true;
       end;
   end;
 for i:=1 to n do
   begin
     fillchar(cover,sizeof(cover),false);
     find(i);
   end;
 for i:=1 to n do
  if link[i]<>0 then inc(ans);
 write(ans);
end.
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章