Data commit

Task/Run-length-encoding/Gambas/run-length-encoding.gambas

@@ -0,0 +1,23 @@
+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