diff options
| author | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-05-24 08:19:25 -0600 |
|---|---|---|
| committer | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-05-24 08:19:25 -0600 |
| commit | 775664098754cac878e8cd9b4d77de60b4c8825f (patch) | |
| tree | 09bbd1e6d88c72bb8cf0cb66af41f238cbf06bd5 | |
| parent | e9017140374dd3e286442b1860eb1f7220ac153a (diff) | |
| parent | ee2eec4faa65d5dea48e85e0ae477725e30fecea (diff) | |
| download | perlweeklychallenge-club-775664098754cac878e8cd9b4d77de60b4c8825f.tar.gz perlweeklychallenge-club-775664098754cac878e8cd9b4d77de60b4c8825f.tar.bz2 perlweeklychallenge-club-775664098754cac878e8cd9b4d77de60b4c8825f.zip | |
Merge branch 'branch-for-challenge-114' of https://github.com/andemark/perlweeklychallenge-club into branch-for-challenge-114
| -rw-r--r-- | challenge-114/mark-anderson/raku/ch-2.raku | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/challenge-114/mark-anderson/raku/ch-2.raku b/challenge-114/mark-anderson/raku/ch-2.raku deleted file mode 100644 index 97cf9bea64..0000000000 --- a/challenge-114/mark-anderson/raku/ch-2.raku +++ /dev/null @@ -1,30 +0,0 @@ -#!/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); -} |