找到所有可能的对

Question

我正在编写一些 erlang 代码，并希望创建一个递归函数来从列表中提取所有可能的对。该列表可以有零个元素，但最多可以有 70 个元素。为所有这些事件编写案例是不好的做法，我希望得到您的帮助。

pair(List) ->
    case List of
        []              -> [];
        [A]             -> [{A}];
        [A, B]          -> [{A, B}, {B, A}];
        [A, B, C]       -> [{A, B}, {A, C}, {B, A}, {B, C}, {C, A}, {C, B}];
    end.

我发现编写了一个函数来创建所有可能组合（不仅是所有对）的列表，但我不明白如何更改它。

combos(1, L) -> [[X] || X <-L];
combos(K, L) when K == length(L) -> [L];
combos(K, [H|T]) ->
    [[H | Subcombos] || Subcombos <- combos(K-1, T)]
    ++(combos(K, T)).

combos(L) ->
    lists:foldl(
        fun(K, Acc) -> Acc++(combos(K, L)) end,
        [[]], lists:seq(1, length(L))).

Answer 1

您可以使用列表推导式并将同一个列表作为输入引用两次：

1> L = [a,b,c,d].
[a,b,c,d]
2> [{X, Y} || X <- L, Y <- L].
[{a,a},
 {a,b},
 {a,c},
 {a,d},
 {b,a},
 {b,b},
 {b,c},
 {b,d},
 {c,a},
 {c,b},
 {c,c},
 {c,d},
 {d,a},
 {d,b},
 {d,c},
 {d,d}]

如果有任何更清晰的或更有效的方法来做到这一点，我会感到惊讶。

编辑

如果您不想要相同的对（{a,a} 等），您可以添加保护以确保不相等：

5> [{X, Y} || X <- L1, Y <- L1, X /= Y]. 
[{a,b},
 {a,c},
 {a,d},
 {b,a},
 {b,c},
 {b,d},
 {c,a},
 {c,b},
 {c,d},
 {d,a},
 {d,b},
 {d,c}]