POJ2230 Watchcow——欧拉回路——Pku2230

复习一下欧拉回路的求法。

伪代码如下：

Void Eular(int p);
{
	for 从ｐ出发的每条边
		{
			如果这条边没有被访问过
				{
					边的访问标记置为 true
					Eular(这条边上另外一个点)；
					将这条边压入栈中；
				}
		}
}

倒序访问栈中每一条边就是答案。

 

CODE

Program POJ2230;//By_Poetshy
Const 
	maxn=10000;
	maxm=50000;
Var 
	i,j,k,m,n,p,q					:Longint;
	pre,other,last					:Array[1..maxm*2]of Longint;
	v								:Array[1..maxm*2]of Boolean;
	ans								:Array[0..maxm*3]of Longint;
	
Procedure Eular(p:Longint);
var j,k:Longint;
begin
	j:=last[p];
	while j<>0 do 
		begin
			if not v[j] then 
				begin
					v[j]:=true;
					k:=other[j];
					Eular(k);
					inc(ans[0]);
					ans[ans[0]]:=j;
				end;
			j:=pre[j];
		end;
end;
	
BEGIN
	readln(n,m);
	for i:=1 to m do
		begin
			readln(p,q);
			inc(k);pre[k]:=last[p];last[p]:=k;other[k]:=q;
			inc(k);pre[k]:=last[q];last[q]:=k;other[k]:=p;
		end;
	fillchar(v,sizeof(v),0);
	Eular(1);
	writeln(1);
	while ans[0]<>0 do 
		begin
			writeln(other[ans[ans[0]]]);
			dec(ans[0]);
		end;
END.