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

Make export mochijson friendly

Browse source
This commit is contained in:
Martin Sumner 2017-09-13 23:45:48 +01:00
parent d8ca0274f6
commit ed56ef17a1
1 changed files with 7 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

13
src/leveled_tictac.erl
View file

@ -121,7 +121,8 @@ new_tree(TreeID, Size) ->
export_tree(Tree) ->
L2 =
lists:foldl(fun(X, L2Acc) ->
[{X, array:get(X, Tree#tictactree.level2)}|L2Acc]
[{integer_to_binary(X),
array:get(X, Tree#tictactree.level2)}|L2Acc]
end,
[],
lists:seq(0, Tree#tictactree.width - 1)),
@ -146,11 +147,11 @@ import_tree(ExportedTree) ->
{Size, Width} = lists:keyfind(Width, 2, Sizes),
{BitWidth, Width, SegmentCount} = get_size(Size),
Lv2Init = array:new([{size, Width}]),
Lv2 = lists:foldl(fun({X, L2SegBin}, L2Array) ->
array:set(X, L2SegBin, L2Array)
end,
Lv2Init,
L2List),
FoldFun =
fun({X, L2SegBin}, L2Array) ->
array:set(binary_to_integer(X), L2SegBin, L2Array)
end,
Lv2 = lists:foldl(FoldFun, Lv2Init, L2List),
#tictactree{treeID = import,
size = Size,
width = Width,