Changes
From Biolecture.org
Created page with "<p>#!/usr/bin/perl<br /> use strict;<br /> use warnings;<br /> my @Base = ("T","C","A","G");<br /> my @Prot = ("F","F"..."
<p>#!/usr/bin/perl<br />
use strict;<br />
use warnings;<br />
my @Base = ("T","C","A","G");<br />
my @Prot = ("F","F","L","L","L","L","L","L",<br />
"I","I","I","M","V","V","V","V",<br />
"S","S","S","S","P","P","P","P",<br />
"T","T","T","T","A","A","A","A",<br />
"Y","Y","*","*","H","H","Q","Q",<br />
"N","N","K","K","D","D","E","E",<br />
"C","C","*","W","R","R","R","R",<br />
"S","S","R","R","G","G","G","G");</p>
<p>for (my $A = 0; $A <=3; $A++){<br />
for (my $B = 0; $B <=3; $B++){<br />
for (my $C = 0; $C <=3; $C++){<br />
print("$Base[$A]","$Base[$B]","$Base[$C]","=",$Prot[16*$A+4*$B+$C],"\t");<br />
}}}<br />
print("\n");</p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p>$ perl triplet_code.pl<br />
TTT=F TTC=F TTA=L TTG=L TCT=L TCC=L TCA=L TCG=L TAT=I TAC=I TAA=I TAG=M TGT=V TGC=V TGA=V TGG=V CTT=S CTC=S CTA=S CTG=S CCT=P CCC=P CCA=P CCG=P CAT=T CAC=T CAA=T CAG=T CGT=A CGC=A CGA=A CGG=A ATT=Y ATC=Y ATA=* ATG=* ACT=H ACC=H ACA=Q ACG=Q AAT=N AAC=N AAA=K AAG=K AGT=D AGC=D AGA=E AGG=E GTT=C GTC=C GTA=* GTG=W GCT=R GCC=R GCA=R GCG=R GAT=S GAC=S GAA=R GAG=R GGT=G GGC=G GGA=G GGG=G<br />
</p>
use strict;<br />
use warnings;<br />
my @Base = ("T","C","A","G");<br />
my @Prot = ("F","F","L","L","L","L","L","L",<br />
"I","I","I","M","V","V","V","V",<br />
"S","S","S","S","P","P","P","P",<br />
"T","T","T","T","A","A","A","A",<br />
"Y","Y","*","*","H","H","Q","Q",<br />
"N","N","K","K","D","D","E","E",<br />
"C","C","*","W","R","R","R","R",<br />
"S","S","R","R","G","G","G","G");</p>
<p>for (my $A = 0; $A <=3; $A++){<br />
for (my $B = 0; $B <=3; $B++){<br />
for (my $C = 0; $C <=3; $C++){<br />
print("$Base[$A]","$Base[$B]","$Base[$C]","=",$Prot[16*$A+4*$B+$C],"\t");<br />
}}}<br />
print("\n");</p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p>$ perl triplet_code.pl<br />
TTT=F TTC=F TTA=L TTG=L TCT=L TCC=L TCA=L TCG=L TAT=I TAC=I TAA=I TAG=M TGT=V TGC=V TGA=V TGG=V CTT=S CTC=S CTA=S CTG=S CCT=P CCC=P CCA=P CCG=P CAT=T CAC=T CAA=T CAG=T CGT=A CGC=A CGA=A CGG=A ATT=Y ATC=Y ATA=* ATG=* ACT=H ACC=H ACA=Q ACG=Q AAT=N AAC=N AAA=K AAG=K AGT=D AGC=D AGA=E AGG=E GTT=C GTC=C GTA=* GTG=W GCT=R GCC=R GCA=R GCG=R GAT=S GAC=S GAA=R GAG=R GGT=G GGC=G GGA=G GGG=G<br />
</p>
