Set right-adjacent bits: Difference between revisions

m
→‎{{header|Raku}}: Throw in another test to more fully mimic the task examples
(→‎{{header|Raku}}: Add a Raku example)
m (→‎{{header|Raku}}: Throw in another test to more fully mimic the task examples)
Line 239:
# Test with a few integers.
 
for 8, 4, 544468403437631237731990408290252987624218455760086304825618,5, 5444684034376312377319904082902529876242,15 -> $integer, $bits {
 
say "\nInteger: $integer - Right-adjacent-bits: up to $bits";
Line 252:
1110
1111
 
Integer: 18455760086304825618 - Right-adjacent-bits: up to 5
10000000000100000000010000000010000000100000010000010000100010010
11000000000110000000011000000011000000110000011000011000110011011
11100000000111000000011100000011100000111000011100011100111011111
11110000000111100000011110000011110000111100011110011110111111111
11111000000111110000011111000011111000111110011111011111111111111
 
Integer: 5444684034376312377319904082902529876242 - Right-adjacent-bits: up to 15
10,327

edits