Merge pull request #2945 from aaronreidsmith/week-090

Week 90 Raku solutions

3 files changed, 39 insertions, 0 deletions

diff --git a/challenge-090/aaronreidsmith/blog.txt b/challenge-090/aaronreidsmith/blog.txt
new file mode 100644
index 0000000000..c0bf9276a7
--- /dev/null
+++ b/challenge-090/aaronreidsmith/blog.txt
@@ -0,0 +1 @@
+https://aaronreidsmith.github.io/blog/perl-weekly-challenge-090/
\ No newline at end of file
diff --git a/challenge-090/aaronreidsmith/raku/ch-1.raku b/challenge-090/aaronreidsmith/raku/ch-1.raku
new file mode 100644
index 0000000000..3c12a719c9
--- /dev/null
+++ b/challenge-090/aaronreidsmith/raku/ch-1.raku
@@ -0,0 +1,17 @@
+#!/usr/bin/env perl6
+
+subset ValidDna of Str where { $_ ~~ /^^[A|T|G|C]+$$/ }
+
+# Since DNA is generally read from 5' to 3', I included the option to find the
+# reverse compliment in addition to the complement
+sub MAIN($dna where $dna ~~ ValidDna, Bool :rc(:$reverse-complement) = False) {
+    say "Input stats:\n{$dna.comb.Bag.Hash}\n";
+
+    say "Complement:";
+    my $translated = $dna.trans('ATGC' => 'TACG');
+    if $reverse-complement {
+        say "5'-{$translated.flip}-3'";
+    } else {
+        say "3'-$translated-5'"
+    }
+}
diff --git a/challenge-090/aaronreidsmith/raku/ch-2.raku b/challenge-090/aaronreidsmith/raku/ch-2.raku
new file mode 100644
index 0000000000..fa5fe375c6
--- /dev/null
+++ b/challenge-090/aaronreidsmith/raku/ch-2.raku
@@ -0,0 +1,21 @@
+#!/usr/bin/env perl6
+
+subset PositiveInt of Int where { $_ ~~ Int && $_ > 0 }
+
+sub generate-pairs($a, $b) {
+    sprintf("%02d, %02d", $a, $b).put;
+    if $a == 1 {
+        (($a, $b),);
+    } else {
+        (($a, $b), |generate-pairs($a div 2, $b * 2));
+    }
+}
+
+sub MAIN(PositiveInt $A, PositiveInt $B) {
+    say "Input: A=$A, B=$B";
+    say "Divide A by 2 (ignoring remainders) until it is 1. Multiply B by 2 as we go:";
+    my @pairs = generate-pairs($A, $B);
+    say "Then, wherever A is odd, we add the Bs together:";
+    my @odd-bs = @pairs.grep(-> @pair { !(@pair[0] %% 2) }).map(-> @pair { @pair[1] });
+    say "{@odd-bs.join(' + ')} = {@odd-bs.sum}";
+}