RosettaCodeData/Task/Set-right-adjacent-bits/Uiua/set-right-adjacent-bits.uiua

Bf ← ↥/↥≡⌟⬚0↻⊃(¯+1⊚⌕1|⊢⬚0↯⊂∞⧻⊙(˜↯1)|∘)
Pb ← &p/$"__"
&p"n = 2"
≡⌟(&p"-"∩Pb⤚Bf) [1_0_0_0 0_1_0_0 0_0_1_0 0_0_0_0] 2
&p"n = (0), 1, 2, 3"
≡⌟(Pb˜Bf)[1 2 3] ⊸Pb≡⋕⊂@0/◇⊂⇌⍥(⊙□⊸˜⊂@0)10 "10"