记录编号 22229 评测结果 AAAAAAAAAA
题目名称 邮递员 最终得分 100
用户昵称 Gravatar郭乾乐 是否通过 通过
代码语言 Pascal 运行时间 0.008 s
提交时间 2010-11-17 21:20:04 内存使用 0.27 MiB
显示代码纯文本
program gls;
var
a,b,c,i,j,k,n,m,max,w,p,total:longint;
ss:array[1..200,1..200]of longint;
ans:array[1..2000]of longint;
f,g:text;
      procedure zh(r:integer);
      var i,j:longint;
      begin
       for i:=1 to n do begin
         if ss[r,i]>0 then
          begin

             dec(ss[r,i]);
             dec(ss[i,r]);
             zh(i);

          end;


        end;

         ans[p]:=r;
         inc(p);


      end;



begin
         assign(f,'carrier.in');
         reset(f);
         assign(g,'carrier.out');
         rewrite(g);
         readln(f,n,m);

         for k:=1 to n do
          readln(f,a);
         for k:=1 to m do
         begin readln(f,a,b);
              inc(ss[a,b]);
               inc(ss[b,a]);
         end;

writeln(g,m);
p:=1;
{write(g,'1',' ');}
 zh(1);
for i:=p-1 downto 1 do write(g,ans[i],' ');
close(f);close(g);
end.