完美的牛栏

题目描述

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

给出奶牛们的爱好的信息，计算最大分配方案。

输入输出格式

输入格式：
第一行 两个整数，N (0 <= N <= 200) 和 M (0 <= M <= 200) 。N 是农夫约翰的奶牛数量，M 是新牛棚的牛栏数量。

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

输出格式：
只有一行。输出一个整数，表示最多能分配到的牛栏的数量.

输入输出样例

输入样例#1： 复制
5 5
2 2 5
3 2 3 4
2 1 5
3 1 2 5
1 2
输出样例#1： 复制
4
说明

N (0 <= N <= 200)

M (0 <= M <= 200)

思路：本来不知道它的存在，后来听说这题很水，就去做了，发现和CJX说的一样啊，就是个模板啊dalao!!!!其实很水很水，是一个科体的匈牙利。那个C大佬我也把他的博客留下了，毕竟人家帮了我啊：http://blog.csdn.net/SSLGZ_CJX/article/details/78879058

const
 maxn=1000;
var
 map:array[0..200,0..200]of boolean;
 link:array[0..maxn]of longint;
 cover:array[0..maxn]of boolean;
 n,m,s,i,j,y,ans:longint;
function find(x:longint):boolean;
var
 q,k:longint;
begin
 find:=true;
 q:=0;
 for k:=1 to n do
  begin
   if (not(cover[k]))and(map[x,k]) then
    begin
     q:=link[k];
     cover[k]:=true;
     link[k]:=x;
     if (q=0)or(find(q))then exit;
     link[k]:=q;
    end;
  end;
 find:=false;
end;
begin
 fillchar(map,sizeof(map),false);
 readln(n,m);
 for j:=1 to n do
 begin
  read(s);
  for i:=1 to s do
   begin
    read(y);
    map[j,y]:=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.