Imports System.Runtime.CompilerServices

Module Module1

    Sub Main()
        Dim rand As New Random
        Dim numbers = Enumerable.Range(0, 5000).Select(Function(n) CUInt(rand.Next(Integer.MinValue, Integer.MaxValue))) '.ToArray

        Dim numbersList = numbers.ToList.ToDouble
        Dim numbersArray = numbers.ToArray.ToDouble
        Dim evens = numbers.Where(Function(n) n Mod 2 = 0).ToDouble


        Dim oneNum = numbersList(4)
        oneNum = numbersArray(4)
        oneNum = evens(4)


    End Sub


    <Extension()>
    Public Iterator Function ToDouble(ByVal Vector As IEnumerable(Of UInteger)) As IEnumerable(Of Double)
        For Each num In Vector
            Yield num
        Next
    End Function

End Module