我正在尝试在Clingo中创建一个程序来解决Euler路径。到目前为止,这是我想出的。我希望我的图表显示如下。
我的意见。
edge(a,b).
edge(b,c).
edge(c,d).
edge(d,e).
edge(a,d).
edge(b,d).
%edge(x,y):-edge(y,x).
num(1..6).
我的计划到目前为止。
%Generates paths with X and Ys equal to edges in the input, N can be in the range of 'num'
1{path(X,Y,N):edge(X,Y)}1:-num(N).
%Next edges Y and X1 are the same/connect. Where N is in the range of indices.
:-path(X,Y,N), path(X1,Y1,N+1), Y!=X1, num(N).
我的计划中的评论不正确吗? 我认为该程序应始终将边连接在一起。 因为它现在我没有得到答案,但是当步数“num”的范围从1到4时,我得到了一个解决方案。我相信Euler路径应该有6个步骤,但是可能的解决方案是:
path(b,d,1)
path(d,a,2)
path(a,b,3)
path(b,c,4)
path(c,d,5)
path(d,e,6)
答案 0 :(得分:1)
想出来了!
这是输入文件。
edge(a,b).
edge(b,c).
edge(c,d).
edge(d,e).
edge(a,d).
edge(b,d).
edge(X,Y):-edge(Y,X).
num(1..6).
输出文件。
1{path(X,Y,N):edge(X,Y)}1:-num(N).
%Next edges Y and X1 are the same/connect. Where N is in the range of indices.
:-path(X,Y,N), path(X1,Y1,N+1), Y!=X1, num(N).
%Accept no duplicate paths
:-path(X,Y,N), path(X1,Y1,N2), Y==Y1, X==X1, num(N), num(N2), N!=N2.
:-path(X,Y,N), path(X1,Y1,N2), Y==X1, X==Y1, num(N), num(N2), N!=N2.
#hide.
#show path/3.
在我的机器上产生如下输出(为了便于阅读而反转):
path(e,d,1)
path(d,b,2)
path(b,c,3)
path(c,d,4)
path(d,a,5)
path(a,b,6)