1

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

自分でビルドできますが、問題がどこかで以前に解決されているかどうか疑問に思いましたか?

4

1 に答える 1

2

あなたのテスト ケースは [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.
于 2010-12-16T02:23:57.347 に答える