list - 将 Erlang 列表 X 拆分为所有 X 的子列表的列表

Question

lists:sublist/2并使lists:sublist/3从列表中提取单个子列表变得简单，但是是否有一个 BiF 或模块可以返回列表的所有子列表的列表？

IE

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.