diff options
| -rw-r--r-- | challenge-114/mark-anderson/raku/ch-2.raku | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/challenge-114/mark-anderson/raku/ch-2.raku b/challenge-114/mark-anderson/raku/ch-2.raku new file mode 100644 index 0000000000..97cf9bea64 --- /dev/null +++ b/challenge-114/mark-anderson/raku/ch-2.raku @@ -0,0 +1,30 @@ +#!/usr/bin/env raku + +# translation of https://www.slideshare.net/gkumar007/bits-next-higher-presentation +# (slide 9) + +use Test; +plan 9; + +is next-set-bits(3), 5; +is next-set-bits(6), 9; +is next-set-bits(11), 13; +is next-set-bits(23), 27; +is next-set-bits(24), 33; +is next-set-bits(44), 49; +is next-set-bits(46), 51; +is next-set-bits(240), 263; +is next-set-bits(2³²), 2³³; + +sub next-set-bits($N) +{ + my $bits = 0 ~ $N.base(2); + + my $m = $bits ~~ / $<head> = <[01]>* 0 $<ones> = 1+ $<zeros> = 0* /; + + my @ones = $m<ones>.comb andthen .shift; + my @bits = @ones andthen .append($m<zeros>.comb); + @bits .= rotate(@ones); + + $m<head> ~ 10 ~ @bits.join andthen .parse-base(2); +} |