utils.erl

-module(utils).

-export([comball/1]).
-export([comball/2]).
-export([combuniq/1]).

%% Return all combinations of R elements in list L
comb([], _) -> [[]];
comb(_, 0) -> [[]];
comb(L, R)  -> [[H|T] || H <- L, T <- comb(L -- [H], R-1)].

%% Return all combinations of R, R-1, R-2... elements in list L
comball(L, R) ->
	lists:flatmap(fun(X) -> comb(L, X) end,
		lists:seq(1, R)).

%% Return all combinations of R, R-1, R-2... elements in list L, R=length(L)
comball(L) ->
	   comball(L, length(L)).

%% Return all unique combinations in order
combuniq(L)  -> lists:sort(fun(X1,X2) -> 
	       if length(X1)<length(X2) ->
	            true;
		  length(X1)>length(X2) ->
		    false;
		  true ->
		    X1 < X2
	       end
	     end, lists:usort(lists:map(fun(R) -> lists:sort(R) end,
	     comball(L)))).

Thanks! FP is like sculpting, you're happy when there's nothing left to remove :)