Merge pull request #2956 from ggoebel/master

challenge-090 task 1 and 2 Raku

3 files changed, 25 insertions, 0 deletions

diff --git a/challenge-090/garrett-goebel/README b/challenge-090/garrett-goebel/README
new file mode 100644
index 0000000000..a8aa246dbb
--- /dev/null
+++ b/challenge-090/garrett-goebel/README
@@ -0,0 +1 @@
+Solution by Garrett Goebel
diff --git a/challenge-090/garrett-goebel/raku/ch-1.raku b/challenge-090/garrett-goebel/raku/ch-1.raku
new file mode 100644
index 0000000000..00c9d0df57
--- /dev/null
+++ b/challenge-090/garrett-goebel/raku/ch-1.raku
@@ -0,0 +1,5 @@
+#!/usr/bin/env raku
+'GTAAACCCCTTTTCATTTAGACAGATCGACTCCTTATCCATTCTCAGAGATGTGTTGCTGGTCGCCG'.&{
+    say 'Nucleiobase count: ' ~ .comb.elems;
+    say 'Complementary sequence: ' ~ TR/TAGC/ATCG/;
+}
diff --git a/challenge-090/garrett-goebel/raku/ch-2.raku b/challenge-090/garrett-goebel/raku/ch-2.raku
new file mode 100644
index 0000000000..dede70ec31
--- /dev/null
+++ b/challenge-090/garrett-goebel/raku/ch-2.raku
@@ -0,0 +1,19 @@
+#!/usr/bin/env raku
+
+unit sub MAIN (
+    Int $A is copy where $A > 0 = 14,
+    Int $B is copy where $B > 0 = 12
+);
+
+my Int $r = 0;
+my $format = "%10d & %10d | product: %10d\n";
+$format.printf($A,$B, $r);
+
+if ($A > 1) {
+    repeat {
+        $r += $B  if $A mod 2;
+        $format.printf($A div= 2, $B *= 2, $r);
+    } while $A > 1;
+}
+$r += $B;
+~(' ' x 24 ~ "| product: %10d\n").printf($r);