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