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

fix insert_new in rbtrees

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2274 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2008-06-11 16:57:31 +00:00
parent 02565ae625
commit 8a00ab9d70
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
library/rbtrees.yap
View File

@ -403,6 +403,10 @@ insert2(black(L,K0,V0,R), K, V, Nil, NT, Flag) :-
% Add a new element with key Key and Value to the tree T0 creating a % Add a new element with key Key and Value to the tree T0 creating a
% new red-black tree TN. Duplicated elements are not allowed. % new red-black tree TN. Duplicated elements are not allowed.
rb_insert_new(t(Nil,Tree0),Key,Val,t(Nil,Tree)) :-
insert_new(Tree0,Key,Val,Nil,Tree).
insert_new(Tree0,Key,Val,Nil,Tree) :- insert_new(Tree0,Key,Val,Nil,Tree) :-
insert_new_2(Tree0,Key,Val,Nil,TreeI,_), insert_new_2(Tree0,Key,Val,Nil,TreeI,_),
fix_root(TreeI,Tree). fix_root(TreeI,Tree).
@ -422,7 +426,7 @@ insert_new_2(red(L,K0,V0,R), K, V, Nil, NT, Flag) :-
fail fail
; ;
NT = red(L,K0,V0,NR), NT = red(L,K0,V0,NR),
insert2(R, K, V, Nil, NR, Flag) insert_new_2(R, K, V, Nil, NR, Flag)
). ).
insert_new_2(black(L,K0,V0,R), K, V, Nil, NT, Flag) :- insert_new_2(black(L,K0,V0,R), K, V, Nil, NT, Flag) :-
( K @< K0 ( K @< K0