SSL P1338 最大匹配之人员分配

题目大意：

有M个工人x1, x2, …, xm，和N项工作y1, y2, …, yn，规定每个工人至多做一项工作，而每项工作至多分配一名工人去做。由于种种原因，每个工人只能胜任其中的一项或几项工作。问应怎样分配才能使尽可能多的工人分配到他胜任的工作。总共有s组x,y表示工人x能胜任工作y。
求最多能让多少个工人派到自己的胜任的工作上。
这个问题称为人员分配问题。

1<=m,n<=100
1<=s<=10000

题解：

这题是匈牙利算法的模板题，
匈牙利算法是一种利用不断的去寻找增广路增广直到不存在增广路时得到最大匹配的一种算法
http://blog.csdn.net/dark_scope/article/details/8880547
这个博客的讲解很详细。
当然匈牙利的时间复杂度偏高，所以一般用于解决数据偏小的最大匹配问题。

代码：

const
     maxn=100;

var
     map:Array [0..maxn+1,0..maxn+1] of boolean;
     cover:array [0..maxn+1] of boolean;
     link:array [0..maxn+1] of longint;
     ans,s,i,j,x,y,n,m:longint;

function find(x:longint):boolean;
var
     q,i:longint;
begin
     q:=0;
     for i:=1 to n do
        if map[x,i] and not(cover[i]) then
        begin
             q:=link[i];
             link[i]:=x;
             cover[i]:=true;
             if (q=0) or find(q) then exit(true);
             link[i]:=q;
        end;
     exit(false);
end;

begin
     readln(n,m);
     readln(s);
     for i:=1 to s do
       begin
            readln(x,y);
            map[x,y]:=true;
       end;
     for i:=1 to n do
       begin
            fillchar(cover,sizeof(cover),false);
            find(i);
       end;
     ans:=0;
     for i:=1 to n do
       if link[i]>0 then inc(ans);
     writeln(ans);
end.