Chapril
/
xmpp.chapril.org-ejabberd
mirror of https://github.com/processone/ejabberd.git
24
1
Fork 0
Code Releases Activity

treap.erl backport 

SVN Revision: 2399
This commit is contained in:
Evgeniy Khramtsov 2009-07-29 03:42:23 +00:00
parent bd73b01083
commit 48095baeaf
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/treap.erl
View File

@ -44,7 +44,7 @@ insert(Key, Priority, Value, Tree) ->
insert1(nil, HashKey, Priority, Value) -> insert1(nil, HashKey, Priority, Value) ->
{HashKey, Priority, Value, nil, nil}; {HashKey, Priority, Value, nil, nil};
insert1({HashKey1, Priority1, Value1, Left, Right}, insert1({HashKey1, Priority1, Value1, Left, Right} = Tree,
HashKey, Priority, Value) -> HashKey, Priority, Value) ->
if if
HashKey < HashKey1 -> HashKey < HashKey1 ->
@ -55,8 +55,10 @@ insert1({HashKey1, Priority1, Value1, Left, Right},
heapify({HashKey1, Priority1, Value1, heapify({HashKey1, Priority1, Value1,
Left, Left,
insert1(Right, HashKey, Priority, Value)}); insert1(Right, HashKey, Priority, Value)});
Priority == Priority1 ->
{HashKey, Priority, Value, Left, Right};
true -> true ->
erlang:error(key_exists) insert1(delete_root(Tree), HashKey, Priority, Value)
end. end.
heapify(nil) -> heapify(nil) ->