24 lines
533 B
Plaintext
24 lines
533 B
Plaintext
Public Sub Main()
|
|
Dim sString As String = "WWWWWWWWWWWWBWWWWWWWWWWWWBBBWWWWWWWWWWWWWWWWWWWWWWWWBWWWWWWWWWWWWWW"
|
|
Dim siCount As Short = 1
|
|
Dim siStart As Short = 1
|
|
Dim sHold As New String[]
|
|
Dim sTemp As String
|
|
|
|
sString &= " "
|
|
|
|
Repeat
|
|
sTemp = Mid(sString, siCount, 1)
|
|
Do
|
|
Inc siCount
|
|
If Mid(sString, siCount, 1) <> sTemp Then Break
|
|
If siCount = Len(sString) Then Break
|
|
Loop
|
|
sHold.add(Str(siCount - siStart) & sTemp)
|
|
siStart = siCount
|
|
Until siCount = Len(sString)
|
|
|
|
Print sString & gb.NewLine & sHold.Join(", ")
|
|
|
|
End
|