CODEVS1222 信与信封问题 （匈牙利算法）

先做一遍匈牙利算法。对于已经匹配的边，如果删去之后还能最大匹配数增加，则不符合要求。

一遍匈牙利算法是O（n^3)的，对于每一条边做n次，每次O(n^2)，总的复杂度是O(n^3)。

注意：不要忘记输出none。

 var a:array[..,..] of boolean;
     l,r:array[..] of longint;
     pd:array[..] of boolean;
     i,j,x,y,n,sum,num:longint;
 function find(i:longint):boolean;
 var j:longint;
 begin
     for j:= to n do
         if a[i,j] and not pd[j] then
         begin
             pd[j]:=true;
             if (l[j]=) or find(l[j]) then
             begin
                 l[j]:=i;
                 r[i]:=j;
                 exit(true);
             end;
         end;
     exit(false);
 end;
 begin
     fillchar(a,sizeof(a),true);
     readln(n);
     readln(x,y);
     while not ((x=) and (y=)) do
     begin
         a[x,y]:=false;
         readln(x,y);
     end;
     fillchar(l,sizeof(l),);
     fillchar(r,sizeof(r),);
     sum:=;
     for i:= to n do
     begin
         fillchar(pd,sizeof(pd),false);
         if find(i) then inc(sum);
     end;
     num:=;
     for i:= to n do
     begin
         fillchar(pd,sizeof(pd),false);
                 j:=r[i];
         a[i,j]:=false;
         r[i]:=; l[j]:=;
         if not find(i) then begin inc(num); writeln(i,' ',j); end;
         a[i,j]:=true;
         r[i]:=j; l[j]:=i;
     end;
     if num= then writeln('none');
 end.