Question

How to count set bits of an integer in VB.NET

Answer 1

Imports System 

Public Class Program
	Public Shared Function count_set_bits(ByVal num As Integer) As Integer
        Dim count as Integer = 0
           
        Do While num > 0
            count += num And 1
            num >>= 1
        Loop
           
        return count 
    End Function
    
    Public Shared Sub Main(ByVal args As String())
		Console.WriteLine("Total Set Bits : {0}", count_set_bits(10)) ' 1010
		
		Console.WriteLine("Total Set Bits : {0}", count_set_bits(45)) ' 00101101
    End Sub
End Class
 
 
 
' run:
'
' Total Set Bits : 2
' Total Set Bits : 4
'

 

70+ SQL courses for beginners and professionals

Answer 2

Imports System 

Public Class Program
	Public Shared Function count_set_bits(ByVal num As Integer) As Integer
        Dim count As Integer = 0
        
		while (num > 0)
            count += 1
            num = num And (num - 1)
        End While
        
		Return count
    End Function
    
    Public Shared Sub Main(ByVal args As String())
		Console.WriteLine("Total Set Bits : {0}", count_set_bits(10)) ' 1010
		
		Console.WriteLine("Total Set Bits : {0}", count_set_bits(45)) ' 00101101
    End Sub
End Class
 
 
 
' run:
'
' Total Set Bits : 2
' Total Set Bits : 4
'

 

70+ SQL courses for beginners and professionals