从蛋白质推断 mRNA

作者：L. Grondin

http://rosalind.info/problems/mrna/

示例输入

MA

示例输出

12

源代码：mrna-grondilu.pl

use v6;

constant RNA-codon = Hash.new: <
UUU F      CUU L      AUU I      GUU V
UUC F      CUC L      AUC I      GUC V
UUA L      CUA L      AUA I      GUA V
UUG L      CUG L      AUG M      GUG V
UCU S      CCU P      ACU T      GCU A
UCC S      CCC P      ACC T      GCC A
UCA S      CCA P      ACA T      GCA A
UCG S      CCG P      ACG T      GCG A
UAU Y      CAU H      AAU N      GAU D
UAC Y      CAC H      AAC N      GAC D
UAA Stop   CAA Q      AAA K      GAA E
UAG Stop   CAG Q      AAG K      GAG E
UGU C      CGU R      AGU S      GGU G
UGC C      CGC R      AGC S      GGC G
UGA Stop   CGA R      AGA R      GGA G
UGG W      CGG R      AGG R      GGG G
>;

sub mrna($rna) {
    my %count;
    %count{.value}++ for RNA-codon;

    my $count = 1;
    for ($rna.comb, 'Stop').flat {
        $count *= %count{$_};
        $count %= 1_000_000;
    }
    return $count;
}

sub MAIN(Str $input = "MA") {
    say mrna $input;
}