diff options
| author | Aaron Smith <asmith@sumologic.com> | 2020-12-07 14:53:35 -0600 |
|---|---|---|
| committer | Aaron Smith <asmith@sumologic.com> | 2020-12-07 14:53:35 -0600 |
| commit | f3bc094d3c6a7cfafdcdcb64298cb078a90e6d66 (patch) | |
| tree | 6bfbc2c0fff00c3224e46d9842213034a3a3461f | |
| parent | d6eeb2228b999315263e96d4b00bdf6f8d7c090e (diff) | |
| download | perlweeklychallenge-club-f3bc094d3c6a7cfafdcdcb64298cb078a90e6d66.tar.gz perlweeklychallenge-club-f3bc094d3c6a7cfafdcdcb64298cb078a90e6d66.tar.bz2 perlweeklychallenge-club-f3bc094d3c6a7cfafdcdcb64298cb078a90e6d66.zip | |
reverse -> flip
| -rw-r--r-- | challenge-090/aaronreidsmith/raku/ch-1.raku | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-090/aaronreidsmith/raku/ch-1.raku b/challenge-090/aaronreidsmith/raku/ch-1.raku index 96adad1541..b0c53e239a 100644 --- a/challenge-090/aaronreidsmith/raku/ch-1.raku +++ b/challenge-090/aaronreidsmith/raku/ch-1.raku @@ -7,7 +7,7 @@ subset ValidDna of Str where { $_ ~~ /^^[A|T|G|C]+$$/ } sub MAIN($dna where $dna ~~ ValidDna, Bool :rc(:$reverse-complement) = False) { my $translated = $dna.trans('ATGC' => 'TACG'); if $reverse-complement { - say "5'-{$translated.reverse}-3'"; + say "5'-{$translated.flip}-3'"; } else { say "3'-$translated-5'" } |