umgeher/leveled
0
Fork 0
Code Issues Pull requests Releases Activity Actions

Keep trees empty on merge

Browse source 
Done't blow out a tree unnecessarily on merge
This commit is contained in:
Martin Sumner 2017-09-29 15:28:17 +01:00
parent 5e6534fb49
commit fd4fbf7ea8
1 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/leveled_tictac.erl
View file

@ -278,7 +278,14 @@ merge_trees(TreeA, TreeB) ->
fun(SQN, MergeL2) -> fun(SQN, MergeL2) ->
L2A = get_level2(TreeA, SQN), L2A = get_level2(TreeA, SQN),
L2B = get_level2(TreeB, SQN), L2B = get_level2(TreeB, SQN),
NewLevel2 = merge_binaries(L2A, L2B), BothEmpty = (L2A == ?EMPTY) and (L2B == ?EMPTY),
NewLevel2 =
case BothEmpty of
true ->
?EMPTY;
false ->
merge_binaries(L2A, L2B)
end,
array:set(SQN, NewLevel2, MergeL2) array:set(SQN, NewLevel2, MergeL2)
end, end,
NewLevel2 = lists:foldl(MergeFun, NewLevel2 = lists:foldl(MergeFun,