信与信封问题 SSL_1331（最大匹配）

Description

　　John先生晚上写了n封信，并相应地写了n个信封将信装好，准备寄出。但是，第二天John的儿子Small John将这n封信都拿出了信封。不幸的是，Small John无法将拿出的信正确地装回信封中了。

　　将Small John所提供的n封信依次编号为1，2，…，n；且n个信封也依次编号为1，2，…，n。假定Small John能提供一组信息：第i封信肯定不是装在信封j中。请编程帮助Small John，尽可能多地将信正确地装回信封。

Input

第一行是一个整数n（n≤100）。信和信封依次编号为1，2，…，n。

接下来的各行中每行有2个数i和j，表示第i封信肯定不是装在第j个信封中。文件最后一行是2个0，表示结束。

Output

输出的各行中每行有2个数i和j，表示第i封信肯定是装在第j个信封中。请按信的编号i从小到大顺序输出。若不能确定正确装入信封的任何信件，则输出“none”。

Sample Input

3

1 2

1 3

2 1

0 0

Sample Output

1 1

var
link:array[0..101] of longint;
cover:array[0..101] of boolean;
map:array[0..101,0..101] of boolean;
i,j,k,n,m,x,y:longint;
ans:boolean;

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

begin
readln(n);
x:=1;
y:=1;
fillchar(map,sizeof(map),true);
while (x<>0) and (y<>0) do
begin
readln(x,y);
map[y,x]:=false;
end;
for i:=1 to n do
begin
fillchar(cover,sizeof(cover),false);
find(i);
end;
for i:=1 to n do
begin
y:=link[i];
link[i]:=0;
map[y,i]:=false;
fillchar(cover,sizeof(cover),false);
if not(find(y)) then
begin
link[i]:=y;
writeln(i,' ',y);
ans:=true;
end;
map[y,i]:=true;
end;
if ans=false then writeln('none');
end.