Cod sursa(job #115617)

Utilizator CezarMocanCezar Mocan CezarMocan Data 16 decembrie 2007 18:33:13
Problema Dusman Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 1.08 kb
var n,m,i,nr,a,b,sol:longint;
    v:array[1..1010,1..1010]of longint;
    s,p:array[1..1010] of longint;

procedure back(k:longint);
var i:longint;
begin
if k=n then
        begin
        inc(sol);
        if sol=m then
                begin
                for i:=1 to n-1 do
                        write(s[i],' ');
                writeln(s[n]);
                close(output);
                halt;
                end;
        end
else
        begin
        for i:=1 to n do
                begin
                if (v[s[k],i]=0)and(p[i]=0) then
                        begin
                        p[i]:=1;
                        s[k+1]:=i;
                        back(k+1);
                        end;
                p[s[k+1]]:=0;
                s[k+1]:=0;
                end;
        end;
end;

begin
assign(input,'dusman.in');reset(input);
assign(output,'dusman.out');rewrite(output);
readln(n,m,nr);
for i:=1 to nr do
        begin
        readln(a,b);
        v[a,b]:=1;
        v[b,a]:=1;
        end;
back(0);
close(input);close(output);
end.