:Merge /home/vsc/yap

This commit is contained in:
Vítor Santos Costa
2019-03-12 15:57:40 +00:00
7 changed files with 70 additions and 21 deletions

View File

@@ -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(_,[]).

View File

@@ -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).