Question

How to select N reservoir items randomly from a list in VB.NET

Answer 1

Imports System
Imports System.Linq
Imports System.Collections.Generic

Public Class Program
    Public Shared Sub Main(ByVal args As String())
        Dim list = New List(Of Integer) From {4, 9, 14, 96, 13, 0, 3, 99, 19, 2, 80, 1, 7}
        Dim N As Integer = 5
        
		Dim rand As Random = New Random()
		
        Dim reservoir = list.OrderBy(Function(x) rand.[Next]()).Take(N)
	
        Console.WriteLine(String.Join(" "c, reservoir))
    End Sub
End Class





' run:
'
' 99 0 80 19 1
'

 

Cleaner teeth, healthier you!
Get The Secret to a Bright and Healthy Smile