(ssl1338)最大匹配 人员分配

最大匹配 人员分配

Time Limit:1000MS

Memory Limit:65536K

Total Submit:111

Accepted:56

Description

　　设有M个工人x1, x2, …, xm，和N项工作y1, y2, …, yn，规定每个工人至多做一项工作，而每项工作至多分配一名工人去做。由于种种原因，每个工人只能胜任其中的一项或几项工作。问应怎样分配才能使尽可能多的工人分配到他胜任的工作。这个问题称为人员分配问题。

Input

第一行两个整数m，n分别为工人数和工作数。
接下来一个整数s，为二分图的边数。
接下来s行，每行两个数ai,bi表示第ai个工人能胜任第bi份工作

Output

一个整数，表示最多能让多少个工人派到自己的胜任的工作上。

Sample Input

3 3
4
1 2
2 1
3 3
1 3
Sample Output

3
Hint

规模：
1<=m,n<=100
1<=s<=10000

Source

cwj
   题解:本题是找最大匹配的模板，故使用匈牙利算法。

var
 a:array[1..100,1..100]of boolean;
 v:array[1..100]of boolean;
 l:array[1..100]of longint;
 n,m,s,x,y,i,j,ans:longint;
function try(i:longint):boolean;//匈牙利算法
var
 j,t:longint;
begin
 try:=true;
 for j:=1 to n do
  if a[i,j] and not v[j]then
   begin
    t:=l[j]; l[j]:=i; v[j]:=true;
    if (t=0) or try(t)then exit;
    l[j]:=t;
   end;
 try:=false;
end;
begin
 read(m,n);
 read(s);
 for i:=1 to s do
  begin
   read(x,y);
   a[x,y]:=true;//联通
  end;
 for i:=1 to n do//枚举出最大匹配
  begin
   fillchar(v,sizeof(v),0);//还原
   try(i);
  end;
 for i:=1 to n do
  if l[i]<>0 then inc(ans);
 write(ans);
end.