比赛 20091102 评测结果 AAAAA
题目名称 复原几何图形 最终得分 100
用户昵称 .Xmz 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2009-11-02 10:31:35
显示代码纯文本
program xmz;
var
f1,f2:text;
f:array[0..50,0..50]of boolean;
y:array[0..50,0..50]of boolean;
d:array[1..50]of boolean;
t:array[1..50]of integer;
t1,t2,a,s,n:integer;
procedure dfs(nn:integer);
 var
 i:integer;
 begin
  if (s=n)and(f[nn,1])and(not y[nn,1]) then
   begin
    for i:=1 to n do
    write(f2,t[i],' ');close(f1);close(f2);halt;
   end;

  if s<n then
  for i:=1 to n do
   if (f[nn,i])and(not y[nn,i])and(not d[i]) then
    begin
    y[nn,i]:=true;y[i,nn]:=true;d[i]:=true;
    inc(s);t[s]:=i;
    dfs(i);
    y[nn,i]:=false;y[i,nn]:=false;dec(s);d[i]:=false;
    end;
 end;

begin
 assign(f1,'resume.in');assign(f2,'resume.out');
 reset(f1);rewrite(f2);
 read(f1,n);
 while not eof(f1) do
  begin
   read(f1,t1,t2);
   f[t1,t2]:=true;
   f[t2,t1]:=true;
  end;
 s:=1;t[s]:=1;d[1]:=true;
 dfs(1);
 close(f1);close(f2);
end.