int num=0;//標記輸出佇列int match[MAX];//標誌節點的度,無向圖,不區分入度和出度void solve(int x){if (match[x]==0)Record[num++]=x;else{for(int k=0;k<=500;k++){if(Array[x][k]!=0){Array[x][k]--;Array[k][x]--;match[x]--;match[k]--;solve(k);}}Record[num++]=x;}}
pascal代碼:
求無向圖的歐拉迴路(遞歸實現)
program euler;const maxn=10000;{頂點數上限}maxm=100000;{邊數上限}typetnode=^tr;tr=recordf,t:longint;{邊的起始點和終止點}al:boolean;{訪問標記}rev,next:tnode;{反向邊和鄰接表中的下一條邊}end;varn,m,bl:longint;{頂點數,邊數,基圖的極大連通子圖個數}tot:longint;g:array[1..maxn]oftnode;d:array[1..maxn]oflongint;{頂點的度}fa,rank:array[1..maxn]oflongint;{並查集中元素父結點和啟發函式值}list:array[1..maxm]oftnode;{最終找到的歐拉迴路}o:boolean;{原圖中是否存在歐拉迴路}procedurebuild(ta,tb:longint);{在鄰接表中建立邊(ta,tb)}vart1,t2:tnode;begint1:=new(tnode);t2:=new(tnode);t1^.f:=ta;t1^.t:=tb;t1^.al:=false;t1^.rev:=t2;t1^.next:=g[ta];g[ta]:=t1;t2^.f:=tb;t2^.t:=ta;t2^.al:=false;t2^.rev:=t1;t2^.next:=g[tb];g[tb]:=t2;end;proceduremerge(a,b:longint);{在並查集中將a,b兩元素合併}varoa,ob:longint;beginoa:=a;whilefa[a]<>adoa:=fa[a];fa[oa]:=a;ob:=b;whilefa[b]<>bdob:=fa[b];fa[ob]:=b;ifa<>bthenbegindec(bl);{合併後,基圖的極大連通子圖個數減少1}ifrank[a]=rank[b]theninc(rank[a]);ifrank[a]>rank[b]thenfa[b]:=aelsefa[a]:=b;end;end;procedureinit;{初始化}vari,ta,tb:longint;beginfillchar(fa,sizeof(fa),0);fillchar(rank,sizeof(rank),0);fillchar(d,sizeof(d),0);readln(n,m);fori:=1tondofa[i]:=i;bl:=n;fori:=1tomdobeginreadln(ta,tb);build(ta,tb);inc(d[tb]);inc(d[ta]);merge(ta,tb);end;end;proceduresearch(i:longint);{以i為出發點尋找歐拉迴路}varte:tnode;beginte:=g[i];whilete<>nildobeginifnotte^.althenbeginte^.al:=true;te^.rev^.al:=true;search(te^.t);list[tot]:=te;dec(tot);end;te:=te^.next;end;end;proceduremain;{主過程}vari:longint;begino:=false;fori:=1tondoifd[i]=0thendec(bl);{排除孤立點的影響}ifbl<>1thenexit;{原圖不連通,無解}fori:=1tondoifodd(d[i])thenexit;{存在奇點,無解}o:=true;fori:=1tondoifd[i]<>0thenbreak;tot:=m;search(i);{從一個非孤立點開始尋找歐拉迴路}end;procedureprint;{輸出結果}vari:longint;beginifnotothenwriteln('Nosolution.')elsebeginwriteln(list[1]^.f);fori:=1tomdowriteln(list[i]^.t);end;end;begininit;main;print;end.