Packages

ejpet

0.7.0
0.8.0 0.7.1 0.7.0

Search my JSON

Current section

Files

Jump to
Readme
3 Versions
0 Dependencies
1 Dependant
Files
Activity
ejpet src ejpet_helpers.erl
Raw

src/ejpet_helpers.erl 

-module(ejpet_helpers).

-author('nicolas.michel.lava@gmail.com').



-export([melt/2]).





melt([], []) ->

    [];

melt([], L) ->

    L;

melt(L, []) ->

    L;

melt(L1, L2) ->

    lists:reverse(melt_(L1, L2, [])).



melt_([], List, Acc) ->

    List ++ Acc;

melt_(List, [], Acc) ->

    List ++ Acc;

melt_([{Key, Values} | Tail], List, Acc) ->

    OtherValues = proplists:get_value(Key, List, []),

    OtherListTail = proplists:delete(Key, List),

    melt_(Tail, OtherListTail, [{Key, Values ++ OtherValues} | Acc]).