Question

How to check if a number is a repdigit number (a natural number composed of repeated digits) in VB.NET

Answer 1

Imports System
Imports System.Collections.Generic

Public Class Program
    Public Shared Function isRepdigitNumber(ByVal num As Integer) As Boolean
        Dim str As String = num.ToString()
        Dim arr As Char() = str.ToCharArray()
		
        Dim hset = New HashSet(Of Char)(arr)
        
		Return hset.Count = 1
    End Function

    Public Shared Sub Main(ByVal args As String())
        Dim num As Integer = 8888888

        If isRepdigitNumber(num) Then
            Console.WriteLine("yes")
        Else
            Console.WriteLine("no")
        End If
    End Sub
End Class




' run:
'
' yes
'

 

70+ SQL courses for beginners and professionals