【二分图最大匹配】寻找代表元&nbs…

【重庆八中Maxwell杯竞赛试题】寻找代表元（二分图最大匹配）

Time Limit:10000MS  MemoryLimit:10240K
Total Submit:38 Accepted:15

Description

寻找代表元

问题描述：
　　八中一共有n个社团，分别用1到n编号。
　　八中一共有m个人，分别用1到m编号。每个人可以参加一个或多个社团，也可以不参加任何社团。
　　每个社团都需要选一个代表。我们希望更多的人能够成为代表。

Input

　　第一行输入两个数n和m。
　　以下n行每行若干个数，这些数都是不超过m的正整数。其中第i行的数表示社团i的全部成员。每行用一个0结束。

Output

　　输出最多的能够成为代表的人数。

SampleInput

4 41 2 01 2 01 2 01 2 3 4 0

SampleOutput

3

Hint

数据范围：
　　n,m <= 200

Source

 

 

基础题，

注意m和n的区别。

 

var
 n,m,s:longint;
 map:array[1..200+1,1..200+1]of boolean;
 mark:array[1..200+1]of boolean;
 link:array[1..200+1]of longint;

procedure init;
var
 i,x:longint;
begin
 read(n,m);
 for i:=1 to n do
  while true do
   begin
   read(x);
    if x=0 thenbreak;
   map[i,x]:=true;
   end;
end;

function find(x:longint):boolean;
var
 i,q:longint;
begin
 for i:=1 to mdo//这里第一次写成了n
  if map[x,i]and not mark[i] then
   begin
   q:=link[i]; link[i]:=x;mark[i]:=true;
   if (q=0)or(find(q)) thenexit(true);
   link[i]:=q;
   end;
 exit(false);
end;

procedure main;
var
 i:longint;
begin
 s:=0;
 for i:=1 to n do
  begin
  fillchar(mark,sizeof(mark),0);
  if find(i) then inc(s);
  end;
end;

begin
 init;
 main;
 write(s);
end.