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.