Changes
From Biolecture.org
Created page with "<p>#!/usr/bin/perl<br /> use strict;<br /> use warnings;</p> <p><br /> my @bases=("u","c","a","g");<br /> my @AA=("F","F&q..."
<p>#!/usr/bin/perl<br />
use strict;<br />
use warnings;</p>
<p><br />
my @bases=("u","c","a","g");<br />
my @AA=("F","F","L","L","S","S","S","S","Y","Y",".",".","C","C",".","W","L","L","L","L","P","P","P","P",<br />
"H","H","Q","Q","R","R","R","R","I","I","I","M","T","T","T","T","N","N","K","K","S","S","R","R",<br />
"V","V","V","V","A","A","A","A","D","D","E","E","G","G","G","G");</p>
<p><br />
for (my $i=0;$i<4;$i++) {<br />
for (my $j=0;$j<4;$j++) {<br />
for (my $k=0;$k<4;$k++) {</p>
<p><br />
print $bases[$i], $bases[$j], $bases[$k], " ", $AA[16*($i)+4*($j)+($k)], " ";<br />
}}<br />
print "\n";}</p>
<p> </p>
<p>uuu F uuc F uua L uug L ucu S ucc S uca S ucg S uau Y uac Y uaa . uag . ugu C ugc C uga . ugg W<br />
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<br />
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 />
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 G</p>
<p> </p>
use strict;<br />
use warnings;</p>
<p><br />
my @bases=("u","c","a","g");<br />
my @AA=("F","F","L","L","S","S","S","S","Y","Y",".",".","C","C",".","W","L","L","L","L","P","P","P","P",<br />
"H","H","Q","Q","R","R","R","R","I","I","I","M","T","T","T","T","N","N","K","K","S","S","R","R",<br />
"V","V","V","V","A","A","A","A","D","D","E","E","G","G","G","G");</p>
<p><br />
for (my $i=0;$i<4;$i++) {<br />
for (my $j=0;$j<4;$j++) {<br />
for (my $k=0;$k<4;$k++) {</p>
<p><br />
print $bases[$i], $bases[$j], $bases[$k], " ", $AA[16*($i)+4*($j)+($k)], " ";<br />
}}<br />
print "\n";}</p>
<p> </p>
<p>uuu F uuc F uua L uug L ucu S ucc S uca S ucg S uau Y uac Y uaa . uag . ugu C ugc C uga . ugg W<br />
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<br />
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 />
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 G</p>
<p> </p>
