diff options
| -rw-r--r-- | challenge-090/aaronreidsmith/raku/ch-1.raku | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/challenge-090/aaronreidsmith/raku/ch-1.raku b/challenge-090/aaronreidsmith/raku/ch-1.raku index b0c53e239a..3c12a719c9 100644 --- a/challenge-090/aaronreidsmith/raku/ch-1.raku +++ b/challenge-090/aaronreidsmith/raku/ch-1.raku @@ -5,6 +5,9 @@ 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'"; |