Merge pull request #11351 from wambash/challenge-week-301

solutions week 301

2 files changed, 47 insertions, 0 deletions

diff --git a/challenge-301/wambash/raku/ch-1.raku b/challenge-301/wambash/raku/ch-1.raku
new file mode 100644
index 0000000000..0a50a9f7bf
--- /dev/null
+++ b/challenge-301/wambash/raku/ch-1.raku
@@ -0,0 +1,21 @@
+#!/usr/bin/env raku
+
+sub largest-number (+@ints) {
+    my $max-length = @ints.map(*.chars).max;
+
+    @ints
+    andthen .sort: { $_ x  $max-length }\
+    andthen .reverse
+    andthen [~] $_
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is largest-number(20, 3),320;
+    is largest-number(3, 30, 34, 5, 9),9534330;
+    done-testing;
+}
+
+multi MAIN (+@ints) {
+    say largest-number @ints
+}
diff --git a/challenge-301/wambash/raku/ch-2.raku b/challenge-301/wambash/raku/ch-2.raku
new file mode 100644
index 0000000000..24151021db
--- /dev/null
+++ b/challenge-301/wambash/raku/ch-2.raku
@@ -0,0 +1,26 @@
+#!/usr/bin/env raku
+
+sub hamming-distance (+@ints) {
+    my $elems = @ints.elems;
+
+    @ints
+    andthen .map: { .polymod: 2 xx * }\
+    andthen roundrobin $_
+    andthen .map: *.sum
+    andthen .map: { $_ * ($elems - $_) }\
+    andthen .sum
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is hamming-distance(4,14,2),6;
+    is hamming-distance(4,14,4),4;
+    subtest {
+        is hamming-distance(^(2**$_)), $_ * 4**($_-1) for ^16;
+    }
+    done-testing;
+}
+
+multi MAIN (+@ints) {
+    say hamming-distance @ints
+}