diff options
| author | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-07-02 15:33:48 -0600 |
|---|---|---|
| committer | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-07-02 15:33:48 -0600 |
| commit | 742b30b39aab991c124a0fd21e3a2f707deb0552 (patch) | |
| tree | 4b8b1e797fb7b81d77985a250ffd5bc8069886d5 | |
| parent | 0c7e8ca95bc0bdc6e00f710107ecb8447d8edc22 (diff) | |
| download | perlweeklychallenge-club-742b30b39aab991c124a0fd21e3a2f707deb0552.tar.gz perlweeklychallenge-club-742b30b39aab991c124a0fd21e3a2f707deb0552.tar.bz2 perlweeklychallenge-club-742b30b39aab991c124a0fd21e3a2f707deb0552.zip | |
ch-1.raku simplified
| -rw-r--r-- | challenge-119/mark-anderson/raku/ch-1.raku | 2 | ||||
| -rw-r--r-- | challenge-119/mark-anderson/raku/ch-2.raku | 1 |
2 files changed, 2 insertions, 1 deletions
diff --git a/challenge-119/mark-anderson/raku/ch-1.raku b/challenge-119/mark-anderson/raku/ch-1.raku index 1a512829b9..80dfc2d075 100644 --- a/challenge-119/mark-anderson/raku/ch-1.raku +++ b/challenge-119/mark-anderson/raku/ch-1.raku @@ -8,5 +8,5 @@ is swap-nibbles(18), 33; sub swap-nibbles($N where * ~~ 1..255) { - $N.fmt('%08b').comb(4).rotate.join.parse-base(2) + $N.fmt('%08b').comb[4,5,6,7,0,1,2,3].join.parse-base(2) } diff --git a/challenge-119/mark-anderson/raku/ch-2.raku b/challenge-119/mark-anderson/raku/ch-2.raku index 6dd1e679d6..a994222674 100644 --- a/challenge-119/mark-anderson/raku/ch-2.raku +++ b/challenge-119/mark-anderson/raku/ch-2.raku @@ -10,6 +10,7 @@ plan 3; is seq(5), 13; is seq(10), 32; is seq(60), 2223; +is seq(1000), 1332223; sub seq($N where * > 0) { |