:Merge /home/vsc/yap
This commit is contained in:
@@ -32,8 +32,8 @@ path(X,Y,A,R) :-
|
||||
path(Z,Y,[Z|A],R).
|
||||
|
||||
% using directed edges in both directions
|
||||
edge(X,Y) :- problog:dir_edge(Y,X).
|
||||
edge(X,Y) :- problog:dir_edge(X,Y).
|
||||
edge(X,Y) :- dir_edge(Y,X).
|
||||
edge(X,Y) :- dir_edge(X,Y).
|
||||
|
||||
% checking whether node hasn't been visited before
|
||||
absent(_,[]).
|
||||
|
@@ -109,4 +109,3 @@ test_example(33,path(5,4),0.57).
|
||||
test_example(34,path(6,4),0.51).
|
||||
test_example(35,path(6,5),0.69).
|
||||
|
||||
|
||||
|
Reference in New Issue
Block a user