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

解题思路：先读入数据，在数组里面进行标记，然后循环，如果没有奇点就把读入x的最小值进行递归，不然就对循环结束时的i进行递归，最后从数组的后面输出即可。

程序：

const

  maxn=10000;

var

  g:array[1..maxn,1..maxn]of longint;

  du,c:array[1..maxn]of longint;

  i,j,n,x,y,a,b,s,k:longint;

procedure find(x:longint);

  var

    j:longint;

  begin

    j:=0;

    for j:=b to a do

      if g[x,j]>0 then begin dec(g[x,j]); dec(g[j,x]); find(j); end;

    inc(k);

    c[k]:=x;

end;

begin

  readln(n);

  b:=maxlongint;

  for i:=1 to n do

    begin

      readln(x,y);

      inc(g[x,y]);

      inc(g[y,x]);

      inc(du[x]);

      inc(du[y]);

      if x

      if y>a then a:=y;

    end;

  for i:=b to a+1 do

    if du[i] mod 2=1 then break;

  if i=a+1 then find(b) else find(i);

  for i:=k downto 1 do

    writeln(c[i]);

end.

版权属于: Chris

原文地址: http://blog.sina.com.cn/s/blog_83ac6af80102v0w5.html

转载时必须以链接形式注明原始出处及本声明。