Initial data commit

Task/Bioinformatics-base-count/FutureBasic/bioinformatics-base-count.basic

@@ -0,0 +1,45 @@
+window 1, @"Bioinformatics/base count"
+
+local fn SubstringCount( string as CFStringRef, substring as CFStringRef ) as long
+  CFStringRef tempString = fn StringByReplacingOccurrencesOfString( string, substring, @"" )
+end fn = len(string) - len(tempString)
+
+void local fn DoIt
+  CFArrayRef  sequence
+  CFStringRef string
+  long        index = 0
+  long        a = 0, c = 0, g = 0, t = 0
+
+  sequence = @[@"CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG",
+  @"CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG",
+  @"AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT",
+  @"GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT",
+  @"CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG",
+  @"TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA",
+  @"TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT",
+  @"CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG",
+  @"TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC",
+  @"GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT"]
+
+  for string in sequence
+    printf @"%3ld: %@",index,string
+    index += len(string)
+    a += fn SubstringCount( string, @"A" )
+    c += fn SubstringCount( string, @"C" )
+    g += fn SubstringCount( string, @"G" )
+    t += fn SubstringCount( string, @"T" )
+  next
+
+  print
+
+  printf @"A:\t\t%3ld",a
+  printf @"C:\t\t%3ld",c
+  printf @"G:\t\t%3ld",g
+  printf @"T:\t\t%3ld",t
+  printf @"\t\t---"
+  printf @"Total:\t%ld",a+c+g+t
+end fn
+
+fn DoIt
+
+HandleEvents