packer.erl

-module(packer).

-export([pack/1, test/0]).

pack(Data) ->
  pack(Data, []).

test() ->
  [[a, a, a], [b, b, b]] = packer:pack([a,a,a,b,b,b]),
  [[a,a,a,a], [b], [c, c], [a, a], [d], [e, e, e, e]] = packer:pack([a,a,a,a,b,c,c,a,a,d,e,e,e,e]),
  ok.

%% Internal functions
pack([], Accum) ->
  lists:reverse(Accum);
pack([H|T], []) ->
  pack(T, [[H]]);
pack([H|T], [AH|AT]=Accum) ->
  case lists:member(H, AH) of
    true ->
      pack(T, [[H|AH]|AT]);
    false ->
      pack(T, [[H]|Accum])
  end.