From ee2eec4faa65d5dea48e85e0ae477725e30fecea Mon Sep 17 00:00:00 2001 From: andemark <53903062+andemark@users.noreply.github.com> Date: Mon, 24 May 2021 07:07:23 -0600 Subject: Delete ch-2.raku --- challenge-114/mark-anderson/raku/ch-2.raku | 30 ------------------------------ 1 file changed, 30 deletions(-) delete mode 100644 challenge-114/mark-anderson/raku/ch-2.raku (limited to 'challenge-114') 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 5560624c9c..0000000000 --- a/challenge-114/mark-anderson/raku/ch-2.raku +++ /dev/null @@ -1,30 +0,0 @@ -#!/usr/bin/env raku - -# my 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 ~~ / $ = <[01]>* 0 $ = 1+ $ = 0* /; - - my @ones = $m.comb andthen .shift; - my @bits = @ones andthen .append($m.comb); - @bits .= rotate(@ones); - - $m ~ 10 ~ @bits.join andthen .parse-base(2); -} -- cgit