diff options
| -rw-r--r-- | challenge-079/mark-anderson/raku/ch-1.raku | 2 | ||||
| -rw-r--r-- | challenge-079/mark-anderson/raku/ch-2.raku | 4 |
2 files changed, 5 insertions, 1 deletions
diff --git a/challenge-079/mark-anderson/raku/ch-1.raku b/challenge-079/mark-anderson/raku/ch-1.raku index 99e060c88f..0c6bceb3b3 100644 --- a/challenge-079/mark-anderson/raku/ch-1.raku +++ b/challenge-079/mark-anderson/raku/ch-1.raku @@ -1,3 +1,3 @@ unit sub MAIN($N where * > 0); -say (1..$N).map(*.base(2).indices(1)).sum mod 1000000007; +say (1..$N).map(*.base(2)).comb.sum mod 1000000007; diff --git a/challenge-079/mark-anderson/raku/ch-2.raku b/challenge-079/mark-anderson/raku/ch-2.raku index d3ee9a7606..5cdb57761c 100644 --- a/challenge-079/mark-anderson/raku/ch-2.raku +++ b/challenge-079/mark-anderson/raku/ch-2.raku @@ -13,6 +13,8 @@ Output: 3 # # # # # # # # # # # # # # # # # # # 2 # # # # # # # # # # # # # # # # # # # # # # # 1 # # # # # # # # # # # # # # # # # # # # # # # # # # # # + - - - - - - - - - - - - - - - - - - - - - - - - - - - - + 9 3 1 1 4 2 3 2 5 1 5 8 5 5 4 3 1 7 8 9 9 1 9 5 2 2 6 5 111 @@ -28,6 +30,8 @@ for @ints.max...1 -> $n { say "$n @ints.map({ $_ >= $n ?? "#" !! " " })"; } +say " ", " -" x @ints, "\n ", @ints.join(" "); + while @ints.join ~~ m:c($pos)/ (\d)(\d+)(\d) <?{ $0 > $1.comb.all < $2 }> / { $sum += (($0, $2).min <<->> $1.comb).sum; |