记录编号 222382 评测结果 AAAAAAAAAA
题目名称 邮递员 最终得分 100
用户昵称 GravatarFoolMike 是否通过 通过
代码语言 Pascal 运行时间 0.004 s
提交时间 2016-02-02 13:48:26 内存使用 0.33 MiB
显示代码纯文本
var
n,m,i,j,k,num:longint;
f:array[1..200,1..200]of longint;
w,ans:array[1..1000]of longint;

  procedure dfs(x:longint);
  var
  i:longint;
  begin
  for i:=1 to n do
  if (f[x,i]<>0) then
    begin
    dec(f[x,i]);dec(f[i,x]);dfs(i);
    end;
  inc(num);ans[num]:=x;
  end;

begin
assign(input,'carrier.in');
reset(input);
assign(output,'carrier.out');
rewrite(output);
read(n,m);
for i:=1 to n do
read(w[i]);
for i:=1 to m do
  begin
  read(j,k);
  inc(f[j,k]);
  inc(f[k,j]);
  end;
dfs(1);
writeln(m);
for i:=num downto 1 do write(ans[i],' ');
writeln;
end.