poj1422 Air Raid

本题若读懂题目就会发现是一道最短路径覆盖的裸题，之后先把无向图转化为二分图，然后再用匈牙利算法求出其最大匹配数，最后最短路径覆盖数就是n-最大匹配数。

建图方法：先拆点，将每个点分为两个点，左边是1到n个点，右边也是1到n个点,然后每一条有向边对应左边的点指向右边的点即可

const MAXN=120;
var
	tc,n,m:longint;
	g:array[1..MAXN,1..MAXN]of longint;
	match,t:array[1..MAXN]of longint;
	h:array[1..MAXN]of boolean;
procedure init;
var i,x,y:longint;
begin
	fillchar(match,sizeof(match),0);
	fillchar(t,sizeof(t),0);
	read(n);
	read(m);
	for i:=1 to m do
	begin
		read(x,y);
		inc(t[x]);
		g[x,t[x]]:=y;
	end;
end;
function check(k:longint):boolean;
var i:longint;
begin
	for i:=1 to t[k] do
	if(not h[g[k,i]])then
	begin
		h[g[k,i]]:=true;
		if(match[g[k,i]]=0)or(check(match[g[k,i]]))then
		begin
			match[g[k,i]]:=k;
			exit(true);
		end;
	end;
	exit(false);
end;
procedure hungarian;
var i,ans:longint;
begin
	ans:=0;
	for i:=1 to n do
	begin
		fillchar(h,sizeof(h),0);
		if(check(i))then inc(ans);
	end;
	writeln(n-ans);
end;
begin
	readln(tc);
	while(tc<>0)do
	begin
		dec(tc);
		init;
		hungarian;
	end;
end.