Bioinformatics/base count: Difference between revisions
add PicoLisp
Catskill549 (talk | contribs) (added AWK) |
(add PicoLisp) |
||
Line 2,003:
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>
| |||