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

1 line
45 B
Text

smearright=: {{ +./ (-i.1+x) |.!.0"0 1/ y }}