Bioinformatics/base count: Difference between revisions
add RPL
(add RPL) |
|||
Line 3,031:
G : 119
</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}}==
<syntaxhighlight lang="ruby">dna = <<DNA_STR
Line 3,072 ⟶ 3,107:
Total : 500
</pre>
=={{header|Rust}}==
<syntaxhighlight lang="rust">
| |||