Bioinformatics/base count: Difference between revisions
Content added Content deleted
(easylang) |
|||
Line 1,425: | Line 1,425: | ||
Σ: 500 |
Σ: 500 |
||
======</pre> |
======</pre> |
||
=={{header|EasyLang}}== |
|||
<syntaxhighlight lang="easylang"> |
|||
len d[] 26 |
|||
pos = 1 |
|||
numfmt 0 4 |
|||
repeat |
|||
s$ = input |
|||
until s$ = "" |
|||
for c$ in strchars s$ |
|||
if pos mod 40 = 1 |
|||
write pos & ":" |
|||
. |
|||
if pos mod 4 = 1 |
|||
write " " |
|||
. |
|||
write c$ |
|||
if pos mod 40 = 0 |
|||
print "" |
|||
. |
|||
pos += 1 |
|||
c = strcode c$ |
|||
d[c - 64] += 1 |
|||
. |
|||
. |
|||
print "" |
|||
for i in [ 1 3 7 20 ] |
|||
write strchar (64 + i) & ": " |
|||
print d[i] |
|||
. |
|||
print "Total: " & d[1] + d[3] + d[7] + d[20] |
|||
input_data |
|||
CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG |
|||
CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG |
|||
AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT |
|||
GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT |
|||
CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG |
|||
TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA |
|||
TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT |
|||
CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG |
|||
TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC |
|||
GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT |
|||
</syntaxhighlight> |
|||
=={{header|Factor}}== |
=={{header|Factor}}== |
||
<syntaxhighlight lang="factor">USING: assocs formatting grouping io kernel literals math |
<syntaxhighlight lang="factor">USING: assocs formatting grouping io kernel literals math |
||
Line 1,476: | Line 1,519: | ||
TOTAL: 500 |
TOTAL: 500 |
||
</pre> |
</pre> |
||
=={{header|Forth}}== |
=={{header|Forth}}== |
||
<syntaxhighlight lang="forth"> |
<syntaxhighlight lang="forth"> |