diff options
| author | Aaron Smith <asmith@sumologic.com> | 2020-12-07 15:43:03 -0600 |
|---|---|---|
| committer | Aaron Smith <asmith@sumologic.com> | 2020-12-07 15:43:03 -0600 |
| commit | 42e642d8c70a32352d990d8490a46fe10c0c9b86 (patch) | |
| tree | 8e7894840fa51615ab14691d94882f8ac9aaad38 | |
| parent | 0876e01a876b7e4a1cc523d2af1524663106f22f (diff) | |
| download | perlweeklychallenge-club-42e642d8c70a32352d990d8490a46fe10c0c9b86.tar.gz perlweeklychallenge-club-42e642d8c70a32352d990d8490a46fe10c0c9b86.tar.bz2 perlweeklychallenge-club-42e642d8c70a32352d990d8490a46fe10c0c9b86.zip | |
Add input stats
| -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'"; |