Comment faire toutes les combinaisons possibles de somme d'éléments du tableau dans VB

Question

S'il y a un tableau avec des éléments: 1,2,3,4, le programme doit retourner un autre tableau avec la somme de toutes les combinaisons:

1 
2 
3 
4 
3 (1+2) 
4 (1+3) 
5 (1+4) 
5 (2+3) 
6 (2+4) 
7 (3+4) 
6 (1+2+3) 
7 (1+2+4) 
8 (1+3+4) 
9 (2+3+4) 
10 (1+2+3+4)

Answer 1

mon idée est:

(pseudcode, je ne, sais pas VB)

for(int i = 0; i < 4321; i++) 
{ 
    i mod 10 + // first from right digit 
    (int)((i mod 100)mod 10) // second, (?) 
    // etc 
    // sum up all 4 digit 
    // add to array 
} 

Answer 2

l'algorithme de codage que vous avez mentionné dans votre commentaire, en pseudo code VB: 0

ReDim result(2^(Length of Array) - 1) 
for index = 0 to 2^(Length of Array) - 1 
    sum = 0 
    for counter = 0 to (Length of Array) - 1 
    If ((2^counter) And index) <> 0 Then 
     sum += Array(counter+1) 

    result(index) = sum 

Answer 3

Il s'agit d'une fonction que j'ai écrite il y a quelque temps pour générer tous les sous-ensembles possibles d'un tableau donné. Il est générique, il prend en charge les entiers, doubles, chaînes, etc.

originale C#

public static List<T[]> CreateSubsets<T>(T[] originalArray) 
{ 
    List<T[]> subsets = new List<T[]>(); 

    for (int i = 0; i < originalArray.Length; i++) 
    { 
     int subsetCount = subsets.Count; 
     subsets.Add(new T[] { originalArray[i] }); 

     for (int j = 0; j < subsetCount; j++) 
     { 
      T[] newSubset = new T[subsets[j].Length + 1]; 
      subsets[j].CopyTo(newSubset, 0); 
      newSubset[newSubset.Length - 1] = originalArray[i]; 
      subsets.Add(newSubset); 
     } 
    } 

    return subsets; 
} 

Et la version que je viens converti à VB.

Function CreateSubsets(Of T)(ByVal originalArray() As T) As List(Of T()) 

    Dim subsets As New List(Of T()) 

    For i As Integer = 0 To originalArray.Length - 1 

     Dim subsetCount As Integer = subsets.Count 
     subsets.Add(New T() {originalArray(i)}) 

     For j As Integer = 0 To subsetCount - 1 
      Dim newSubset(subsets(j).Length) As T 
      subsets(j).CopyTo(newSubset, 0) 
      newSubset(newSubset.Length - 1) = originalArray(i) 
      subsets.Add(newSubset) 
     Next 

    Next 

    Return subsets 

End Function 

Il peut être consommé de cette manière

Dim array() As Integer = {1, 2, 3, 4, 5} 
    Dim subsets As List(Of Integer()) = CreateSubsets(array) 

    For Each subset As Integer() In subsets 

     Dim sum As Integer = subset.Sum() 

    Next