Skip to content

Instantly share code, notes, and snippets.

-module(t).
-compile(export_all).
merge([], NewTree)->
NewTree;
merge([{Node, Ch}|Tail], NewTree) ->
case lists:member(Node, NewTree) of
true -> merge(Tail, NewTree);
false -> merge(Tail, [{Node, Ch}|NewTree])