（洛谷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.