Set right-adjacent bits: Difference between revisions
Content added Content deleted
(Ada version) |
SqrtNegInf (talk | contribs) m (→{{header|Raku}}: fixed off-by-one error) |
||
| Line 628: | Line 628: | ||
<lang perl6>sub rab (Int $n, Int $b = 1) { |
<lang perl6>sub rab (Int $n, Int $b = 1) { |
||
my $m = $n; |
my $m = $n; |
||
$m +|= ($n +> $_) for ^$b; |
$m +|= ($n +> $_) for ^ $b+1; |
||
$m |
$m |
||
} |
} |
||
| Line 634: | Line 634: | ||
sub lab (Int $n, Int $b = 1) { |
sub lab (Int $n, Int $b = 1) { |
||
my $m = $n; |
my $m = $n; |
||
$m +|= ($n +< $_) for ^$b; |
$m +|= ($n +< $_) for ^ $b+1; |
||
$m |
$m |
||
} |
} |
||