Complementing a Strand of DNA
AUTHOR
grondilu
http://rosalind.info/problems/revc/
Sample input
AAAACCCGGT
Sample output
ACCGGGTTTT
use v6;
sub MAIN($input = "AAAACCCGGT") {
.flip.trans('ACGT' => 'TGCA').say given $input;
}
# vim: expandtab shiftwidth=4 ft=perl6