Week 80 setup

2 files changed, 75 insertions, 0 deletions

diff --git a/challenge-079/ash/cpp/ch-1.cpp b/challenge-079/ash/cpp/ch-1.cpp
new file mode 100644
index 0000000000..27596b8967
--- /dev/null
+++ b/challenge-079/ash/cpp/ch-1.cpp
@@ -0,0 +1,43 @@
+/*
+    Task 1 from
+    https://perlweeklychallenge.org/blog/perl-weekly-challenge-079/
+*/
+
+#include <iostream>
+#include <sstream>
+
+using namespace std;
+
+int main(int argc, char** argv) {
+    if (argc != 2) {
+        cerr << "Usage: ./a.out 42" << endl;
+        return 1;
+    }
+
+    stringstream input(argv[1]);
+  
+    int n;
+    input >> n;
+
+    int total_bits = 0;
+    int scale = 1;
+    n++;
+    while (scale <= n) {
+        int scale2 = scale << 1;
+        
+        int fill_full = n / scale2;
+        int fill_frac = n % scale2;
+
+        int bits_full = fill_full * scale;
+        int bits_frac = 0;
+        if (fill_frac > scale) {
+            bits_frac = fill_frac - scale;
+        }
+
+        total_bits += bits_full + bits_frac;
+
+        scale = scale2;
+    }
+
+    cout << "There are " << total_bits << " set bits in the sequence from 1 to " << n << endl;
+}
diff --git a/challenge-079/ash/raku/ch-2.raku b/challenge-079/ash/raku/ch-2.raku
new file mode 100644
index 0000000000..d04ce7a257
--- /dev/null
+++ b/challenge-079/ash/raku/ch-2.raku
@@ -0,0 +1,32 @@
+#!/usr/bin/env raku
+#
+# Task 2 from
+# https://perlweeklychallenge.org/blog/perl-weekly-challenge-079/
+
+my @shape = 2, 1, 4, 1, 2, 5;
+
+# Make the matrix and fill it with '#' (bricks) and '~' (water);
+my $height = max(@shape);
+my @map;
+for @shape -> $cell {
+    push @map, Array.new(('#' xx $cell, '~' xx ($height - $cell)).flat);
+}
+
+blow-water-out(0, @shape.end);
+blow-water-out(@shape.end, 0);
+
+.join.say for @map;
+
+# Units of water left
+say @map.join.join.indices('~').elems;
+
+sub blow-water-out($from, $to) {
+    # Blow from left or from right to remove high waters.
+    my $max = @shape[$from]; # Height of the left-most (or right-most) cell
+    for $from ... $to -> $pos {
+        $max = @shape[$pos] if @shape[$pos] > $max; # Raising wall, increase the maximum
+
+        # Remove water above the current maximum and fill it with air
+        @map[$pos; $_] = '.' for $max ..^ $height;
+    }
+}