Bioinformatics/base count: Difference between revisions
Content added Content deleted
(add RPL) |
|||
Line 3,031: | Line 3,031: | ||
G : 119 |
G : 119 |
||
</pre> |
</pre> |
||
=={{header|RPL}}== |
|||
Bases are grouped by codons, then output by groups of 4 codons to match the 22-character screen |
|||
≪ "ACGT" → sequence nucleotides |
|||
≪ { 4 } 0 CON |
|||
1 sequence SIZE '''FOR''' j |
|||
sequence j DUP SUB |
|||
'''IF''' nucleotides SWAP POS '''THEN''' |
|||
LAST GET LAST ROT 1 + PUT '''END''' |
|||
'''NEXT''' |
|||
≫ ≫ '<span style="color:blue">BASECOUNT</span>' STO |
|||
≪ "" |
|||
1 3 PICK SIZE '''FOR''' j |
|||
OVER j DUP 2 + SUB + " " + |
|||
3 '''STEP''' |
|||
SWAP DROP → codons |
|||
≪ 1 codons SIZE '''FOR''' j |
|||
codons j DUP 15 + SUB |
|||
16 '''STEP''' |
|||
codons <span style="color:blue">BASECOUNT</span> |
|||
DUP 1 CON DOT <span style="color:grey">@ calculate the sum of the vector returned by BASECOUNT</span> |
|||
≫ ≫ '<span style="color:blue">SHOWSEQ</span>' STO |
|||
"CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATGCTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTGAGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGATGGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTTCGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGGTCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATATTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTATCGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTGTCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGACGACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT" <span style="color:blue">SHOWSEQ</span> |
|||
{{out}} |
|||
<pre> |
|||
44: "CGT AAA AAA TTA " |
|||
43: "CAA CGT CCT TTG " |
|||
... |
|||
4: "TGT TAA ACT ACG " |
|||
3: "AAC GTA AT " |
|||
2: [ 129 97 119 155 ] |
|||
1: 500 |
|||
</pre> |
|||
=={{header|Ruby}}== |
=={{header|Ruby}}== |
||
<syntaxhighlight lang="ruby">dna = <<DNA_STR |
<syntaxhighlight lang="ruby">dna = <<DNA_STR |
||
Line 3,072: | Line 3,107: | ||
Total : 500 |
Total : 500 |
||
</pre> |
</pre> |
||
=={{header|Rust}}== |
=={{header|Rust}}== |
||
<syntaxhighlight lang="rust"> |
<syntaxhighlight lang="rust"> |