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