Question

How to check if all numbers in an array are equal in VB.NET

Answer 1

Imports System
Imports System.Collections.Generic

Public Class Program
    Public Shared Function oneUniqueElement(ByVal arr As Integer()) As Boolean
        Dim [set] As HashSet(Of Integer) = New HashSet(Of Integer)()

        For i As Integer = 0 To arr.Length - 1
            [set].Add(arr(i))
        Next

        If [set].Count = 1 Then Return True
					
        Return False
    End Function

    Public Shared Sub Main()
        Dim arr As Integer() = {5, 5, 5, 5, 5, 5, 5}

        If oneUniqueElement(arr) Then
            Console.Write("Yes")
        Else
            Console.Write("No")
        End If
    End Sub
End Class





' run:
'
' Yes
'

 

70+ SQL courses for beginners and professionals