Changes
no edit summary
use warnings;<br />
my @Base = ("T","C","A","G");<br />
my @Prot = ( "F","F","L","L","LS","LS","LS","LS",<br /> "IY","IY","I*","M*","VC","VC","V*","VW",<br /> "SL","SL","SL","SL","P","P","P","P",<br /> "TH","TH","TQ","TQ","AR","AR","AR","AR",<br /> "YI","YI","*I","*M","HT","HT","QT","QT",<br /> "N","N","K","K","DS","DS","ER","ER",<br /> "CV","CV","*V","WV","RA","RA","RA","RA",<br /> "SD","SD","RE","RE","G","G","G","G");</p>
<p>for (my $A = 0; $A <=3; $A++){<br />
<p>$ perl triplet_code.pl<br />
TTT=F TTC=F TTA=L TTG=L TCT=L S TCC=L S TCA=L S TCG=L S TAT=I Y TAC=I TAAYTAA=I * TAG=M * TGT=V C TGC=V C TGA=V * TGG=V W CTT=S L CTC=S L CTA=S L CTG=S CCTLCCT=P CCC=P CCA=P CCG=P CAT=T H CAC=T H CAA=T Q CAG=T Q CGT=A R CGC=A CGARCGA=A R CGG=A R ATT=Y I ATC=Y I ATA=* I ATG=* M ACT=H T ACC=H T ACA=Q T ACG=Q AATTAAT=N AAC=N AAA=K AAG=K AGT=D S AGC=D S AGA=E R AGG=R AGG=E GTT=C V GTC=C GTAVGTA=* V GTG=W V GCT=R A GCC=R A GCA=R A GCG=R A GAT=S D GAC=S D GAA=R E GAG=R GGTEGGT=G GGC=G GGA=G GGG=G<br /><img alt="" src="/ckfinder/userfiles/images/triplet%EC%BA%A1%EC%B2%98(3).PNG" style="height:137px158px; width:854px775px" /></p>