Question

我在VB.NET中收集了Chars的集合

类似

HashTable( 
          "A", List(OF Char) [ A,A,A,A,A,A,A,A],
          "B", List(OF Char) [ B,B,B,B,B],
          "C", List(OF Char) [ C,C,C]
         )

我希望将带有 Linq 的集合拆分为 2 + 1 “pages”（带有3个嵌套集合的新集合），每个包含一个相等数字的每个字符

例如，从上面的散列表开始，结果应为

List( 
     list(of char) [ A,A,A,A,B,B,C ]
     list(of char) [ A,A,A,A,B,B,C ]
     list(of char) [ B,C ]  // LAST PAGE CONTAINS 
    )

对不起我的英文...谢谢。

Answer 1

这至少接近你想要的结果（结果列表包含3个带有（6/5/5）字符的列表）：

Dim dict = New Dictionary(Of String, List(Of Char)) From {
   {"A", New List(Of Char) From {"A"c, "A"c, "A"c, "A"c, "A"c, "A"c, "A"c, "A"c}},
   {"B", New List(Of Char) From {"B"c, "B"c, "B"c, "B"c, "B"c}},
   {"C", New List(Of Char) From {"C"c, "C"c, "C"c}}

}

Dim pageCount = 3
Dim allChars = dict.Values.SelectMany(Function(chr) chr)
Dim result As List(Of List(Of Char)) = allChars.
    Select(Function(chr, i) New With {.Char = chr, .Index = i}).
    GroupBy(Function(x) x.Index Mod pageCount).
    Select(Function(g) g.Select(Function(x) x.Char).ToList()).
    ToList()

通过将Values与Mod operator一起使用，将词典的Enumerable.GroupBy属性中的所有字符拆分为所需的页数（在您的示例中为3）。

Answer 2

嘿 - 令人惊讶的是你可以用LINQ做什么......这里有一个与蒂姆的不同之处

（对不起，我的VB真的很生疏，但这应该或多或少可以翻译）

var table = new Dictionary<char,List<char>>()
{
    {'A', new List<char>() {'A','A','A','A','A','A','A','A'}},
    {'B', new List<char>() {'B','B','B','B','B'}},
    {'C', new List<char>() {'C','C','C'}},      
};

var result = table
    .Select(kvp => new [] {
            new string(kvp.Key, kvp.Value.Count / 2), 
            new string(kvp.Key, kvp.Value.Count / 2), 
            new string(kvp.Key, kvp.Value.Count % 2 == 0 ? 0 : 1) })
    .Aggregate((acc, entry) => new [] {
            acc[0] + entry[0], 
            acc[1] + entry[1], 
            acc[2] + entry[2]})
    .Select(s => s.ToCharArray().ToList())
    .ToList();

Answer 3

Dim input As New Dictionary(of Char, Char())
input.Add("A"c, {"A"c, "A"c, "A"c, "A"c, "A"c, "A"c, "A"c, "A"c})
input.Add("B"c, {"B"c, "B"c, "B"c, "B"c, "B"c})
input.Add("C"c, {"C"c, "C"c, "C"c})

Dim output As New List(of List(Of Char))
output.Add(input.SelectMany(Function(c) Enumerable.Repeat(c.Key, c.Value.Count \ 2)).ToList())
output.Add(output(0).ToList())
output.Add(input.SelectMany(Function(c) Enumerable.Repeat(c.Key, c.Value.Count Mod 2)).ToList())

从列表中选择（列表（对象））然后拆分

3 个答案: