usaco 3.3 骑马修栅栏

Description

　　农民John每年有很多栅栏要修理。他总是骑着马穿过每一个栅栏并修复它破损的地方。
　　John是一个与其他农民一样懒的人。他讨厌骑马，因此从来不两次经过一个一个栅栏。你必须编一个程序，读入栅栏网络的描述，并计算出一条修栅栏的路径，使每个栅栏都恰好被经过一次。John能从任何一个顶点(即两个栅栏的交点)开始骑马，在任意一个顶点结束。
　　每一个栅栏连接两个顶点，顶点用1到500标号(虽然有的农场并没有500个顶点)。一个顶点上可连接任意多(>=1)个栅栏。所有栅栏都是连通的(也就是你可以从任意一个栅栏到达另外的所有栅栏)。
　　你的程序必须输出骑马的路径(用路上依次经过的顶点号码表示)。我们如果把输出的路径看成是一个500进制的数，那么当存在多组解的情况下，输出500进制表示法中最小的一个 (也就是输出第一个数较小的，如果还有多组解，输出第二个数较小的，等等)。
　　输入数据保证至少有一个解。

Input

第1行: 一个整数F(1<= F <= 1024)，表示栅栏的数目
第2到F+1行:每行两个整数i, j(1 <= i,j <= 500)表示这条栅栏连接i与j号顶点。

Output

输出应当有F+1行，每行一个整数，依次表示路径经过的顶点号。注意数据可能有多组解，但是只有上面题目要求的那一组解是认为正确的。

Sample Input

9

1 2

2 3

3 4

4 2

4 5

2 5

5 6

5 7

4 6

Sample Output

1

2

3

4

2

5

4

6

5

7

 

这题是一到欧拉回路的题目。

奇点——与这个点的连边有奇数条。奇点只可能有偶数个，因为每次连线会影响两个点。

首先，给任意一个图，如果这个图每个点都不是奇点，那么从任意一点开始遍历，可以不重复不遗漏的走过所有的边，且最后回到起点。因为一个点有路出去，一定有路回来。

如果有两个奇点，那么只能从一个奇点开始遍历，最后到另一个奇点。

如果有两个以上奇点，不可能有欧拉回路。

标程：

var

 n,i,j,s,t,m:longint;

 c:array[1..500,1..500]of  longint;

 d:array[1..500]of  longint;

 b:boolean;

 p:array[1..1025]of  longint;

procedure search(s:longint);

var

 i:word;

begin

  for i:=1 to m do

   if c[s,i]>0 then

   begin

     dec(c[s,i]);

     dec(c[i,s]);

     search(i);

   end;

 inc(j);

 p[j]:=s;

end;

 

begin

 readln(n);

  for i:=1 to n do

 begin

   readln(s,t);

   inc(c[s,t]);

   inc(c[t,s]);

   inc(d[s]);

   inc(d[t]);

   if s>m then

     m:=s;

   if t>m then

     m:=t;

 end;

 b:=true;

  for i:=1 to m do

   if odd(d[i]) then

   begin

     s:=i;

     b:=false;

     break;

   end;

 j:=0;

  if b then

   search(1)

 else

   search(s);

  for i:=n+1 downto 1 do

   writeln(p[i]);

end.