SSL1338 人员分配

Description

设有M个工人和N项工作，每个工人至多做一项工作，而每项工作至多分配一名工人去做。每个工人只能胜任其中的一项或几项工作。怎样分配才能使尽可能多的工人分配到他胜任的工作。

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

思路

当工人xi胜任工作yi时，图中有一条边xiyi，于是人员分配问题就成为求一个最大匹配的问题。

type
  arr=record
  x,y,next:Longint;
end;
var
  e:array[1..10000]of arr;
  link,ls:array[1..10000]of longint;
  v:array[1..10000]of boolean;
  n:longint;
function find(x:longint):boolean;
var
  i,k:longint;
begin
  find:=true;
  i:=ls[x];
  while i>0 do
    begin
      if not v[e[i].y] then
        begin
          k:=link[e[i].y];
          link[e[i].y]:=e[i].x;
          v[e[i].y]:=true;
          if (k=0)or find(k) then exit;
          link[e[i].y]:=k;
        end;
      i:=e[i].next;
    end;
  find:=false;
end;
procedure main;
var
  i,ans:longint;
begin
  ans:=0;
  for i:=1 to n do
    begin
      fillchar(v,sizeof(v),false);
      if find(i) then inc(ans);
    end;
  writeln(ans);
end;
procedure init;
var
  i,m,x,y:longint;
begin
  readln(n,m);
  readln(m);
  for i:=1 to m do
    begin
      readln(x,y);
      e[i].x:=x;
      e[i].y:=y;
      e[i].next:=ls[x];
      ls[x]:=i;
    end;
end;
begin
  init;
  main;
end.