Bioinformatics/base count: Difference between revisions

m
→‎{{header|REXX}}: (internal only) changed the DNA sequence to lowercase; output DNA sequence is still uppercase.
m (→‎{{header|REXX}}: changed the REXX code to not raise the noValue condition.)
m (→‎{{header|REXX}}: (internal only) changed the DNA sequence to lowercase; output DNA sequence is still uppercase.)
Line 957:
<lang rexx>/*REXX program finds the number of each base in a DNA string (along with a total). */
parse arg dna .
if dna=='' | dna=="," then dna= 'CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATGcgtaaaaaattacaacgtcctttggctatctcttaaactcctgctaaatg' ,
'CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTGctcgtgctttccaattatgtaagcgttccgagacggggtggtcgattctg' ,
'AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGATaggacaaaggtcaagatggagcgcatcgaacgcaataaggatcatttgat' ,
'GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTTgggacgtttcgtcgacaaagtcttgtttcgagagtaacggctaccgtctt' ,
'CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGGcgattctgcttataacactatgttcttatgaaatggatgttctgagttgg' ,
'TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATAtcagtcccaatgtgcggggtttcttttagtacgtcgggagtggtattata' ,
'TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTATtttaatttttctatatagcgatctgtatttaagcaattcatttaggttat' ,
'CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTGcgccgcgatgctcggttcggaccgccaagcatctggctccactgctagtg' ,
'TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGACtcctaaatttgaatggcaaacacaaataagatttagcaattcgtgtagac' ,
'GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAATgaccggggacttgcatgatgggagcagctttgttaaactacgaacgtaat'
dna= space(dna, 0); upper dna /*elide blanks from DNA; uppercase it. */
say '────────length of the DNA string: ' length(dna)