challenge-090 Task 2 Raku

1 files changed, 16 insertions, 1 deletions

diff --git a/challenge-090/garrett-goebel/raku/ch-2.raku b/challenge-090/garrett-goebel/raku/ch-2.raku
index b955dd9446..35324621de 100644
--- a/challenge-090/garrett-goebel/raku/ch-2.raku
+++ b/challenge-090/garrett-goebel/raku/ch-2.raku
@@ -1,2 +1,17 @@
 #!/usr/bin/env raku
-say TR/TAGC/ATCG/ with 'GTAAACCCCTTTTCATTTAGACAGATCGACTCCTTATCCATTCTCAGAGATGTGTTGCTGGTCGCCG';
+
+unit sub MAIN (Int $A where {$A > 0} = 14, Int $B where {$B > 0} = 12);
+
+my ($a, $b, $r) = ($A, $B, 0); # command line args are immutable
+
+say "$a & $b";
+
+if ($a > 1) {
+    repeat {
+        $r += $b  if $a mod 2;
+        say "{ $a div= 2 } & { $b *= 2 } | r: $r";
+    } while $a > 1;
+}
+$r += $b;
+
+say "r: $r";