记录编号 |
22230 |
评测结果 |
AAAAAAAAAA |
题目名称 |
邮递员 |
最终得分 |
100 |
用户昵称 |
magic |
是否通过 |
通过 |
代码语言 |
Pascal |
运行时间 |
0.008 s |
提交时间 |
2010-11-17 21:20:58 |
内存使用 |
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.