Сплит Список Эрланг, X, в список всех подписок X X

Question

и lists:sublist/3 упростить извлечение одного списка из списка, но есть ли BiF или модуль, который возвращает список всех подписок в списке?

т.е.

lists:awesome_sublist_function([1,2,3,4]) -> 
    [[1], [2], [3], [4], [1,2], [1,3], [1,4], 
    [2,3], [2,4], [3,4], [1,2,3], [1,2,4], [1,3,4], [2,3,4], [1,2,3,4]] 

Можно построить самостоятельно, но интересуется, если эта проблема была решена, прежде чем где-нибудь?

Answer 1

Я предполагаю, что ваш тест забывает [1,3,4], но это может выглядеть примерно так:

-module(settheory). 
-export([combinations/1]). 

combinations([]) -> 
    []; 
combinations([H | T]) -> 
    CT = combinations(T), 
    [[H]] ++ [[H | L] || L <- CT] ++ CT. 

-include_lib("eunit/include/eunit.hrl"). 
combinations_test() -> 
    ?assertEqual(
     combinations([1,2,3,4]), 
     lists:sort([[1], [2], [3], [4], [1,2], [1,3], [1,4], 
        [2,3], [2,4], [3,4], [1,2,3], [1,2,4], [1,3,4], 
        [2,3,4], [1,2,3,4]])), 
    ok.