Complementing a Strand of DNA

Author: grondilu

http://rosalind.info/problems/revc/

Sample input

AAAACCCGGT

Sample output

ACCGGGTTTT

Source code: revc-gerdr.pl

use v6;

sub MAIN($input = "AAAACCCGGT") {
    .flip.trans('ACGT' => 'TGCA').say given $input;
}