RosettaCodeData/Task/Set-right-adjacent-bits/AutoHotkey/set-right-adjacent-bits-1.ahk
2023-07-01 13:44:08 -04:00

12 lines
239 B
AutoHotkey

setRight(num, n){
x := StrSplit(num)
for i, v in StrSplit(num)
if v
loop, % n
x[i+A_Index] := 1
Loop % n
x.removeAt(StrLen(num)+1)
for i, v in x
res .= v
return res
}