ErlangリストXをすべてのXのサブリストのリストに分割する

Question

lists:sublist/2および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.