如何生成多个数组的所有排列/组合？

发布时间：2020-12-17 00:13:29 所属栏目：大数据来源：网络整理

导读：我的目标很简单,我正在尝试为数据库中的产品生成所有可能组合的列表. 所以例如;产品选项如下产品选项：颜色/值：红色,绿色,蓝色产品选项：尺寸/值：小,中,大,XL 产品选项：风格/价值观：男士,女士我希望能够自动生成所有3个的每个组合： Small,Red,MensSm

我的目标很简单,我正在尝试为数据库中的产品生成所有可能组合的列表.

所以例如;产品选项如下

>产品选项：颜色/值：红色,绿色,蓝色
>产品选项：尺寸/值：小,中,大,XL
>产品选项：风格/价值观：男士,女士

我希望能够自动生成所有3个的每个组合：

Small,Red,Mens
Small,Green,Blue,Mens
etc

无论我是否将2,3,4或5个数组传入其中,我都需要该函数.

我已经做了很多研究并且发现了以下文章但却无法实现我的目标.

我找到的文章如下：

> How to Generate Combinations of Elements of a List<T> in .NET 4.0
> vb .net permutation of string. permutation or combination?

在笛卡儿产品上调整 Eric Lippert’s blog的代码：

Private Function CartesianProduct(Of T)(ParamArray sequences As T()()) As T()()

    ' base case: 
    Dim result As IEnumerable(Of T()) = {New T() {}}
    For Each sequence As var In sequences
        Dim s = sequence
        ' don't close over the loop variable 
        ' recursive case: use SelectMany to build the new product out of the old one 
        result = From seq In result
                 From item In s
                 Select seq.Concat({item}).ToArray()
    Next
    Return result.ToArray()
End Function

用法：

Dim s1 As String() = New String() {"small","med","large","XL"}
Dim s2 As String() = New String() {"red","green","blue"}
Dim s3 As String() = New String() {"Men","Women"}

Dim ss As String()() = CartesianProduct(s1,s2,s3)

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!