[erlang-questions] List to proplist?

[Richard O'Keefe]

A version of unfold that I prefer is

unfold(State, Splitter) ->
     unfold(State, Splitter, []).

unfold(State, Splitter, Acc) ->
     case Splitter(State)
       of []            -> lists:reverse(Acc)
        ; [Item|State1] -> unfold(State1, Splitter, [Item|Acc])
     end.

With that, generating a proplist is

to_proplist(Even_List) ->
     unfold(Even_List, fun ([Key,Val|Rest]) -> [{Key,Val}|Rest]
                         ; ([])             -> []
                       end).