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

找到所有可能的对

1 个答案: