diff options
| -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'" } |