Question

How to check if a number and its double contain exactly the same digits in VB.NET

Answer 1

Imports System

Public Class Program
    Public Shared Function same_digits_double_number(ByVal n As Integer) As Boolean
        Dim numStr As String = n.ToString()
        Dim doubleNumStr As String = (n * 2).ToString()
        
		Dim numArr As Char() = numStr.ToCharArray()
        Dim doubleNumArr As Char() = doubleNumStr.ToCharArray()
		
        Array.Sort(numArr)
        Array.Sort(doubleNumArr)
		
        Return New String(numArr) = New String(doubleNumArr)
    End Function

    Public Shared Sub Main(ByVal args As String())
        Dim n As Integer = 125874
		
        Console.WriteLine(same_digits_double_number(n))
    End Sub
End Class



' run:
'
' True
'

 

70+ SQL courses for beginners and professionals