Cod sursa(job #223576)

Utilizator antoanelaAntoanela Siminiuc antoanela Data 28 noiembrie 2008 21:15:25
Problema Dusman Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.83 kb
var f,g:text;
    a:array[0..1010,0..3]of longint;
    b,v:array[0..1010]of longint;
    n,k,m,x,y,i,c:longint;

procedure back(p:longint);
var i:longint;
begin
  if (p-1=n)then
    inc(c)else
  if (c<>k)then
    begin
      for i:=1 to n do
      begin
        if (b[i]=0)and(a[i,1]<>v[p-1])and(a[i,2]<>v[p-1])and(a[i,3]<>v[p-1])then
          begin
            b[i]:=1;
            v[p]:=i;
            back(p+1);
            if (c=k)then break;
            b[i]:=0;
          end;
          end;
    end;
end;

begin
assign(f,'dusman.in');
assign(g,'dusman.out');
reset(f);
rewrite(g);
read(f,n,k,m);
for i:=1 to m do
  begin
    read(f,x,y);
    inc(a[x,0]);
    a[x,a[x,0]]:=y;
    inc(a[y,0]);
    a[y,a[y,0]]:=x;
  end;
v[0]:=n+1;
back(1);
for i:=1 to n do write(g,v[i],' ');
close(f);
close(g);
end.