Diviser une liste Erlang, X, dans une liste de tous les sous-listes X

Question

lists:sublist/2 et lists:sublist/3 simplifier l'extraction d'une seule sous-liste d'une liste, mais existe-t-il un BiF ou un module qui renvoie une liste de toutes les sous-listes d'une liste?

à savoir

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]] 

peut construire mon propre, mais il se demande si le problème a été résolu avant nulle part?

Answer 1

Je suppose que votre cas de test oublie [1,3,4], mais il pourrait ressembler à ceci:

-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.