Data update

Task/Set-right-adjacent-bits/Arturo/set-right-adjacent-bits.arturo

@@ -3,14 +3,14 @@ setBits: function [inp, n][
     print "n = " ++ (to :string n) ++ "; Width e = " ++ (to :string e) ++ ":"
 
     result: new ø
-    if? or? zero? e n =< 0 -> result: inp
-    else [
+    switch or? zero? e n =< 0 -> result: inp
+    [
         result: split inp
         loop 0..e-1 'i [
-            if inp\[i] = `1` [
+            if inp\[i] = '1' [
                 j: i + 1
                 while [and? j =< i+n j < e][
-                    result\[j]: `1`
+                    result\[j]: '1'
                     j: j + 1
                 ]
             ]