diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix wneighbors

Browse Source
This commit is contained in:
Vitor Santos Costa 2009-06-10 12:42:45 -05:00
parent 4421f177b5
commit 5dd3aa5782
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
library/wundgraphs.yap
View File

@ -44,7 +44,8 @@
wdgraph_del_edges/3, wdgraph_del_edges/3,
wdgraph_del_vertex/3, wdgraph_del_vertex/3,
wdgraph_edges/2, wdgraph_edges/2,
wdgraph_neighbors/3 wdgraph_neighbors/3,
wdgraph_wneighbors/3
]). ]).
:- use_module(library(rbtrees), :- use_module(library(rbtrees),
@ -105,7 +106,7 @@ wundgraph_neighbors(V,Vertices,Children) :-
). ).
wundgraph_wneighbours(V,Vertices,Children) :- wundgraph_wneighbours(V,Vertices,Children) :-
wdgraph_wneighbours(V,Vertices,Children0), wdgraph_wneighbors(V,Vertices,Children0),
( (
wdel_me(Children0,V,Children) wdel_me(Children0,V,Children)
-> ->