Imports System
Public Class Test
Public Shared Sub Main()
' your code goes here
Dim x As cPermutations
Set x = New cPermutations
x.Text = "01010101"
Do While x.PermutationsLeft
Console.WriteLine Join(x.NextNPermutations(8), ", ")
Loop
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCQknIHlvdXIgY29kZSBnb2VzIGhlcmUKCgogIERpbSB4IEFzIGNQZXJtdXRhdGlvbnMKICBTZXQgeCA9IE5ldyBjUGVybXV0YXRpb25zCgogIHguVGV4dCA9ICIwMTAxMDEwMSIKICAKICBEbyBXaGlsZSB4LlBlcm11dGF0aW9uc0xlZnQKICAgIENvbnNvbGUuV3JpdGVMaW5lIEpvaW4oeC5OZXh0TlBlcm11dGF0aW9ucyg4KSwgIiwgIikKICBMb29wCgoKCglFbmQgU3ViCkVuZCBDbGFzcw==
Visual Basic.Net Compiler version 0.0.0.5943 (Mono 3.8 - tarball)
Copyright (C) 2004-2010 Rolf Bjarne Kvinge. All rights reserved.
/home/LhxgsX/prog.vb (9,8) : error VBNC90019: Expected 'End'.
/home/LhxgsX/prog.vb (11,4) : error VBNC90019: Expected 'End'.
/home/LhxgsX/prog.vb (13,5) : error VBNC30203: Identifier expected.
/home/LhxgsX/prog.vb (14,12) : error VBNC30203: Identifier expected.
/home/LhxgsX/prog.vb (15,7) : error VBNC30203: Identifier expected.
/home/LhxgsX/prog.vb (19,9) : error VBNC30203: Identifier expected.
/home/LhxgsX/prog.vb (20,10) : error VBNC30203: Identifier expected.
There were 7 errors and 0 warnings.
Compilation took 00:00:00.6519100