Data update

Task/Set-right-adjacent-bits/PureBasic/set-right-adjacent-bits.basic

@@ -0,0 +1,52 @@
+Global Dim bits.i(1)
+
+Procedure setRightBits(Array bits(1), e, n)
+  Protected.i i, j
+
+  If e = 0 Or n <= 0: ProcedureReturn: EndIf
+  Dim bits2(e)
+  For i = 0 To e - 1 : bits2(i) = bits(i) : Next
+  For i = 0 To e - 2
+    If bits(i) = 1
+      j = i + 1
+      While j <= i + n And j < e
+        bits2(j) = 1
+        j + 1
+      Wend
+    EndIf
+  Next i
+  For i = 0 To e - 1 : bits(i) = bits2(i) : Next
+EndProcedure
+
+OpenConsole()
+Define.i i, k, ub, n
+Define b.s = "010000000000100000000010000000010000000100000010000010000100010010"
+Dim tests.s(8, 2)
+tests(0, 0) = "1000": tests(0, 1) = "2"
+tests(1, 0) = "0100": tests(1, 1) = "2"
+tests(2, 0) = "0010": tests(2, 1) = "2"
+tests(3, 0) = "0000": tests(3, 1) = "2"
+tests(4, 0) = b: tests(4, 1) = "0"
+tests(5, 0) = b: tests(5, 1) = "1"
+tests(6, 0) = b: tests(6, 1) = "2"
+tests(7, 0) = b: tests(7, 1) = "3"
+
+For k = 0 To 7
+  ReDim bits(Len(tests(k, 0)))
+  For i = 0 To Len(tests(k, 0)) - 1
+    bits(i) = Val(Mid(tests(k, 0), i + 1, 1))
+  Next i
+  ub = ArraySize(bits())
+  n = Val(tests(k, 1))
+  PrintN("n = " + Str(n) + "; Width e = " + Str(ub))
+  Print("    Input b: " + tests(k, 0))
+  setRightBits(bits(), ub, n)
+  PrintN("")
+  Print("     Result: ")
+  For i = 0 To ub - 1
+    Print(Str(bits(i)));
+  Next i
+  PrintN(Chr(10))
+Next k
+PrintN(#CRLF$ + "Press ENTER to exit"): Input()
+CloseConsole()