Bioinformatics/base count: Difference between revisions
→{{header|APL}}: Add implementation
(→{{header|APL}}: Add implementation) |
|||
Line 394:
Total: 500
</pre>
=={{header|APL}}==
<lang apl> bases←'CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATGCTCGTGCTTTCCAATTATGTAAGCGTTCC',
'GAGACGGGGTGGTCGATTCTGAGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGATGG',
'GACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTTCGATTCTGCTTATAACACTATGTTC',
'TTATGAAATGGATGTTCTGAGTTGGTCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTA',
'TATTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTATCGCCGCGATGCTCGGTTCGGA',
'CCGCCAAGCATCTGGCTCCACTGCTAGTGTCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGT',
'GTAGACGACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT'
{⍵,+/bases=⍵}¨∪bases[⍋∪bases]
A 129 C 97 G 119 T 155
≢bases
500</lang>
=={{header|Arturo}}==
Line 444 ⟶ 457:
450 : GACCGGGGAC TTGCATGATG GGAGCAGCTT TGTTAAACTA CGAACGTAAT
Total count => A: 129 T: 155 G: 119 C: 97</pre>
=={{header|AWK}}==
<lang AWK>
| |||