Bioinformatics/base count: Difference between revisions
Content added Content deleted
Catskill549 (talk | contribs) (added AWK) |
(add PicoLisp) |
||
Line 2,003: | Line 2,003: | ||
Base counts: A:129, C:97, G:119, T:155, total:500 |
Base counts: A:129, C:97, G:119, T:155, total:500 |
||
</pre> |
|||
=={{header|PicoLisp}}== |
|||
<lang PicoLisp>(let |
|||
(Str (chop "CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG\ |
|||
CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG\ |
|||
AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT\ |
|||
GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT\ |
|||
CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG\ |
|||
TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA\ |
|||
TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT\ |
|||
CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG\ |
|||
TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC\ |
|||
GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT" ) |
|||
R ) |
|||
(for I Str (accu 'R I 1)) |
|||
(for I R (println I)) |
|||
(println 'Total: (sum cdr R)) )</lang> |
|||
{{out}} |
|||
<pre> |
|||
("A" . 129) |
|||
("T" . 155) |
|||
("G" . 119) |
|||
("C" . 97) |
|||
Total: 500 |
|||
</pre> |
</pre> |
||