Prolog等级计数器和eulerpath
|
这周我要做这个作业：计算无向图中节点的等级，并测试其中是否有一条欧拉路径。该功能应如下所示：
gradliste([[a,b],[b,c],[b,g],[c,d],[d,e],[e,f],[f,g],[g,h],[c,f]],X).
X = [[a, 1], [b, 3], [c, 3], [g, 3], [d, 2], [e, 2], [f, 3], [h, 1]]
testEulerweg([[a,b],[b,c],[c,d],[d,e],[a,e],[b,d],[b,e],[a,d]]).
true.
gradliste
[a,b,b,c,b,g,c,d,d,e,e,f,f,g,g,h,c,f]
testEulerweg
allconnected
allconnected([[a,b],[b,c],[c,d]]).
true.
allconnected([[a,b],[b,c],[e,f]]).
False.
gradliste
没有找到相关结果
已邀请:
1 个回复
坝硷操
功能很简单。我将其重命名为：flatten([[X,Y] | Edges], [X,Y|Rest]) :- flatten(Edges, Rest).