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

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

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

注意：不要忘记输出none。

var a:array[0..1000,0..1000] of boolean;
    l,r:array[0..1000] of longint;
    pd:array[0..1000] of boolean;
    i,j,x,y,n,sum,num:longint;
function find(i:longint):boolean;
var j:longint;
begin
    for j:=1 to n do
        if a[i,j] and not pd[j] then
        begin
            pd[j]:=true;
            if (l[j]=0) 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=0) and (y=0)) do
    begin
        a[x,y]:=false;
        readln(x,y);
    end;
    fillchar(l,sizeof(l),0);
    fillchar(r,sizeof(r),0);
    sum:=0;
    for i:=1 to n do
    begin
        fillchar(pd,sizeof(pd),false);
        if find(i) then inc(sum);
    end;
    num:=0;
    for i:=1 to n do
    begin
        fillchar(pd,sizeof(pd),false);
                j:=r[i];
        a[i,j]:=false;
        r[i]:=0; l[j]:=0;
        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=0 then writeln('none');
end.