Set right-adjacent bits: Difference between revisions
Content added Content deleted
(Added Quackery.) |
m (→{{header|Quackery}}: tidier output) |
||
Line 1,287: | Line 1,287: | ||
drop ] is setrightbits ( n --> n ) |
drop ] is setrightbits ( n --> n ) |
||
say "n = 2; Width e = 4:" |
say "n = 2; Width e = 4:" |
||
cr cr |
cr cr |
||
' [ bin 1000 bin 0100 |
' [ bin 1000 bin 0100 |
||
Line 1,300: | Line 1,300: | ||
[ say "n = " i^ echo |
[ say "n = " i^ echo |
||
say " Width e = 66:" cr |
say " Width e = 66:" cr |
||
say "Input b: |
say "Input b: " |
||
bin 010000000000100000000010000000010000000100000010000010000100010010 |
bin 010000000000100000000010000000010000000100000010000010000100010010 |
||
dup 66 echobin cr |
dup 66 echobin cr |
||
say "Result: |
say "Result: " |
||
i^ setrightbits |
i^ setrightbits |
||
66 echobin cr cr ]</syntaxhighlight> |
66 echobin cr cr ]</syntaxhighlight> |
||
Line 1,324: | Line 1,324: | ||
n = 0 Width e = 66: |
n = 0 Width e = 66: |
||
⚫ | |||
Input b: |
|||
010000000000100000000010000000010000000100000010000010000100010010 |
Result: 010000000000100000000010000000010000000100000010000010000100010010 |
||
Result: |
|||
⚫ | |||
n = 1 Width e = 66: |
n = 1 Width e = 66: |
||
⚫ | |||
Input b: |
|||
⚫ | |||
⚫ | |||
Result: |
|||
⚫ | |||
n = 2 Width e = 66: |
n = 2 Width e = 66: |
||
⚫ | |||
Input b: |
|||
⚫ | |||
⚫ | |||
Result: |
|||
⚫ | |||
n = 3 Width e = 66: |
n = 3 Width e = 66: |
||
⚫ | |||
Input b: |
|||
⚫ | |||
⚫ | |||
Result: |
|||
⚫ | |||
</pre> |
</pre> |
||