diff options
| -rw-r--r-- | challenge-090/garrett-goebel/raku/ch-2.raku | 17 |
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"; |