Bioinformatics/base count: Difference between revisions
Content added Content deleted
(add PicoLisp) |
|||
| Line 2,007: | Line 2,007: | ||
=={{header|PicoLisp}}== |
=={{header|PicoLisp}}== |
||
<lang PicoLisp>(let |
<lang PicoLisp>(let |
||
( |
(S (chop "CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG\ |
||
CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG\ |
CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG\ |
||
AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT\ |
AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT\ |
||
| Line 2,018: | Line 2,018: | ||
GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT" ) |
GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT" ) |
||
R ) |
R ) |
||
(for I |
(for I S (accu 'R I 1)) |
||
(for I R (println I)) |
(for I R (println I)) |
||
(println 'Total: (sum cdr R)) )</lang> |
(println 'Total: (sum cdr R)) )</lang> |
||