Bioinformatics/base count: Difference between revisions
Content added Content deleted
m (→Python :: Functional: tidying) |
m (→{{header|REXX}}: changed the REXX code to not raise the noValue condition.) |
||
Line 957: | Line 957: | ||
<lang rexx>/*REXX program finds the number of each base in a DNA string (along with a total). */ |
<lang rexx>/*REXX program finds the number of each base in a DNA string (along with a total). */ |
||
parse arg dna . |
parse arg dna . |
||
if dna=='' | dna=="," then dna= CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG , |
if dna=='' | dna=="," then dna= 'CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG' , |
||
CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG , |
'CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG' , |
||
AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT , |
'AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT' , |
||
GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT , |
'GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT' , |
||
CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG , |
'CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG' , |
||
TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA , |
'TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA' , |
||
TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT , |
'TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT' , |
||
CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG , |
'CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG' , |
||
TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC , |
'TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC' , |
||
GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT |
'GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT' |
||
dna= space(dna, 0); upper dna /*elide blanks from DNA; uppercase it. */ |
dna= space(dna, 0); upper dna /*elide blanks from DNA; uppercase it. */ |
||
say '────────length of the DNA string: ' length(dna) |
say '────────length of the DNA string: ' length(dna) |