记录编号 222369 评测结果 AAAAAAAAAA
题目名称 邮递员 最终得分 100
用户昵称 Gravatar甘罗 是否通过 通过
代码语言 Pascal 运行时间 0.004 s
提交时间 2016-02-02 12:35:40 内存使用 4.13 MiB
显示代码纯文本
program zht;
var
i,t,n,m,x,y,ans,tn:longint;
a:array[0..1000000] of longint;
map:array[0..200,0..200] of longint;

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

begin
assign(input,'carrier.in');
assign(output,'carrier.out');
reset(input);
rewrite(output);

readln(n,m);

for i:=1 to n do
readln(t);

for i:=1 to m do
begin
readln(x,y);
inc(map[x,y]);
inc(map[y,x]);
end;

dfs(1);

writeln(ans);

for i:=tn downto 1 do
write(a[i],' ');

close(input);
close(output);
end.