Question

How to implement the collatz sequence in VB.NET

Answer 1

Imports System

Public Class Program
	Public Shared Sub collatz_sequence(ByVal n As Integer)
        Console.Write(n & " ")

        While n > 1
            If n Mod 2 = 0 Then
                n = n / 2
            Else
                n = 3 * n + 1
            End If

            Console.Write(n & " ")
        End While
    End Sub

	Public Shared Sub Main()
        collatz_sequence(7)
    End Sub
End Class




' run:
'
' 7 22 11 34 17 52 26 13 40 20 10 5 16 8 4 2 1
'

 

70+ SQL courses for beginners and professionals