Question

How to check if the binary representation of a number is a palindrome in VB.NET

Answer 1

Imports System

Public Class Program
	Public Shared Function Reverse(ByVal str As String) As String
        Dim arr() As Char = str.ToCharArray()

        Array.Reverse(arr)

		Return New String(arr)
    End Function

    Public Shared Function isPalindrome(ByVal n As Integer) As Boolean
		Return Convert.ToString(n, 2) = Reverse(Convert.ToString(n, 2))
    End Function

	Public Shared Sub Main()
        Dim n As Integer = 27
		
        Console.WriteLine(Convert.ToString(n, 2))
		
        Console.WriteLine((If(isPalindrome(n), "Yes", "No")))
    End Sub
End Class
	
	

' run:
'
' 11011
' Yes
'

 

70+ SQL courses for beginners and professionals

Answer 2

Imports System
Imports System.Linq

Public Class Program
    Public Shared Function isPalindrome(ByVal n As Integer) As Boolean
        Return Convert.ToString(n, 2) = String.Join("", Convert.ToString(n, 2).Reverse())
    End Function
 
    Public Shared Sub Main()
        Dim n As Integer = 27
         
        Console.WriteLine(Convert.ToString(n, 2))
         
        Console.WriteLine((If(isPalindrome(n), "Yes", "No")))
    End Sub
End Class
     
     
 
' run:
'
' 11011
' Yes
'

 

70+ SQL courses for beginners and professionals

Answer 3

Imports System
Imports System.Linq
 
Public Class Program
    Public Shared Function is_binary_representation_of_number_palindrome(ByVal num As Integer) As Boolean
        Dim binary As String = Convert.ToString(num, 2)
         
        Console.WriteLine(binary)
         
        Return binary.Equals(String.Join("", binary.Reverse()))
    End Function
 
    Public Shared Sub Main(ByVal args As String())
        Dim num As Integer = 153
 
        If is_binary_representation_of_number_palindrome(num) Then
            Console.Write("Palindrome")
        Else
            Console.Write("Not Palindrome")
        End If
    End Sub
End Class
 
 
' run:
'
' 10011001
' Palindrome
'

 

70+ SQL courses for beginners and professionals