Chapril/xmpp.chapril.org-ejabberd
25
1
Fork 0
mirror of https://github.com/processone/ejabberd.git synced 2024-12-24 17:29:28 +01:00
Code Releases Activity

treap.erl backport

Browse Source 
SVN Revision: 2400
This commit is contained in:
Evgeniy Khramtsov 2009-07-29 03:43:58 +00:00
parent 504cc7b7dd
commit c6f3fbb82c
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) ->
{HashKey, Priority, Value, nil, nil};
insert1({HashKey1, Priority1, Value1, Left, Right},
insert1({HashKey1, Priority1, Value1, Left, Right} = Tree,
HashKey, Priority, Value) ->
if
HashKey < HashKey1 ->
@ -55,8 +55,10 @@ insert1({HashKey1, Priority1, Value1, Left, Right},
heapify({HashKey1, Priority1, Value1,
Left,
insert1(Right, HashKey, Priority, Value)});
Priority == Priority1 ->
{HashKey, Priority, Value, Left, Right};
true ->
erlang:error(key_exists)
insert1(delete_root(Tree), HashKey, Priority, Value)
end.
heapify(nil) ->