How to generate all permutations of 1, 2 and 3 without repetition in VB.NET

1 Answer

0 votes
Imports System

Public Class Program
	Public Shared Sub Main()
        For i As Integer = 1 To 3
            For j As Integer = 1 To 3
                For k As Integer = 1 To 3
                    If i <> j AndAlso i <> k AndAlso j <> k Then 
						Console.WriteLine("{0} {1} {2}", i, k, j)
					End If
                Next
            Next
        Next
    End Sub
End Class




' run:
'
' 1 3 2
' 1 2 3
' 2 3 1
' 2 1 3
' 3 2 1
' 3 1 2
'

 



answered Oct 1, 2021 by avibootz
...