Mega Code Archive
Aggregating Count with Conditional
<![CDATA[
Imports System.IO
Imports System.Reflection
Imports System.Linq
Imports System.Xml.Linq
Public Class MainClass
Public Shared Sub Main
Dim numbers() As Integer = {1, 2, 3, 4, 5, 6, 7, 8, 9, 0}
Dim oddNumbers = Aggregate num In numbers _
Into Count(num Mod 2 = 1)
Console.WriteLine("There are " & oddNumbers & " odd numbers in the list.")
End Sub
End Class
]]>