Question

How to find hamming distance (number of bits in the same position that differs in two numbers) in VB.NET

Answer 1

Imports System

Public Class Program
    Public Shared Function hamming_distance(ByVal num1 As Integer, ByVal num2 As Integer) As Integer
        Dim xr As Integer = num1 Xor num2
        Dim result As Integer = 0

        While xr <> 0
            result += xr And 1
			xr = xr >> 1
        End While

        Return result
    End Function

    Public Shared Sub Main(ByVal args As String())
        Dim num1 As Integer = 9
        Dim num2 As Integer = 14
		
        Console.Write(hamming_distance(num1, num2))
    End Sub
End Class


' run:
'
' 3
'

 

70+ SQL courses for beginners and professionals