Changes
From Biolecture.org
no edit summary
"V","V","V","V","A","A","A","A","D","D","E","E","G","G","G","G");</p>
<p>my %codon;<br />my $var;<br />my %result;</p> <p>for (my $i=0;$i<4;$i++) {<br />
for (my $j=0;$j<4;$j++) {<br />
for (my $k=0;$k<4;$k++) {<br /> $var=$bases[$i]. $bases[$j]. $bases[$k];<br /> $codon{$var} = $AA[16*($i)+4*($j)+($k)];</p> <p>}}}</p>
<p><br />
<p> </p>
<hr />
<p>uuu F uuc F uua L uug L ucu S ucc S uca S ucg S uau Y uac Y uaa . uag gggGuucFgguGaugMccaPauuIaacNccuPggaGacuTucuSgcuAcuuLcguRuuuFguuVgccAcuaLaucIggcGgagE</p> <p>aauNcugLgauDaccTaagKuga. ugu C ugc C uga cgaRgcgAuuaLuaa. ugg WacgTgugVcauHuguCgcaAgucVuccSuacYagcSuauYucaS<br /p>cuu L cuc L cua L cug L ccu P ccc P cca P ccg P cau H cac H caa Q cag Q cgu R cgc R cga R cgg R<p>acaTuugLauaIccgPcacHgaaEgacDcagQcggRcccPaggRaguSuag.cgcRguaVuggWugcCucgSagaRcucLaaaKcaaQ<br /p>auu I auc I aua I aug M acu T acc T aca T acg T aau N aac N aaa K aag K agu S agc S aga R agg R<br /p>guu V guc V gua V gug V gcu A gcc A gca A gcg A gau D gac D gaa E gag E ggu G ggc G gga G ggg GF</p>
<p> </p>
