Question

How to calculate the Collatz sequence starting with 13 in VB.NET

Answer 1

Imports System

Public Class Program
    Private Shared Function CalcCollatz(ByVal x As Long) As Long
        If (x And 1) <> 0 Then
            Return x * 3 + 1
        End If

        Return x / 2
    End Function

    Private Shared Sub PrintCollatzSequence(ByVal x As Long)
        Console.Write(x & " ")

        While x <> 1
            x = CalcCollatz(x)
            Console.Write(x & " ")
        End While
    End Sub

    Public Shared Sub Main(ByVal args As String())
        Dim x As Long = 13
		
        PrintCollatzSequence(x)
    End Sub
End Class



' run:
'
' 13 40 20 10 5 16 8 4 2 1
'

 

70+ SQL courses for beginners and professionals