(ssl1331)信与信封问题

信与信封问题

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

Hint

03年福建省赛

Source

ebla

   题解：本题依旧是最大匹配(模板详见：这里)
      本题的思路是先用匈牙利算法得出最大匹配，再通过删除路来寻找完美匹配。如果一条都没有的话就输出”none”。

var
 a:array[1..100,1..100]of boolean;
 v:array[1..100]of boolean;
 l:array[1..100]of longint;
 n,x,y,t,i,j:longint;
 f:boolean;
function try(i:longint):boolean;//匈牙利算法
var
 j,t:longint;
begin
 try:=true;
 for j:=1 to n do
  if not 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
 readln(n);
 while 9=9 do
  begin
   readln(x,y);
   if x+y=0 then break;
   a[y,x]:=true;//断路
  end;
 for i:=1 to n do
  begin
   fillchar(v,sizeof(v),0);
   try(i);
  end;
 for j:=1 to n do
  begin
   i:=l[j]; l[j]:=0; a[i,j]:=true;//删路前记得保存，后面需要还原
   fillchar(v,sizeof(v),0);
   if not try(i) then//存在就输出
    begin
     l[j]:=i;
     writeln(j,' ',i);//由于是从小到大枚举，所以能保证从小到大输出
     f:=true;//至少有一封信放进去了
    end;
   a[i,j]:=false;//还原
  end;
 if not f then writeln('none');//没有就输出"none"
end.