Open main menu

Biolecture.org β

Changes

YMS HW1

4,216 bytes added, 15:36, 20 May 2016
Created page with "<p>==Perl Code==</p> <p><span style="font-family:courier new,courier,monospace">#!/bin/perl -w</span></p> <p><span style="font-family:courier new,courier,monospace">use Bio::Se..."
<p>==Perl Code==</p>

<p><span style="font-family:courier new,courier,monospace">#!/bin/perl -w</span></p>

<p><span style="font-family:courier new,courier,monospace">use Bio::Seq;</span></p>

<p><span style="font-family:courier new,courier,monospace">print &quot;Trial for Homework \&quot;Make a Perl program translating &#39;all&#39; combinations of triple bases into amino acids\&quot;\n&quot;;</span></p>

<p><span style="font-family:courier new,courier,monospace">@bases=(&quot;a&quot;,&quot;t&quot;,&quot;g&quot;,&quot;c&quot;);<br />
foreach $first(@bases) {<br />
foreach $second(@bases) {<br />
foreach $third(@bases) {</span></p>

<p><span style="font-family:courier new,courier,monospace">&nbsp; &nbsp; &nbsp; &nbsp; $codon=$first.$second.$third;<br />
&nbsp; &nbsp; &nbsp; &nbsp; $seq_codon = Bio::Seq-&gt;new(-seq =&gt; $codon,-alphabet =&gt; &#39;dna&#39; );<br />
&nbsp; &nbsp; &nbsp; &nbsp; $aa_letter = $seq_codon-&gt;translate;<br />
&nbsp; &nbsp; &nbsp; &nbsp; print &quot;$codon\t&quot;,$aa_letter-&gt;seq,&quot;\t&quot;;</span></p>

<p><span style="font-family:courier new,courier,monospace">}</span><br />
print &quot;\n&quot;;<br />
}<br />
}<br />
==Output==</p>

<p>$ perl 1.translation.pl&nbsp;<br />
<span style="font-family:courier new,courier,monospace">Trial for Homework &quot;Make a Perl program translating &#39;all&#39; combinations of triple bases into amino acids&quot;<br />
aaa&nbsp;&nbsp; &nbsp;K&nbsp;&nbsp; &nbsp;aat&nbsp;&nbsp; &nbsp;N&nbsp;&nbsp; &nbsp;aag&nbsp;&nbsp; &nbsp;K&nbsp;&nbsp; &nbsp;aac&nbsp;&nbsp; &nbsp;N&nbsp;&nbsp; &nbsp;<br />
ata&nbsp;&nbsp; &nbsp;I&nbsp;&nbsp; &nbsp;att&nbsp;&nbsp; &nbsp;I&nbsp;&nbsp; &nbsp;atg&nbsp;&nbsp; &nbsp;M&nbsp;&nbsp; &nbsp;atc&nbsp;&nbsp; &nbsp;I&nbsp;&nbsp; &nbsp;<br />
aga&nbsp;&nbsp; &nbsp;R&nbsp;&nbsp; &nbsp;agt&nbsp;&nbsp; &nbsp;S&nbsp;&nbsp; &nbsp;agg&nbsp;&nbsp; &nbsp;R&nbsp;&nbsp; &nbsp;agc&nbsp;&nbsp; &nbsp;S&nbsp;&nbsp; &nbsp;<br />
aca&nbsp;&nbsp; &nbsp;T&nbsp;&nbsp; &nbsp;act&nbsp;&nbsp; &nbsp;T&nbsp;&nbsp; &nbsp;acg&nbsp;&nbsp; &nbsp;T&nbsp;&nbsp; &nbsp;acc&nbsp;&nbsp; &nbsp;T&nbsp;&nbsp; &nbsp;<br />
taa&nbsp;&nbsp; &nbsp;*&nbsp;&nbsp; &nbsp;tat&nbsp;&nbsp; &nbsp;Y&nbsp;&nbsp; &nbsp;tag&nbsp;&nbsp; &nbsp;*&nbsp;&nbsp; &nbsp;tac&nbsp;&nbsp; &nbsp;Y&nbsp;&nbsp; &nbsp;<br />
tta&nbsp;&nbsp; &nbsp;L&nbsp;&nbsp; &nbsp;ttt&nbsp;&nbsp; &nbsp;F&nbsp;&nbsp; &nbsp;ttg&nbsp;&nbsp; &nbsp;L&nbsp;&nbsp; &nbsp;ttc&nbsp;&nbsp; &nbsp;F&nbsp;&nbsp; &nbsp;<br />
tga&nbsp;&nbsp; &nbsp;*&nbsp;&nbsp; &nbsp;tgt&nbsp;&nbsp; &nbsp;C&nbsp;&nbsp; &nbsp;tgg&nbsp;&nbsp; &nbsp;W&nbsp;&nbsp; &nbsp;tgc&nbsp;&nbsp; &nbsp;C&nbsp;&nbsp; &nbsp;<br />
tca&nbsp;&nbsp; &nbsp;S&nbsp;&nbsp; &nbsp;tct&nbsp;&nbsp; &nbsp;S&nbsp;&nbsp; &nbsp;tcg&nbsp;&nbsp; &nbsp;S&nbsp;&nbsp; &nbsp;tcc&nbsp;&nbsp; &nbsp;S&nbsp;&nbsp; &nbsp;<br />
gaa&nbsp;&nbsp; &nbsp;E&nbsp;&nbsp; &nbsp;gat&nbsp;&nbsp; &nbsp;D&nbsp;&nbsp; &nbsp;gag&nbsp;&nbsp; &nbsp;E&nbsp;&nbsp; &nbsp;gac&nbsp;&nbsp; &nbsp;D&nbsp;&nbsp; &nbsp;<br />
gta&nbsp;&nbsp; &nbsp;V&nbsp;&nbsp; &nbsp;gtt&nbsp;&nbsp; &nbsp;V&nbsp;&nbsp; &nbsp;gtg&nbsp;&nbsp; &nbsp;V&nbsp;&nbsp; &nbsp;gtc&nbsp;&nbsp; &nbsp;V&nbsp;&nbsp; &nbsp;<br />
gga&nbsp;&nbsp; &nbsp;G&nbsp;&nbsp; &nbsp;ggt&nbsp;&nbsp; &nbsp;G&nbsp;&nbsp; &nbsp;ggg&nbsp;&nbsp; &nbsp;G&nbsp;&nbsp; &nbsp;ggc&nbsp;&nbsp; &nbsp;G&nbsp;&nbsp; &nbsp;<br />
gca&nbsp;&nbsp; &nbsp;A&nbsp;&nbsp; &nbsp;gct&nbsp;&nbsp; &nbsp;A&nbsp;&nbsp; &nbsp;gcg&nbsp;&nbsp; &nbsp;A&nbsp;&nbsp; &nbsp;gcc&nbsp;&nbsp; &nbsp;A&nbsp;&nbsp; &nbsp;<br />
caa&nbsp;&nbsp; &nbsp;Q&nbsp;&nbsp; &nbsp;cat&nbsp;&nbsp; &nbsp;H&nbsp;&nbsp; &nbsp;cag&nbsp;&nbsp; &nbsp;Q&nbsp;&nbsp; &nbsp;cac&nbsp;&nbsp; &nbsp;H&nbsp;&nbsp; &nbsp;<br />
cta&nbsp;&nbsp; &nbsp;L&nbsp;&nbsp; &nbsp;ctt&nbsp;&nbsp; &nbsp;L&nbsp;&nbsp; &nbsp;ctg&nbsp;&nbsp; &nbsp;L&nbsp;&nbsp; &nbsp;ctc&nbsp;&nbsp; &nbsp;L&nbsp;&nbsp; &nbsp;<br />
cga&nbsp;&nbsp; &nbsp;R&nbsp;&nbsp; &nbsp;cgt&nbsp;&nbsp; &nbsp;R&nbsp;&nbsp; &nbsp;cgg&nbsp;&nbsp; &nbsp;R&nbsp;&nbsp; &nbsp;cgc&nbsp;&nbsp; &nbsp;R&nbsp;&nbsp; &nbsp;<br />
cca&nbsp;&nbsp; &nbsp;P&nbsp;&nbsp; &nbsp;cct&nbsp;&nbsp; &nbsp;P&nbsp;&nbsp; &nbsp;ccg&nbsp;&nbsp; &nbsp;P&nbsp;&nbsp; &nbsp;ccc&nbsp;&nbsp; &nbsp;P&nbsp;&nbsp; &nbsp;</span></p>
Anonymous user
Retrieved from "https://Biolecture.org/Special:MobileDiff/8856"