Data update

Task/Bioinformatics-base-count/DuckDB/bioinformatics-base-count.duckdb

@@ -0,0 +1,18 @@
+# Filter the contents of the file into a table (id, c) of uppercase letters
+create or replace table bases as (
+ select row_number() OVER () as id, c
+ from (select unnest(regexp_extract_all(content, '[A-Z]') ) as c
+       from read_text('rc-bioinformatics-base-count.txt') )
+);
+
+.print DNA sequence:
+with tbl as (select (id - 1 - mod(id - 1, 50)) as "offset", c from bases)
+  select "offset", string_agg(c, '') as sequence
+  from tbl
+  group by "offset"
+  order by "offset" ;
+
+.print
+.print Distribution of bases:
+select histogram(c), count(*) as N
+from bases ;

Task/Bioinformatics-base-count/PascalABC.NET/bioinformatics-base-count.pas

@@ -0,0 +1,14 @@
+## var DNA := '''
+CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG
+CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG
+AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT
+GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT
+CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG
+TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA
+TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT
+CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG
+TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC
+GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT
+''';DNA:=DNA.Remove(#13,#10);
+var t:=DNA.EachCount.OrderBy(x->x.key).Println.Sum(x->x.value);
+Print('total,',t);