Data update

2026-02-01 16:33:20 -08:00 · 2026-02-01 16:33:20 -08:00 · 4bb20c9b71
commit 4bb20c9b71
parent 5150844a7d
7735 changed files with 38060 additions and 199180 deletions
--- a/Task/Bioinformatics-base-count/00-TASK.txt
+++ b/Task/Bioinformatics-base-count/00-TASK.txt
@ -1,22 +1 @@
-Given this string representing ordered DNA bases:
-<pre>
-CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG
-CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG
-AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT
-GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT
-CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG
-TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA
-TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT
-CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG
-TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC
-GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT
-</pre>
-
-
-;Task:
-:* &nbsp; "Pretty print" the sequence followed by a summary of the counts of each of the bases: &nbsp; ('''A''', '''C''', '''G''', and '''T''') &nbsp; in the sequence 
-:* &nbsp; print the total count of each base in the string.
-
-
-{{Template:Strings}}
-<br><br>
+#REDIRECT [[Bioinformatics/Base count]]
--- a/Task/Bioinformatics-base-count/11l/bioinformatics-base-count.11l
+++ b/Task/Bioinformatics-base-count/11l/bioinformatics-base-count.11l
@ -1,33 +0,0 @@
-F basecount(dna)
-   DefaultDict[Char, Int] d
-   L(c) dna
-      d[c]++
-   R sorted(d.items())
-
-F seq_split(dna, n = 50)
-   R (0 .< dna.len).step(n).map(i -> @dna[i .+ @n])
-
-F seq_pp(dna, n = 50)
-   L(part) seq_split(dna, n)
-      print(‘#5: #.’.format(L.index * n, part))
-   print("\n  BASECOUNT:")
-   V tot = 0
-   L(base, count) basecount(dna)
-      print(‘    #3: #.’.format(base, count))
-      tot += count
-   V (base, count) = (‘TOT’, tot)
-   print(‘    #3= #.’.format(base, count))
-
-print(‘SEQUENCE:’)
-V sequence = "\
-CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG\
-CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG\
-AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT\
-GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT\
-CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG\
-TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA\
-TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT\
-CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG\
-TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC\
-GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT"
-seq_pp(sequence)
--- a/Task/Bioinformatics-base-count/AArch64-Assembly/bioinformatics-base-count.aarch64
+++ b/Task/Bioinformatics-base-count/AArch64-Assembly/bioinformatics-base-count.aarch64
@ -1,239 +0,0 @@
-/* ARM assembly AARCH64 Raspberry PI 3B */
-/*  program cptAdn64.s   */
-
-/************************************/
-/* Constantes                       */
-/************************************/
-/* for this file see task include a file in language AArch64 assembly*/
-.include "../includeConstantesARM64.inc"
-.equ LIMIT,    30
-.equ SHIFT,     8
-
-//.include "../../ficmacros64.inc"    // use for debugging
-/************************************/
-/* Initialized data                 */
-/************************************/
-.data
-szMessResult:         .asciz "Result: "
-szDNA1:               .ascii "CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG"
-                      .ascii "CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG"
-                      .ascii "AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT"
-                      .ascii "GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT"
-                      .ascii "CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG"
-                      .ascii "TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA"
-                      .ascii "TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT"
-                      .ascii "CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG"
-                      .ascii "TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC"
-                      .asciz "GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT"
-
-szCarriageReturn:     .asciz "\n"
-szMessStart:          .asciz "Program 64 bits start.\n"
-szMessCounterA:       .asciz "Base A : "
-szMessCounterC:       .asciz "Base C : "
-szMessCounterG:       .asciz "Base G : "
-szMessCounterT:       .asciz "Base T : "
-szMessTotal:          .asciz "Total  : "
-sPrintLine:           .fill LIMIT + SHIFT + 2,1,' '  // init line with spaces
-/************************************/
-/* UnInitialized data               */
-/************************************/
-.bss
-sZoneConv:            .skip 24
-/************************************/
-/*  code section                    */
-/************************************/
-.text
-.global main
-main:                      // entry of program
-    ldr x0,qAdrszMessStart
-    bl affichageMess
-
-    ldr x0,qAdrszDNA1
-    bl printDNA
-    ldr x0,qAdrszDNA1
-    bl countBase
-
-
-100:                       // standard end of the program
-    mov x0, #0             // return code
-    mov x8, #EXIT          // request to exit program
-    svc 0                  // perform the system call
-qAdrszDNA1:               .quad  szDNA1
-qAdrsZoneConv:            .quad  sZoneConv
-qAdrszMessResult:         .quad  szMessResult
-qAdrszCarriageReturn:     .quad  szCarriageReturn
-qAdrszMessStart:          .quad  szMessStart
-/***************************************************/
-/*   count dna line and print                  */
-/***************************************************/
-/* x0 contains dna string address */
-printDNA:
-    stp x1,lr,[sp,-16]!
-    stp x2,x3,[sp,-16]!
-    stp x4,x5,[sp,-16]!
-    stp x6,x7,[sp,-16]!
-    stp x8,x9,[sp,-16]!
-    mov x8,x0            // save address
-    mov x4,#0            // counter
-    mov x3,#0            // index string
-    mov x4,#0            // byte line counter
-    mov x5,#1            // start line value
-    ldr x7,qAdrsPrintLine
-    ldr x9,qAdrsZoneConv
-1:
-    ldrb w6,[x8,x3]      // load byte of dna
-    cmp x6,#0            // end string ?
-    beq 4f               // yes -> end
-    add x1,x7,#SHIFT
-    strb w6,[x1,x4]      // store byte in display line
-    add x4,x4,#1         // increment index line
-    cmp x4,#LIMIT        // end line ?
-    blt 3f
-    mov x0,x5            // convert decimal counter base
-    mov x1,x9
-    bl conversion10
-    mov x2,xzr
-2:                       // copy decimal conversion in display line
-    ldrb w6,[x9,x2]
-    strb w6,[x7,x2]
-    add x2,x2,1
-    cmp x2,x0
-    blt 2b
-
-    mov x0,#0            // Zero final
-    add x1,x7,#LIMIT
-    add x1,x1,#SHIFT + 1
-    strb w0,[x1]
-    mov x0,x7            // line display
-    bl affichageMess
-    ldr x0,qAdrszCarriageReturn
-    bl affichageMess
-    add x5,x5,#LIMIT     // add line size to counter
-    mov x4,#0            // and init line index
-3:
-    add x3,x3,#1         // increment index string
-    b 1b                 // and loop
-4:                       // display end line if line contains base
-    cmp x4,#0
-    beq 100f
-    mov x0,x5
-    mov x1,x9
-    bl conversion10
-    mov x2,xzr
-5:                       // copy decimal conversion in display line
-    ldrb w6,[x9,x2]
-    strb w6,[x7,x2]
-    add x2,x2,1
-    cmp x2,x0
-    blt 5b
-
-    mov x0,#0            // Zero final
-    add x1,x7,x4
-    add x1,x1,#SHIFT
-    strb w0,[x1]
-    mov x0,x7            // last line display
-    bl affichageMess
-    ldr x0,qAdrszCarriageReturn
-    bl affichageMess
- 100:
-    ldp x8,x9,[sp],16
-    ldp x6,x7,[sp],16
-    ldp x4,x5,[sp],16
-    ldp x2,x3,[sp],16
-    ldp x1,lr,[sp],16
-    ret
- qAdrsPrintLine:      .quad  sPrintLine
- /***************************************************/
-/*   count bases                                    */
-/***************************************************/
-/* x0 contains dna string address */
-countBase:
-    stp x1,lr,[sp,-16]!
-    stp x2,x3,[sp,-16]!
-    stp x4,x5,[sp,-16]!
-    stp x6,x7,[sp,-16]!
-    mov x2,#0            // string index
-    mov x3,#0            // A counter
-    mov x4,#0            // C counter
-    mov x5,#0            //  G counter
-    mov x6,#0            //  T counter
-1:
-    ldrb w1,[x0,x2]      // load byte of dna
-    cmp x1,#0            // end string ?
-    beq 2f
-    cmp x1,#'A'
-    cinc x3,x3,eq
-    cmp x1,#'C'
-    cinc x4,x4,eq
-    cmp x1,#'G'
-    cinc x5,x5,eq
-    cmp x1,#'T'
-    cinc x6,x6,eq
-
-    add x2,x2,#1
-    b 1b
-2:
-    mov x0,x3            // convert decimal counter A
-    ldr x1,qAdrsZoneConv
-    bl conversion10
-    ldr x0,qAdrszMessCounterA
-    bl affichageMess
-    ldr x0,qAdrsZoneConv
-    bl affichageMess
-    ldr x0,qAdrszCarriageReturn
-    bl affichageMess
-    mov x0,x4            // convert decimal counter C
-    ldr x1,qAdrsZoneConv
-    bl conversion10
-    ldr x0,qAdrszMessCounterC
-    bl affichageMess
-    ldr x0,qAdrsZoneConv
-    bl affichageMess
-    ldr x0,qAdrszCarriageReturn
-    bl affichageMess
-    mov x0,x5            // convert decimal counter G
-    ldr x1,qAdrsZoneConv
-    bl conversion10
-    ldr x0,qAdrszMessCounterG
-    bl affichageMess
-    ldr x0,qAdrsZoneConv
-    bl affichageMess
-    ldr x0,qAdrszCarriageReturn
-    bl affichageMess
-    mov x0,x6            // convert decimal counter T
-    ldr x1,qAdrsZoneConv
-    bl conversion10
-    ldr x0,qAdrszMessCounterT
-    bl affichageMess
-    ldr x0,qAdrsZoneConv
-    bl affichageMess
-    ldr x0,qAdrszCarriageReturn
-    bl affichageMess
-
-    add x0,x3,x4            // convert decimal total
-    add x0,x0,x5
-    add x0,x0,x6
-    ldr x1,qAdrsZoneConv
-    bl conversion10
-    ldr x0,qAdrszMessTotal
-    bl affichageMess
-    ldr x0,qAdrsZoneConv
-    bl affichageMess
-    ldr x0,qAdrszCarriageReturn
-    bl affichageMess
-100:
-    ldp x6,x7,[sp],16
-    ldp x4,x5,[sp],16
-    ldp x2,x3,[sp],16
-    ldp x1,lr,[sp],16                 // TODO: retaur à completer
-    ret
-qAdrszMessCounterA:     .quad  szMessCounterA
-qAdrszMessCounterC:     .quad  szMessCounterC
-qAdrszMessCounterG:     .quad  szMessCounterG
-qAdrszMessCounterT:     .quad  szMessCounterT
-qAdrszMessTotal:        .quad  szMessTotal
-/***************************************************/
-/*      ROUTINES INCLUDE                           */
-/***************************************************/
-/* for this file see task include a file in language AArch64 assembly*/
-.include "../includeARM64.inc"
--- a/Task/Bioinformatics-base-count/ALGOL-68/bioinformatics-base-count.alg
+++ b/Task/Bioinformatics-base-count/ALGOL-68/bioinformatics-base-count.alg
@ -1,114 +0,0 @@
-BEGIN # count DNA bases in a sequence                                        #
-    # returns an array of counts of the characters in s that are in c        #
-    #         an extra final element holds the count of characters not in c  #
-    PRIO COUNT = 9;
-    OP   COUNT = ( STRING s, STRING c )[]INT:
-         BEGIN
-            [ LWB c : UPB c + 1 ]INT results; # extra element for "other"    #
-            [ 0     : 255       ]INT counts;  # only counts ASCII characters #
-            FOR i FROM LWB counts  TO UPB counts  DO counts[  i ] := 0 OD;
-            FOR i FROM LWB results TO UPB results DO results[ i ] := 0 OD;
-            # count the occurances of each ASCII character in s              #
-            FOR i FROM LWB s TO UPB s DO
-                IF INT ch pos = ABS s[ i ];
-                   ch pos >= LWB counts AND ch pos <= UPB counts
-                THEN
-                    # have a character we can count                          #
-                    counts[ ch pos ] +:= 1
-                ELSE
-                    # not an ASCII character ?                               #
-                    results[ UPB results ] +:= 1
-                FI
-            OD;
-            # return the counts of the required characters                   #
-            # set the results for the expected characters and clear their    #
-            # counts so we can count the "other" characters                  #
-            FOR i FROM LWB results TO UPB results - 1 DO
-                IF INT ch pos = ABS c[ i ];
-                   ch pos >= LWB counts AND ch pos <= UPB counts
-                THEN
-                    results[ i ]     := counts[ ch pos ];
-                    counts[ ch pos ] := 0
-                FI
-            OD;
-            # count the "other" characters                                   #
-            FOR i FROM LWB counts TO UPB counts DO
-                IF counts[ i ] /= 0 THEN
-                    results[ UPB results ] +:= counts[ i ]
-                FI
-            OD;
-            results
-         END; # COUNT #
-    # returns the combined counts of the characters in the elements of s     #
-    #         that are in c                                                  #
-    #         an extra final element holds the count of characters not in c  #
-    OP   COUNT = ( []STRING s, STRING c )[]INT:
-         BEGIN
-            [ LWB c : UPB c + 1 ]INT results;
-            FOR i FROM LWB results TO UPB results DO results[ i ] := 0 OD;
-            FOR i FROM LWB s TO UPB s DO
-                []INT counts = s[ i ] COUNT c;
-                FOR j FROM LWB results TO UPB results DO
-                   results[ j ] +:= counts[ j ]
-                OD
-            OD;
-            results
-         END; # COUNT #
-    # returns the length of s                                                #
-    OP   LEN = ( STRING s )INT: ( UPB s - LWB s ) + 1;
-
-    BEGIN # task                                                             #
-        # count the bases in the required sequence                           #
-        []STRING seq = ( "CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG"
-                       , "CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG"
-                       , "AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT"
-                       , "GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT"
-                       , "CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG"
-                       , "TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA"
-                       , "TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT"
-                       , "CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG"
-                       , "TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC"
-                       , "GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT"
-                       );
-        STRING bases  = "ATCG";
-        []INT  counts = seq COUNT bases;
-        # print the sequence with leading character positions                #
-        # find the overall length of the sequence                            #
-        INT   seq len := 0;
-        FOR i FROM LWB seq TO UPB seq DO
-            seq len +:= LEN seq[ i ]
-        OD;
-        # compute the minimum field width required for the positions         #
-        INT   s len   := seq len;
-        INT   width   := 1;
-        WHILE  s len >= 10 DO
-            width +:= 1;
-            s len OVERAB 10
-        OD;
-        # show the sequence                                                  #
-        print( ( "Sequence:", newline, newline ) );
-        INT start pos := 0;
-        FOR i FROM LWB seq TO UPB seq DO
-            print( ( " ", whole( start pos, - width ), " :", seq[ i ], newline ) );
-            start pos +:= LEN seq[ i ]
-        OD;
-        # show the base counts                                               #
-        print( ( newline, "Bases: ", newline, newline ) );
-        INT total := 0;
-        FOR i FROM LWB bases TO UPB bases DO
-            print( ( "  ", bases[ i ], "  : ", whole( counts[ i ], - width ), newline ) );
-            total +:= counts[ i ]
-        OD;
-        # show the count of other characters (invalid bases)                #
-        #- if there are any                                                 #
-        IF INT others = UPB counts;
-           counts[ others ] /= 0
-        THEN
-            # there were characters other than the bases                    #
-            print( ( newline, "Other: ", whole( counts[ others ], - width ), newline, newline ) );
-            total +:= counts[ UPB counts ]
-        FI;
-        # totals                                                            #
-        print( ( newline, "Total: ", whole( total, - width ), newline ) )
-    END
-END
--- a/Task/Bioinformatics-base-count/APL/bioinformatics-base-count.apl
+++ b/Task/Bioinformatics-base-count/APL/bioinformatics-base-count.apl
@ -1,10 +0,0 @@
-      bases←'CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATGCTCGTGCTTTCCAATTATGTAAGCGTTCC',
-      'GAGACGGGGTGGTCGATTCTGAGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGATGG',
-      'GACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTTCGATTCTGCTTATAACACTATGTTC',
-      'TTATGAAATGGATGTTCTGAGTTGGTCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTA',
-      'TATTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTATCGCCGCGATGCTCGGTTCGGA',
-      'CCGCCAAGCATCTGGCTCCACTGCTAGTGTCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGT',
-      'GTAGACGACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT'
-      50 {w←⍺⋄s←⍵⋄{(w×1-⍨⍵),((w÷⍨≢s) w ⍴s)[⍵;]} ⍳(≢s)÷⍺} bases
-      {⍵,':',+/bases=⍵}¨∪bases[⍋∪bases]
-      'Total:',≢bases
--- a/Task/Bioinformatics-base-count/ARM-Assembly/bioinformatics-base-count.arm
+++ b/Task/Bioinformatics-base-count/ARM-Assembly/bioinformatics-base-count.arm
@ -1,205 +0,0 @@
-/* ARM assembly Raspberry PI  */
-/*  program cptAdn.s   */
-
-/************************************/
-/* Constantes                       */
-/************************************/
-/* for this file see task include a file in language ARM assembly*/
-.include "../constantes.inc"
-.equ LIMIT,    50
-.equ SHIFT,     11
-
-/************************************/
-/* Initialized data                 */
-/************************************/
-.data
-szMessResult:         .asciz "Result: "
-szDNA1:               .ascii "CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG"
-                      .ascii "CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG"
-                      .ascii "AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT"
-                      .ascii "GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT"
-                      .ascii "CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG"
-                      .ascii "TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA"
-                      .ascii "TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT"
-                      .ascii "CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG"
-                      .ascii "TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC"
-                      .asciz "GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT"
-
-szCarriageReturn:     .asciz "\n"
-szMessStart:          .asciz "Program 32 bits start.\n"
-szMessCounterA:       .asciz "Base A : "
-szMessCounterC:       .asciz "Base C : "
-szMessCounterG:       .asciz "Base G : "
-szMessCounterT:       .asciz "Base T : "
-szMessTotal:          .asciz "Total  : "
-/************************************/
-/* UnInitialized data               */
-/************************************/
-.bss
-sZoneConv:            .skip 24
-sPrintLine:           .skip LIMIT + SHIFT + 2
-/************************************/
-/*  code section                    */
-/************************************/
-.text
-.global main
-main:                      @ entry of program
-    ldr r0,iAdrszMessStart
-    bl affichageMess
-
-    ldr r0,iAdrszDNA1
-    bl printDNA
-    ldr r0,iAdrszDNA1
-    bl countBase
-
-
-100:                       @ standard end of the program
-    mov r0, #0             @ return code
-    mov r7, #EXIT          @ request to exit program
-    svc 0                  @ perform the system call
-iAdrszDNA1:               .int szDNA1
-iAdrsZoneConv:            .int sZoneConv
-iAdrszMessResult:         .int szMessResult
-iAdrszCarriageReturn:     .int szCarriageReturn
-iAdrszMessStart:          .int szMessStart
-/***************************************************/
-/*   count dna line and print                  */
-/***************************************************/
-/* r0 contains dna string address */
-printDNA:
-    push {r1-r8,lr}      @ save registers
-    mov r8,r0            @ save address
-    mov r4,#0            @ counter
-    mov r3,#0            @ index stone
-    mov r4,#0
-    mov r5,#1
-    ldr r7,iAdrsPrintLine
-1:
-    ldrb r6,[r8,r3]      @ load byte of dna
-    cmp r6,#0            @ end string ?
-    beq 4f
-    add r1,r7,#SHIFT
-    strb r6,[r1,r4]      @ store byte in display line
-    add r4,r4,#1         @ increment index line
-    cmp r4,#LIMIT        @ end line ?
-    blt 3f
-    mov r0,r5            @ convert decimal counter base
-    mov r1,r7
-    bl conversion10
-    mov r0,#0            @ Zero final
-    add r1,r7,#LIMIT
-    add r1,r1,#SHIFT + 1
-    strb r0,[r1]
-    mov r0,r7            @ line display
-    bl affichageMess
-    ldr r0,iAdrszCarriageReturn
-    bl affichageMess
-    add r5,r5,#LIMIT     @ add line size to counter
-    mov r4,#0            @ and init line index
-3:
-    add r3,r3,#1         @ increment index string
-    b 1b                 @ and loop
-4:                       @ display end line if line contains base
-    cmp r4,#0
-    beq 100f
-    mov r0,r5
-    mov r1,r7
-    bl conversion10
-    mov r0,#0               @ Zero final
-    add r1,r7,r4
-    add r1,r1,#SHIFT
-    strb r0,[r1]
-    mov r0,r7               @ last line display
-    bl affichageMess
-    ldr r0,iAdrszCarriageReturn
-    bl affichageMess
- 100:
-    pop {r1-r8,pc}
- iAdrsPrintLine:      .int sPrintLine
- /***************************************************/
-/*   count bases                                    */
-/***************************************************/
-/* r0 contains dna string address */
-countBase:
-    push {r1-r6,lr}      @ save registers
-    mov r2,#0            @ string index
-    mov r3,#0            @ A counter
-    mov r4,#0            @ C counter
-    mov r5,#0            @  G counter
-    mov r6,#0            @  T counter
-1:
-    ldrb r1,[r0,r2]      @ load byte of dna
-    cmp r1,#0            @ end string ?
-    beq 2f
-    cmp r1,#'A'
-    addeq r3,r3,#1
-    cmp r1,#'C'
-    addeq r4,r4,#1
-    cmp r1,#'G'
-    addeq r5,r5,#1
-    cmp r1,#'T'
-    addeq r6,r6,#1
-
-    add r2,r2,#1
-    b 1b
-2:
-    mov r0,r3            @ convert decimal counter A
-    ldr r1,iAdrsZoneConv
-    bl conversion10
-    ldr r0,iAdrszMessCounterA
-    bl affichageMess
-    ldr r0,iAdrsZoneConv
-    bl affichageMess
-    ldr r0,iAdrszCarriageReturn
-    bl affichageMess
-    mov r0,r4            @ convert decimal counter C
-    ldr r1,iAdrsZoneConv
-    bl conversion10
-    ldr r0,iAdrszMessCounterC
-    bl affichageMess
-    ldr r0,iAdrsZoneConv
-    bl affichageMess
-    ldr r0,iAdrszCarriageReturn
-    bl affichageMess
-    mov r0,r5            @ convert decimal counter G
-    ldr r1,iAdrsZoneConv
-    bl conversion10
-    ldr r0,iAdrszMessCounterG
-    bl affichageMess
-    ldr r0,iAdrsZoneConv
-    bl affichageMess
-    ldr r0,iAdrszCarriageReturn
-    bl affichageMess
-    mov r0,r6            @ convert decimal counter T
-    ldr r1,iAdrsZoneConv
-    bl conversion10
-    ldr r0,iAdrszMessCounterT
-    bl affichageMess
-    ldr r0,iAdrsZoneConv
-    bl affichageMess
-    ldr r0,iAdrszCarriageReturn
-    bl affichageMess
-
-    add r0,r3,r4            @ convert decimal total
-    add r0,r0,r5
-    add r0,r0,r6
-    ldr r1,iAdrsZoneConv
-    bl conversion10
-    ldr r0,iAdrszMessTotal
-    bl affichageMess
-    ldr r0,iAdrsZoneConv
-    bl affichageMess
-    ldr r0,iAdrszCarriageReturn
-    bl affichageMess
-100:
-    pop {r1-r6,pc}
-iAdrszMessCounterA:     .int szMessCounterA
-iAdrszMessCounterC:     .int szMessCounterC
-iAdrszMessCounterG:     .int szMessCounterG
-iAdrszMessCounterT:     .int szMessCounterT
-iAdrszMessTotal:        .int szMessTotal
-/***************************************************/
-/*      ROUTINES INCLUDE                           */
-/***************************************************/
-/* for this file see task include a file in language ARM assembly*/
-.include "../affichage.inc"
--- a/Task/Bioinformatics-base-count/AWK/bioinformatics-base-count.awk
+++ b/Task/Bioinformatics-base-count/AWK/bioinformatics-base-count.awk
@ -1,42 +0,0 @@
-# syntax: GAWK -f BIOINFORMATICS_BASE_COUNT.AWK
-# converted from FreeBASIC
-#
-# sorting:
-#   PROCINFO["sorted_in"] is used by GAWK
-#   SORTTYPE is used by Thompson Automation's TAWK
-#
-BEGIN {
-    dna = "CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG" \
-          "CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG" \
-          "AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT" \
-          "GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT" \
-          "CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG" \
-          "TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA" \
-          "TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT" \
-          "CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG" \
-          "TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC" \
-          "GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT"
-    curr = first = 1
-    while (curr <= length(dna)) {
-      curr_base = substr(dna,curr,1)
-      base_arr[curr_base]++
-      rec = sprintf("%s%s",rec,curr_base)
-      curr++
-      if (curr % 10 == 1) {
-        rec = sprintf("%s ",rec)
-      }
-      if (curr % 50 == 1) {
-        printf("%3d-%3d: %s\n",first,curr-1,rec)
-        rec = ""
-        first = curr
-      }
-    }
-    PROCINFO["sorted_in"] = "@ind_str_asc" ; SORTTYPE = 1
-    printf("\nBase count\n")
-    for (i in base_arr) {
-      printf("%s %8d\n",i,base_arr[i])
-      total += base_arr[i]
-    }
-    printf("%10d total\n",total)
-    exit(0)
-}
--- a/Task/Bioinformatics-base-count/Action-/bioinformatics-base-count.action
+++ b/Task/Bioinformatics-base-count/Action-/bioinformatics-base-count.action
@ -1,67 +0,0 @@
-DEFINE PTR="CARD"
-
-PROC PrettyPrint(PTR ARRAY data INT count,gsize,gcount)
-  INT index,item,i,ingroup,group,a,t,c,g
-  CHAR ARRAY s
-  CHAR ch
-
-  index=0 item=0 i=1 ingroup=0 group=0
-  a=0 t=0 g=0 c=0
-  s=data(0)
-  DO
-    WHILE i>s(0)
-    DO
-      i=1 item==+1
-      IF item>=count THEN EXIT FI
-      s=data(item)
-    OD
-    IF item>=count THEN EXIT FI
-
-    index==+1
-    IF group=0 AND ingroup=0 THEN
-      IF index<10 THEN Put(32) FI
-      IF index<100 THEN Put(32) FI
-      PrintI(index) Print(":")
-    FI
-    IF ingroup=0 THEN Put(32) FI
-    ch=s(i) i==+1
-    Put(ch)
-    IF ch='A THEN a==+1
-    ELSEIF ch='T THEN t==+1
-    ELSEIF ch='C THEN c==+1
-    ELSEIF ch='G THEN g==+1 FI
-    ingroup==+1
-    IF ingroup>=gsize THEN
-      ingroup=0 group==+1
-      IF group>=gcount THEN
-        group=0
-      FI
-    FI
-  OD
-  PrintF("%E%EBases: A:%I, T:%I, C:%I, G:%I%E",a,t,c,g)
-  PrintF("%ETotal: %I",a+t+g+c)
-RETURN
-
-PROC Main()
-  PTR ARRAY data(10)
-  BYTE LMARGIN=$52,oldLMARGIN
-
-  oldLMARGIN=LMARGIN
-  LMARGIN=0 ;remove left margin on the screen
-  Put(125) PutE() ;clear the screen
-
-  data(0)="CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG"
-  data(1)="CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG"
-  data(2)="AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT"
-  data(3)="GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT"
-  data(4)="CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG"
-  data(5)="TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA"
-  data(6)="TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT"
-  data(7)="CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG"
-  data(8)="TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC"
-  data(9)="GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT"
-
-  PrettyPrint(data,10,5,6)
-
-  LMARGIN=oldLMARGIN ;restore left margin on the screen
-RETURN
--- a/Task/Bioinformatics-base-count/Ada/bioinformatics-base-count.ada
+++ b/Task/Bioinformatics-base-count/Ada/bioinformatics-base-count.ada
@ -1,64 +0,0 @@
-with Ada.Text_Io;
-
-procedure Base_Count is
-
-   type Sequence is new String;
-   Test : constant Sequence :=
-     "CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG" &
-     "CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG" &
-     "AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT" &
-     "GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT" &
-     "CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG" &
-     "TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA" &
-     "TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT" &
-     "CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG" &
-     "TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC" &
-     "GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT";
-
-   Line_Width : constant := 70;
-
-   procedure Put (Seq : Sequence) is
-      use Ada.Text_Io;
-      package Position_Io is new Ada.Text_Io.Integer_Io (Natural);
-      First : Natural := Seq'First;
-      Last  : Natural;
-   begin
-      loop
-         Last := Natural'Min (Seq'Last, First + Line_Width - 1);
-         Position_Io.Put (First, Width => 3);
-         Put (String'(".."));
-         Position_Io.Put (Last, Width => 3);
-         Put (String'("  "));
-         Put (String (Seq (First .. Last)));
-         New_Line;
-         exit when Last = Seq'Last;
-         First := First + Line_Width;
-      end loop;
-   end Put;
-
-   procedure Count (Seq : Sequence) is
-      use Ada.Text_Io;
-      A_Count, C_Count : Natural := 0;
-      G_Count, T_Count : Natural := 0;
-   begin
-      for B of Seq loop
-         case B is
-            when 'A' =>  A_Count := A_Count + 1;
-            when 'C' =>  C_Count := C_Count + 1;
-            when 'G' =>  G_Count := G_Count + 1;
-            when 'T' =>  T_Count := T_Count + 1;
-            when others =>
-               raise Constraint_Error;
-         end case;
-      end loop;
-      Put_Line ("A: " & A_Count'Image);
-      Put_Line ("C: " & C_Count'Image);
-      Put_Line ("G: " & G_Count'Image);
-      Put_Line ("T: " & T_Count'Image);
-      Put_Line ("Total: " & Seq'Length'Image);
-   end Count;
-
-begin
-   Put (Test);
-   Count (Test);
-end Base_Count;
--- a/Task/Bioinformatics-base-count/Arturo/bioinformatics-base-count-1.arturo
+++ b/Task/Bioinformatics-base-count/Arturo/bioinformatics-base-count-1.arturo
@ -1,33 +0,0 @@
-dna: {
-    CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG
-    CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG
-    AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT
-    GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT
-    CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG
-    TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA
-    TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT
-    CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG
-    TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC
-    GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT
-}
-
-prettyPrint: function [in][
-    count: #[ A: 0, T: 0, G: 0, C: 0 ]
-
-    loop.with:'i split.lines in 'line [
-        prints [pad to :string i*50 3 ":"]
-        print split.every:10 line
-
-        loop split line 'ch [
-            case [ch=]
-                when? -> "A" -> count\A: count\A + 1
-                when? -> "T" -> count\T: count\T + 1
-                when? -> "G" -> count\G: count\G + 1
-                when? -> "C" -> count\C: count\C + 1
-                else []
-        ]
-    ]
-    print ["Total count => A:" count\A, "T:" count\T "G:" count\G "C:" count\C]
-]
-
-prettyPrint dna
--- a/Task/Bioinformatics-base-count/Arturo/bioinformatics-base-count-2.arturo
+++ b/Task/Bioinformatics-base-count/Arturo/bioinformatics-base-count-2.arturo
@ -1,20 +0,0 @@
-test := "CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATGCTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTGAGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGATGGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTTCGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGGTCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATATTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTATCGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTGTCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGACGACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT"
-tek := 1, bases := " "
-loop,parse,test
-	{
-	if (A_LoopField = "A")
-		countA += 1
-	else if (A_LoopField = "C")
-		countC += 1
-	else if (A_LoopField = "G")
-		countG += 1
-	else if (A_LoopField = "T")
-		countT += 1
-	if (mod(a_index,50) = 0)
-		{
-			bases .= a_index . " -> " . substr(test,tek,50) . "`n"
-			tek += 50
-		}
-	}
-MsgBox % bases "`nA: " countA "`nC: " countC "`nG: " countG "`nT: " countT "`nTotal = " countA+countC+countG+countT
-ExitApp
--- a/Task/Bioinformatics-base-count/BBC-BASIC/bioinformatics-base-count.basic
+++ b/Task/Bioinformatics-base-count/BBC-BASIC/bioinformatics-base-count.basic
@ -1,27 +0,0 @@
-      DNA$="CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG" +\
-      \    "CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG" +\
-      \    "AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT" +\
-      \    "GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT" +\
-      \    "CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG" +\
-      \    "TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA" +\
-      \    "TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT" +\
-      \    "CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG" +\
-      \    "TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC" +\
-      \    "GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT" + CHR$0
-
-      @%=3      : REM Width of the print zone
-      P%=!^DNA$ : REM Address of string in memory
-      WHILE ?P%
-        IF I% MOD 50 == 0 PRINT 'I% ": ";
-        VDU ?P% : REM Output ASCII value at address P%
-        CASE ?P% OF
-          WHEN ASC"A" A+=1
-          WHEN ASC"C" C+=1
-          WHEN ASC"G" G+=1
-          WHEN ASC"T" T+=1
-        ENDCASE
-        I%+=1
-        P%+=1
-      ENDWHILE
-      PRINT '' "A: " A ' "C: " C  ' "G: " G ' "T: " T
-      PRINT "Total: " A + C + G + T
--- a/Task/Bioinformatics-base-count/C++/bioinformatics-base-count.cpp
+++ b/Task/Bioinformatics-base-count/C++/bioinformatics-base-count.cpp
@ -1,63 +0,0 @@
-#include <map>
-#include <string>
-#include <iostream>
-#include <iomanip>
-
-const std::string DEFAULT_DNA = "CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG"
-                                "CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG"
-                                "AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT"
-                                "GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT"
-                                "CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG"
-                                "TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA"
-                                "TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT"
-                                "CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG"
-                                "TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC"
-                                "GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT";
-
-class DnaBase {
-public:
-    DnaBase(const std::string& dna = DEFAULT_DNA, int width = 50) : genome(dna), displayWidth(width) {
-        // Map each character to a counter
-        for (auto elm : dna) {
-            if (count.find(elm) == count.end())
-                count[elm] = 0;
-            ++count[elm];
-        }
-    }
-
-    void viewGenome() {
-        std::cout << "Sequence:" << std::endl;
-        std::cout << std::endl;
-        int limit = genome.size() / displayWidth;
-        if (genome.size() % displayWidth != 0)
-            ++limit;
-
-        for (int i = 0; i < limit; ++i) {
-            int beginPos = i * displayWidth;
-            std::cout << std::setw(4) << beginPos << "  :" << std::setw(4) << genome.substr(beginPos, displayWidth) << std::endl;
-        }
-        std::cout << std::endl;
-        std::cout << "Base Count" << std::endl;
-        std::cout << "----------" << std::endl;
-        std::cout << std::endl;
-        int total = 0;
-        for (auto elm : count) {
-            std::cout << std::setw(4) << elm.first << " : " << elm.second << std::endl;
-            total += elm.second;
-        }
-        std::cout << std::endl;
-        std::cout << "Total: " << total << std::endl;
-    }
-
-private:
-    std::string genome;
-    std::map<char, int> count;
-    int displayWidth;
-};
-
-int main(void) {
-    auto d = new DnaBase();
-    d->viewGenome();
-    delete d;
-    return 0;
-}
--- a/Task/Bioinformatics-base-count/C/bioinformatics-base-count.c
+++ b/Task/Bioinformatics-base-count/C/bioinformatics-base-count.c
@ -1,36 +0,0 @@
-#include <stdio.h>
-
-int main(void) {
-    char dna[] = "CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG"
-                "CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG"
-                "AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT"
-                "GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT"
-                "CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG"
-                "TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA"
-                "TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT"
-                "CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG"
-                "TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC"
-                "GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT";
-    int c_count = 0, t_count = 0, a_count = 0, g_count = 0, total;
-
-    for (total = 0; dna[total]; total++) {
-        if (total % 50 == 0)
-            printf("\n%3d - %3d: %c", total + 1, total + 50, dna[total]);
-        else if (total % 5 == 0)
-            printf(" %c", dna[total]);
-        else
-            printf("%c", dna[total]);
-
-        switch (dna[total]) {
-            case 'C': c_count++; break;
-            case 'T': t_count++; break;
-            case 'A': a_count++; break;
-            case 'G': g_count++; break;
-        }
-    }
-
-    printf("\n\nC count: %3d\nT count: %3d\nA count: %3d\nG count: %3d\n  Total: %3d\n\n",
-            c_count, t_count, a_count, g_count, total);
-
-    return 0;
-}
--- a/Task/Bioinformatics-base-count/Delphi/bioinformatics-base-count.pas
+++ b/Task/Bioinformatics-base-count/Delphi/bioinformatics-base-count.pas
@ -1,89 +0,0 @@
-program base_count;
-
-{$APPTYPE CONSOLE}
-
-uses
-  System.SysUtils,
-  Generics.Collections,
-  System.Console;
-
-const
-  DNA = 'CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG' +
-    'CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG' +
-    'AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT' +
-    'GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT' +
-    'CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG' +
-    'TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA' +
-    'TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT' +
-    'CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG' +
-    'TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC' +
-    'GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT';
-
-procedure Println(code: ansistring);
-var
-  c: ansichar;
-begin
-  console.ForegroundColor := TConsoleColor.Black;
-  for c in code do
-  begin
-    case c of
-      'A':
-        console.BackgroundColor := TConsoleColor.Red;
-      'C':
-        console.BackgroundColor := TConsoleColor.Blue;
-      'T':
-        console.BackgroundColor := TConsoleColor.Green;
-      'G':
-        console.BackgroundColor := TConsoleColor.Yellow;
-    else
-      console.BackgroundColor := TConsoleColor.Black;
-    end;
-    console.Write(c);
-  end;
-  console.ForegroundColor := TConsoleColor.White;
-  console.BackgroundColor := TConsoleColor.Black;
-  console.WriteLine;
-end;
-
-begin
-  console.WriteLine('SEQUENCE:');
-  var le := Length(DNA);
-  var index := 0;
-  while index < le do
-  begin
-    Write(index: 5, ': ');
-    Println(dna.Substring(index, 50));
-
-    inc(index, 50);
-  end;
-
-  var baseMap := TDictionary<byte, integer>.Create;
-
-  for var i := 1 to le do
-  begin
-    var key := ord(dna[i]);
-    if baseMap.ContainsKey(key) then
-      baseMap[key] := baseMap[key] + 1
-    else
-      baseMap.Add(key, 1);
-  end;
-
-  var bases: TArray<byte>;
-  for var k in baseMap.Keys do
-  begin
-    SetLength(bases, Length(bases) + 1);
-    bases[High(bases)] := k;
-  end;
-  TArray.Sort<Byte>(bases);
-
-  console.WriteLine(#10'BASE COUNT:');
-
-  for var base in bases do
-    console.WriteLine('    {0}: {1}', [ansichar(base), baseMap[base]]);
-
-  console.WriteLine('    ------');
-  console.WriteLine('    S: {0}', [le]);
-  console.WriteLine('    ======');
-
-  readln;
-end.
--- a/Task/Bioinformatics-base-count/DuckDB/bioinformatics-base-count.duckdb
+++ b/Task/Bioinformatics-base-count/DuckDB/bioinformatics-base-count.duckdb
@ -1,18 +0,0 @@
-# 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 ;
--- a/Task/Bioinformatics-base-count/EasyLang/bioinformatics-base-count.easy
+++ b/Task/Bioinformatics-base-count/EasyLang/bioinformatics-base-count.easy
@ -1,33 +0,0 @@
-len d[] 26
-pos = 1
-numfmt 4 0
-repeat
-   s$ = input
-   until s$ = ""
-   for c$ in strchars s$
-      if pos mod 40 = 1 : write pos & ":"
-      if pos mod 4 = 1 : write " "
-      write c$
-      if pos mod 40 = 0 : print ""
-      pos += 1
-      c = strcode c$
-      d[c - 64] += 1
-   .
-.
-print ""
-for i in [ 1 3 7 20 ]
-   write strchar (64 + i) & ": "
-   print d[i]
-.
-print "Total: " & d[1] + d[3] + d[7] + d[20]
-input_data
-CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG
-CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG
-AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT
-GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT
-CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG
-TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA
-TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT
-CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG
-TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC
-GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT
--- a/Task/Bioinformatics-base-count/Ed/bioinformatics-base-count.ed
+++ b/Task/Bioinformatics-base-count/Ed/bioinformatics-base-count.ed
@ -1,53 +0,0 @@
-# by Artyom Bologov
-H
-,j
-# Repeat the line 5 times
-t0
-t0
-t0
-t0
-# Split the line in chunks of 50
-1s/[ACGT]\{0,50\}/&\
-/g
-# Count every base by leaving X letters on each row
-$-3s/[^A]//g
-$-2s/[^C]//g
-$-1s/[^G]//g
-$s/[^T]//g
-# Turn all letters into i's
-$-3s/A/i/g
-$-2s/C/i/g
-$-1s/G/i/g
-$s/T/i/g
-# unary -> decimal (up to 10^10)
-g/i/s/^\(i*\)\1\1\1\1\1\1\1\1\1\(i\{0,9\}\)/\1 \2/
-g/i/s/^\(i*\)\1\1\1\1\1\1\1\1\1\(i\{0,9\}\)/\1 \2/
-g/i/s/^\(i*\)\1\1\1\1\1\1\1\1\1\(i\{0,9\}\)/\1 \2/
-g/i/s/^\(i*\)\1\1\1\1\1\1\1\1\1\(i\{0,9\}\)/\1 \2/
-g/i/s/^\(i*\)\1\1\1\1\1\1\1\1\1\(i\{0,9\}\)/\1 \2/
-g/i/s/^\(i*\)\1\1\1\1\1\1\1\1\1\(i\{0,9\}\)/\1 \2/
-g/i/s/^\(i*\)\1\1\1\1\1\1\1\1\1\(i\{0,9\}\)/\1 \2/
-g/i/s/^\(i*\)\1\1\1\1\1\1\1\1\1\(i\{0,9\}\)/\1 \2/
-g/i/s/^\(i*\)\1\1\1\1\1\1\1\1\1\(i\{0,9\}\)/\1 \2/
-g/i/s/^\(i*\)\1\1\1\1\1\1\1\1\1\(i\{0,9\}\)/\1 \2/
-,p
-g/i/s/[ ]$/ 0 /g
-g/i/s/[ ][ ]/ 0 /g
-g/i/s/[ ][ ]/ 0 /g
-g/i/s/[ ]iiiiiiiii\>/ 9 /g
-g/i/s/[ ]iiiiiiii\>/ 8 /g
-g/i/s/[ ]iiiiiii\>/ 7 /g
-g/i/s/[ ]iiiiii\>/ 6 /g
-g/i/s/[ ]iiiii\>/ 5 /g
-g/i/s/[ ]iiii\>/ 4 /g
-g/i/s/[ ]iii\>/ 3 /g
-g/i/s/[ ]ii\>/ 2 /g
-g/i/s/[ ]i\>/ 1 /g
-g/[ ]/s///g
-g/^0\{1,\}\([0-9]\)/s//\1/
-$-3s/.*/A &/g
-$-2s/.*/C &/g
-$-1s/.*/G &/g
-$s/.*/T &/g
-,p
-Q
--- a/Task/Bioinformatics-base-count/Factor/bioinformatics-base-count.factor
+++ b/Task/Bioinformatics-base-count/Factor/bioinformatics-base-count.factor
@ -1,29 +0,0 @@
-USING: assocs formatting grouping io kernel literals math
-math.statistics prettyprint qw sequences sorting ;
-
-CONSTANT: dna
-$[
-    qw{
-        CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG
-        CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG
-        AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT
-        GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT
-        CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG
-        TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA
-        TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT
-        CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG
-        TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC
-        GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT
-    } concat
-]
-
-: .dna ( seq n -- )
-    "SEQUENCE:" print [ group ] keep
-    [ * swap "  %3d: %s\n" printf ] curry each-index ;
-
-: show-counts ( seq -- )
-    "BASE COUNTS:" print histogram >alist [ first ] sort-with
-    [ [ "    %c: %3d\n" printf ] assoc-each ]
-    [ "TOTAL: " write [ second ] [ + ] map-reduce . ] bi ;
-
-dna [ 50 .dna nl ] [ show-counts ] bi
--- a/Task/Bioinformatics-base-count/Forth/bioinformatics-base-count.fth
+++ b/Task/Bioinformatics-base-count/Forth/bioinformatics-base-count.fth
@ -1,35 +0,0 @@
-( Gforth 0.7.3 )
-
-: dnacode s" CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATGCTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTGAGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGATGGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTTCGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGGTCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATATTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTATCGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTGTCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGACGACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT" ;
-
-variable #A \ Gforth initialises variables to 0
-variable #C
-variable #G
-variable #T
-variable #ch
-50 constant pplength
-
-: basecount ( adr u -- )
-    ." Sequence:"
-    swap dup rot + swap ?do  \ count while pretty-printing
-        #ch @ pplength mod 0= if cr #ch @ 10 .r 2 spaces then
-        i c@ dup emit
-        dup 'A = if drop #A @ 1+ #A ! else
-        dup 'C = if drop #C @ 1+ #C ! else
-        dup 'G = if drop #G @ 1+ #G ! else
-        dup 'T = if drop #T @ 1+ #T ! else drop then then then then
-        #ch @ 1+ #ch !
-    loop
-    cr cr ." Base counts:"
-    cr 4 spaces 'A emit ': emit #A @ 5 .r
-    cr 4 spaces 'C emit ': emit #C @ 5 .r
-    cr 4 spaces 'G emit ': emit #G @ 5 .r
-    cr 4 spaces 'T emit ': emit #T @ 5 .r
-    cr ."  ----------"
-    cr ."   Sum:"  #ch @ 5 .r
-    cr ."  ==========" cr cr
-;
-
-( demo run: )
-
-dnacode basecount
--- a/Task/Bioinformatics-base-count/FreeBASIC/bioinformatics-base-count.basic
+++ b/Task/Bioinformatics-base-count/FreeBASIC/bioinformatics-base-count.basic
@ -1,49 +0,0 @@
-#define SCW 36
-#define GRP 3
-
-function padto( n as integer, w as integer ) as string
-    dim as string r = str(n)
-    while len(r)<w
-       r = " "+r
-    wend
-    return r
-end function
-
-dim as string dna = "CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG"+_
-                    "CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG"+_
-                    "AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT"+_
-                    "GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT"+_
-                    "CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG"+_
-                    "TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA"+_
-                    "TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT"+_
-                    "CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG"+_
-                    "TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC"+_
-                    "GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT"
-
-dim as string outstr = "", currb
-dim as integer bases(0 to 3), curr = 1, first = 1
-while curr <= len(dna)
-    currb = mid(dna, curr, 1)
-    if currb = "A" then bases(0) += 1
-    if currb = "C" then bases(1) += 1
-    if currb = "G" then bases(2) += 1
-    if currb = "T" then bases(3) += 1
-    outstr += currb
-    curr += 1
-    if curr mod GRP = 1 then outstr += " "
-    if curr mod SCW = 1 or curr=len(dna)+1 then
-        outstr = padto(first,3) + "--" + padto(curr-1,3) + ":   " + outstr
-        print outstr
-        outstr = ""
-        first = curr
-    end if
-wend
-print
-print "Base counts"
-print "-----------"
-print "     A:  " + str(bases(0))
-print "     C:  " + str(bases(1))
-print "     G:  " + str(bases(2))
-print "     T:  " + str(bases(3))
-print
-print " total:  " + str(bases(0)+bases(1)+bases(2)+bases(3))
--- a/Task/Bioinformatics-base-count/FutureBasic/bioinformatics-base-count.basic
+++ b/Task/Bioinformatics-base-count/FutureBasic/bioinformatics-base-count.basic
@ -1,45 +0,0 @@
-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
--- a/Task/Bioinformatics-base-count/Go/bioinformatics-base-count.go
+++ b/Task/Bioinformatics-base-count/Go/bioinformatics-base-count.go
@ -1,49 +0,0 @@
-package main
-
-import (
-    "fmt"
-    "sort"
-)
-
-func main() {
-    dna := "" +
-        "CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG" +
-        "CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG" +
-        "AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT" +
-        "GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT" +
-        "CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG" +
-        "TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA" +
-        "TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT" +
-        "CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG" +
-        "TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC" +
-        "GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT"
-
-    fmt.Println("SEQUENCE:")
-    le := len(dna)
-    for i := 0; i < le; i += 50 {
-        k := i + 50
-        if k > le {
-            k = le
-        }
-        fmt.Printf("%5d: %s\n", i, dna[i:k])
-    }
-    baseMap := make(map[byte]int) // allows for 'any' base
-    for i := 0; i < le; i++ {
-        baseMap[dna[i]]++
-    }
-    var bases []byte
-    for k := range baseMap {
-        bases = append(bases, k)
-    }
-    sort.Slice(bases, func(i, j int) bool { // get bases into alphabetic order
-        return bases[i] < bases[j]
-    })
-
-    fmt.Println("\nBASE COUNT:")
-    for _, base := range bases {
-        fmt.Printf("    %c: %3d\n", base, baseMap[base])
-    }
-    fmt.Println("    ------")
-    fmt.Println("    Σ:", le)
-    fmt.Println("    ======")
-}
--- a/Task/Bioinformatics-base-count/Haskell/bioinformatics-base-count.hs
+++ b/Task/Bioinformatics-base-count/Haskell/bioinformatics-base-count.hs
@ -1,40 +0,0 @@
-import Data.List       (group, sort)
-import Data.List.Split (chunksOf)
-import Text.Printf     (printf, IsChar(..), PrintfArg(..), fmtChar, fmtPrecision, formatString)
-
-data DNABase = A | C | G | T deriving (Show, Read, Eq, Ord)
-type DNASequence = [DNABase]
-
-instance IsChar DNABase where
-  toChar = head . show
-  fromChar = read . pure
-
-instance PrintfArg DNABase where
-  formatArg x fmt = formatString (show x) (fmt { fmtChar = 's', fmtPrecision = Nothing })
-
-test :: DNASequence
-test = read . pure <$> concat
-  [ "CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG"
-  , "CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG"
-  , "AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT"
-  , "GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT"
-  , "CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG"
-  , "TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA"
-  , "TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT"
-  , "CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG"
-  , "TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC"
-  , "GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT" ]
-
-chunkedDNASequence :: DNASequence -> [(Int, [DNABase])]
-chunkedDNASequence = zip [50,100..] . chunksOf 50
-
-baseCounts :: DNASequence -> [(DNABase, Int)]
-baseCounts = fmap ((,) . head <*> length) . group . sort
-
-main :: IO ()
-main = do
-  putStrLn "Sequence:"
-  mapM_ (uncurry (printf "%3d: %s\n")) $ chunkedDNASequence test
-  putStrLn "\nBase Counts:"
-  mapM_ (uncurry (printf "%2s: %2d\n")) $ baseCounts test
-  putStrLn (replicate 8 '-') >> printf " Σ: %d\n\n" (length test)
--- a/Task/Bioinformatics-base-count/J/bioinformatics-base-count-1.j
+++ b/Task/Bioinformatics-base-count/J/bioinformatics-base-count-1.j
@ -1,12 +0,0 @@
-countBases=: (({.;#)/.~)@,
-totalBases=: #@,
-
-require 'format/printf'
-
-printSequence=: verb define
-'Sequence:' printf ''
-'%4d: %s' printf ((- {.)@(+/\)@:(#"1) ,.&<"_1 ]) y
-'\n Base Count\n-----------' printf ''
-'%5s: %4d' printf countBases y
-'-----------\nTotal = %3d' printf totalBases y
-)
--- a/Task/Bioinformatics-base-count/J/bioinformatics-base-count-2.j
+++ b/Task/Bioinformatics-base-count/J/bioinformatics-base-count-2.j
@ -1,33 +0,0 @@
-   DNABases=: ];._2 noun define
-CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG
-CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG
-AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT
-GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT
-CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG
-TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA
-TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT
-CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG
-TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC
-GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT
-)
-   printSequence DNABases
-Sequence:
-   0: CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG
-  50: CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG
- 100: AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT
- 150: GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT
- 200: CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG
- 250: TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA
- 300: TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT
- 350: CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG
- 400: TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC
- 450: GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT
-
- Base Count
-----------
-    C:   97
-    G:  119
-    T:  155
-    A:  129
-----------
-Total = 500
--- a/Task/Bioinformatics-base-count/Java/bioinformatics-base-count-1.java
+++ b/Task/Bioinformatics-base-count/Java/bioinformatics-base-count-1.java
@ -1,39 +0,0 @@
-void printBaseCount(String string) throws IOException {
-    BufferedReader reader = new BufferedReader(new StringReader(string));
-    int index = 0;
-    String sequence;
-    int A = 0, C = 0, G = 0, T = 0;
-    int a, c, g, t;
-    while ((sequence = reader.readLine()) != null) {
-        System.out.printf("%d %s ", index++, sequence);
-        a = c = g = t = 0;
-        for (char base : sequence.toCharArray()) {
-            switch (base) {
-                case 'A' -> {
-                    A++;
-                    a++;
-                }
-                case 'C' -> {
-                    C++;
-                    c++;
-                }
-                case 'G' -> {
-                    G++;
-                    g++;
-                }
-                case 'T' -> {
-                    T++;
-                    t++;
-                }
-            }
-        }
-        System.out.printf("[A %2d, C %2d, G %2d, T %2d]%n", a, c, g, t);
-    }
-    reader.close();
-    int total = A + C + G + T;
-    System.out.printf("%nTotal of %d bases%n", total);
-    System.out.printf("A %3d (%.2f%%)%n", A, ((double) A / total) * 100);
-    System.out.printf("C %3d (%.2f%%)%n", C, ((double) C / total) * 100);
-    System.out.printf("G %3d (%.2f%%)%n", G, ((double) G / total) * 100);
-    System.out.printf("T %3d (%.2f%%)%n", T, ((double) T / total) * 100);
-}
--- a/Task/Bioinformatics-base-count/Java/bioinformatics-base-count-2.java
+++ b/Task/Bioinformatics-base-count/Java/bioinformatics-base-count-2.java
@ -1,47 +0,0 @@
-import java.util.HashMap;
-import java.util.Map;
-
-public class orderedSequence {
-    public static void main(String[] args) {
-        Sequence gene = new Sequence("CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATGCTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTGAGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGATGGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTTCGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGGTCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATATTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTATCGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTGTCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGACGACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT");
-        gene.runSequence();
-    }
-}
-
-/** Separate class for defining behaviors */
-public class Sequence {
-
-    private final String seq;
-
-    public Sequence(String sq) {
-        this.seq = sq;
-    }
-
-    /** print the organized structure of the sequence */
-    public void prettyPrint() {
-        System.out.println("Sequence:");
-        int i = 0;
-        for ( ; i < seq.length() - 50 ; i += 50) {
-            System.out.printf("%5s : %s\n", i + 50, seq.substring(i, i + 50));
-        }
-        System.out.printf("%5s : %s\n", seq.length(), seq.substring(i));
-    }
-
-    /** display a base vs. frequency chart */
-    public void displayCount() {
-        Map<Character, Integer> counter = new HashMap<>();
-        for (int i = 0 ; i < seq.length() ; ++i) {
-            counter.merge(seq.charAt(i), 1, Integer::sum);
-        }
-
-        System.out.println("Base vs. Count:");
-        counter.forEach(
-            key, value -> System.out.printf("%5s : %s\n", key, value));
-        System.out.printf("%5s: %s\n", "SUM", seq.length());
-    }
-
-    public void runSequence() {
-        this.prettyPrint();
-        this.displayCount();
-    }
-}
--- a/Task/Bioinformatics-base-count/JavaScript/bioinformatics-base-count.js
+++ b/Task/Bioinformatics-base-count/JavaScript/bioinformatics-base-count.js
@ -1,67 +0,0 @@
-const rowLength = 50;
-
-const bases = ['A', 'C', 'G', 'T'];
-
-// Create the starting sequence
-const seq = `CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG
-CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG
-AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT
-GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT
-CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG
-TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA
-TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT
-CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG
-TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC
-GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT`
-    .split('')
-    .filter(e => bases.includes(e))
-
-/**
- * Convert the given array into an array of smaller arrays each with the length
- * given by n.
- * @param {number} n
- * @returns {function(!Array<*>): !Array<!Array<*>>}
- */
-const chunk = n => a => a.reduce(
-    (p, c, i) => (!(i % n)) ? p.push([c]) && p : p[p.length - 1].push(c) && p,
-    []);
-const toRows = chunk(rowLength);
-
-/**
- * Given a number, return function that takes a string and left pads it to n
- * @param {number} n
- * @returns {function(string): string}
- */
-const padTo = n => v => ('' + v).padStart(n, ' ');
-const pad = padTo(5);
-
-/**
- * Count the number of elements that match the given value in an array
- * @param {Array<string>} arr
- * @returns {function(string): number}
- */
-const countIn = arr => s => arr.filter(e => e === s).length;
-
-/**
- * Utility logging function
- * @param {string|number} v
- * @param {string|number} n
- */
-const print = (v, n) => console.log(`${pad(v)}:\t${n}`)
-
-const prettyPrint = seq => {
-  const chunks = toRows(seq);
-  console.log('SEQUENCE:')
-  chunks.forEach((e, i) => print(i * rowLength, e.join('')))
-}
-
-const printBases = (seq, bases) => {
-  const filterSeq = countIn(seq);
-  const counts = bases.map(filterSeq);
-  console.log('\nBASE COUNTS:')
-  counts.forEach((e, i) => print(bases[i], e));
-  print('Total', counts.reduce((p,c) => p + c, 0));
-}
-
-prettyPrint(seq);
-printBases(seq, bases);
--- a/Task/Bioinformatics-base-count/Jq/bioinformatics-base-count-1.jq
+++ b/Task/Bioinformatics-base-count/Jq/bioinformatics-base-count-1.jq
@ -1,5 +0,0 @@
-def lpad($len; $fill): tostring | ($len - length) as $l | ($fill * $l)[:$l] + .;
-
-# Create a bag of words, i.e. a JSON object with counts of the items in the stream
-def bow(stream):
-  reduce stream as $word ({}; .[($word|tostring)] += 1);
--- a/Task/Bioinformatics-base-count/Jq/bioinformatics-base-count-2.jq
+++ b/Task/Bioinformatics-base-count/Jq/bioinformatics-base-count-2.jq
@ -1,15 +0,0 @@
-def read_seq:
-  reduce inputs as $line (""; . + $line);
-
-# Emit a bow of the letters in the input string
-def counts:
-  . as $in | bow(range(0;length) | $in[.:.+1]);
-
-def pp_counts:
-  "BASE COUNTS:",
-   (counts | to_entries | sort[] | "    \(.key):  \(.value | lpad(6;" "))"),
-   "Total: \(length|lpad(7;" "))" ;
-
-def pp_sequence($cols):
-  range(0; length / $cols) as $i
-    | "\($i*$cols | lpad(5; " ")): " +  .[ $i * $cols : ($i+1) * $cols] ;
--- a/Task/Bioinformatics-base-count/Jq/bioinformatics-base-count-3.jq
+++ b/Task/Bioinformatics-base-count/Jq/bioinformatics-base-count-3.jq
@ -1 +0,0 @@
-read_seq | pp_sequence(50), "", pp_counts
--- a/Task/Bioinformatics-base-count/Jq/bioinformatics-base-count-4.jq
+++ b/Task/Bioinformatics-base-count/Jq/bioinformatics-base-count-4.jq
@ -1,17 +0,0 @@
-    0: CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG
-   50: CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG
-  100: AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT
-  150: GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT
-  200: CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG
-  250: TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA
-  300: TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT
-  350: CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG
-  400: TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC
-  450: GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT
-
-BASE COUNTS:
-    A:     129
-    C:      97
-    G:     119
-    T:     155
-Total:     500
--- a/Task/Bioinformatics-base-count/Jq/bioinformatics-base-count-5.jq
+++ b/Task/Bioinformatics-base-count/Jq/bioinformatics-base-count-5.jq
@ -1,42 +0,0 @@
-def lpad($len; $fill): tostring | ($len - length) as $l | ($fill * $l)[:$l] + .;
-
-# "bow" = bag of words, i.e. a JSON object with counts
-# Input: a bow or null
-# Output: augmented bow
-def bow(stream):
-  reduce stream as $word (.; .[($word|tostring)] += 1);
-
-# The main function ignores its input in favor of `stream`:
-def report(stream; $cols):
-
-  # input: a string, possibly longer than $cols
-  def pp_sequence($start):
-  range(0; length / $cols) as $i
-    | "\($start + ($i*$cols) | lpad(5; " ")): " +  .[ $i * $cols : ($i+1) * $cols] ;
-
-  # input: a bow
-  def pp_counts:
-    "BASE COUNTS:",
-     (to_entries | sort[] | "    \(.key):  \(.value | lpad(6;" "))"),
-     "Total: \( [.[]] | add | lpad(7;" "))" ;
-
-  # state: {bow, emit, pending, start}
-  foreach (stream,null) as $line ({start: - $cols};
-    .start += $cols
-    | if $line == null
-      then .emit = .pending
-      else .bow |= bow(range(0; $line|length) | $line[.:.+1])
-      | (($line|length) + (.pending|length) ) as $len
-      | if $len >= $cols
-        then (.pending + $line) as $new
-        | .emit = $new[:$cols]
-        | .pending = $new[$cols:]
-        else .pending = $line
-        end
-      end;
-    (select(.emit|length > 0) | .start as $start | .emit | pp_sequence($start)),
-    (select($line == null) | "", (.bow|pp_counts) ) )
-    ;
-
-# To illustrate reformatting:
-report(inputs; 33)
--- a/Task/Bioinformatics-base-count/Jq/bioinformatics-base-count-6.jq
+++ b/Task/Bioinformatics-base-count/Jq/bioinformatics-base-count-6.jq
@ -1,23 +0,0 @@
-    0: CGTAAAAAATTACAACGTCCTTTGGCTATCTCT
-   33: TAAACTCCTGCTAAATGCTCGTGCTTTCCAATT
-   66: ATGTAAGCGTTCCGAGACGGGGTGGTCGATTCT
-   99: GAGGACAAAGGTCAAGATGGAGCGCATCGAACG
-  132: CAATAAGGATCATTTGATGGGACGTTTCGTCGA
-  165: CAAAGTCTTGTTTCGAGAGTAACGGCTACCGTC
-  198: TTCGATTCTGCTTATAACACTATGTTCTTATGA
-  231: AATGGATGTTCTGAGTTGGTCAGTCCCAATGTG
-  264: CGGGGTTTCTTTTAGTACGTCGGGAGTGGTATT
-  297: ATATTTAATTTTTCTATATAGCGATCTGTATTT
-  330: AAGCAATTCATTTAGGTTATCGCCGCGATGCTC
-  363: GGTTCGGACCGCCAAGCATCTGGCTCCACTGCT
-  396: AGTGTCCTAAATTTGAATGGCAAACACAAATAA
-  429: GATTTAGCAATTCGTGTAGACGACCGGGGACTT
-  462: GCATGATGGGAGCAGCTTTGTTAAACTACGAAC
-  495: GTAAT
-
-BASE COUNTS:
-    A:     129
-    C:      97
-    G:     119
-    T:     155
-Total:     500
--- a/Task/Bioinformatics-base-count/Julia/bioinformatics-base-count.jl
+++ b/Task/Bioinformatics-base-count/Julia/bioinformatics-base-count.jl
@ -1,39 +0,0 @@
-const sequence =
-"CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG" *
-"CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG" *
-"AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT" *
-"GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT" *
-"CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG" *
-"TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA" *
-"TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT" *
-"CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG" *
-"TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC" *
-"GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT"
-
-function dnasequenceprettyprint(seq, colsize=50)
-    println(length(seq), "nt DNA sequence:\n")
-    rows = [seq[i:min(length(seq), i + colsize - 1)] for i in 1:colsize:length(seq)]
-    for (i, r) in enumerate(rows)
-        println(lpad(colsize * (i - 1), 5), "   ", r)
-    end
-end
-
-dnasequenceprettyprint(sequence)
-
-function printcounts(seq)
-    bases = [['A', 0], ['C', 0], ['G', 0], ['T', 0]]
-    for c in seq, base in bases
-        if c == base[1]
-            base[2] += 1
-        end
-    end
-    println("\nNucleotide counts:\n")
-    for base in bases
-        println(lpad(base[1], 10), lpad(string(base[2]), 12))
-    end
-    println(lpad("Other", 10), lpad(string(length(seq) - sum(x[2] for x in bases)), 12))
-    println("     _________________\n", lpad("Total", 10), lpad(string(length(seq)), 12))
-
-end
-
-printcounts(sequence)
--- a/Task/Bioinformatics-base-count/Kotlin/bioinformatics-base-count.kts
+++ b/Task/Bioinformatics-base-count/Kotlin/bioinformatics-base-count.kts
@ -1,20 +0,0 @@
-fun printSequence(sequence: String, width: Int = 50) {
-
-    fun printWithLabel(label: Any, data: Any) =
-        label.toString().padStart(5).also { println("$it: $data") }
-
-    println("SEQUENCE:")
-    sequence.chunked(width).forEachIndexed() { i, chunk ->
-        printWithLabel(i * width + chunk.length, chunk)
-    }
-
-    println("BASE:")
-    sequence.groupingBy { it }.eachCount().forEach { (k, v) ->
-        printWithLabel(k, v)
-    }
-    printWithLabel("TOTALS", sequence.length)
-}
-
-const val BASE_SEQUENCE = "CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATGCTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTGAGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGATGGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTTCGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGGTCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATATTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTATCGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTGTCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGACGACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT"
-
-fun main() = printSequence(BASE_SEQUENCE)
--- a/Task/Bioinformatics-base-count/Lambdatalk/bioinformatics-base-count.lambdatalk
+++ b/Task/Bioinformatics-base-count/Lambdatalk/bioinformatics-base-count.lambdatalk
@ -1,22 +0,0 @@
-{def DNA CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATGCTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTGAGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGATGGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTTCGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGGTCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATATTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTATCGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTGTCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGACGACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT}
-> DNA
-
-{def base_count
- {def base_count.r
-  {lambda {:dna :b :n :i :count}
-   {if {> :i :n}
-    then :count
-    else {base_count.r :dna :b :n {+ :i 1}
-                       {if {W.equal? {W.get :i :dna} :b}
-                        then {+ :count 1}
-                        else :count}} }}}
- {lambda {:dna :b}
-  {base_count.r :dna :b {- {W.length :dna} 1} 0 0} }}
-> base_count
-
-{def S {S.map {base_count {DNA}}} A C G T}}
-> S
-[A C G T] = (129 97 119 155)
-
-A+C+G+T = {+ {S}}
-> A+C+G+T = 500
--- a/Task/Bioinformatics-base-count/Lua/bioinformatics-base-count.lua
+++ b/Task/Bioinformatics-base-count/Lua/bioinformatics-base-count.lua
@ -1,27 +0,0 @@
-function prettyprint(seq) -- approx DDBJ format
-  seq = seq:gsub("%A",""):lower()
-  local sums, n = { a=0, c=0, g=0, t=0 }, 1
-  seq:gsub("(%a)", function(c) sums[c]=sums[c]+1 end)
-  local function printf(s,...) io.write(s:format(...)) end
-  printf("LOCUS       AB000000     %12d bp    mRNA    linear   HUM 01-JAN-2001\n", #seq)
-  printf(" BASE COUNT %12d a %12d c %12d g %12d t\n", sums.a, sums.c, sums.g, sums.t)
-  printf("ORIGIN\n")
-  while n < #seq do
-    local sub60 = seq:sub(n,n+59)
-    printf("%9d %s\n", n, sub60:gsub("(..........)","%1 "))
-    n = n + #sub60
-  end
-end
-
-prettyprint[[
-CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG
-CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG
-AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT
-GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT
-CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG
-TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA
-TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT
-CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG
-TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC
-GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT
-]]
--- a/Task/Bioinformatics-base-count/M2000-Interpreter/bioinformatics-base-count.m2000
+++ b/Task/Bioinformatics-base-count/M2000-Interpreter/bioinformatics-base-count.m2000
@ -1,39 +0,0 @@
-Module Bioinformatics_base_count (f){
-	a$={
-		CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG
-		CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG
-		AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT
-		GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT
-		CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG
-		TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA
-		TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT
-		CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG
-		TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC
-		GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT
-	}
-	Data "A", "C","G","T"
-	a$=filter$(a$," "+chr$(13)+chr$(10)+chr$(9))
-	tot=len(a$)
-	k=1
-	print #f, "SEQUENCE:"
-	for i=50 to len(a$) step 50
-	Print #f, str$(k,"000: ");mid$(a$, k, 50)
-	k=i
-	next
-	Print #f, "BASECOUNT:"
-	while not empty
-	read t$
-		b$=filter$(a$, t$)
-		Print #f, "  "+t$+": ";len(a$)-len(b$)
-		swap a$, b$
-	end while
-	Print #f, "Tot:";tot
-}
-
-open "" for wide output as #f
-Bioinformatics_base_count f
-close #f
-open "outtext.txt" for wide output as #f
-Bioinformatics_base_count f
-close #f
-win "outtext.txt"
--- a/Task/Bioinformatics-base-count/MATLAB/bioinformatics-base-count.m
+++ b/Task/Bioinformatics-base-count/MATLAB/bioinformatics-base-count.m
@ -1,13 +0,0 @@
-function r = base_count(f)
-    fid = fopen(f,'r');
-    nn=[0,0,0,0];    	
-    while ~feof(fid)
-	s = fgetl(fid);
-	fprintf(1,'%5d :%s\n', sum(nn), s(s=='A'|s=='C'|s=='G'|s=='T'));
-	nn = nn+[sum(s=='A'),sum(s=='C'),sum(s=='G'),sum(s=='T')];
-    end
-    fclose(fid);
-
-    fprintf(1, '\nBases:\n\n  A  : %d\n  C  : %d\n  G  : %d\n  T  : %d\n', nn);
-    fprintf(1, '\nTotal: %d\n\n', sum(nn));
-end;
--- a/Task/Bioinformatics-base-count/Mathematica/bioinformatics-base-count.math
+++ b/Task/Bioinformatics-base-count/Mathematica/bioinformatics-base-count.math
@ -1,14 +0,0 @@
-seq = "CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATGCTCGTGCTTTCCA\
-ATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTGAGGACAAAGGTCAAGATGGAGCGCATCGAACGC\
-AATAAGGATCATTTGATGGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTTCGA\
-TTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGGTCAGTCCCAATGTGCGGGGTTTC\
-TTTTAGTACGTCGGGAGTGGTATTATATTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTT\
-AGGTTATCGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTGTCCTAAATTTGAA\
-TGGCAAACACAAATAAGATTTAGCAATTCGTGTAGACGACCGGGGACTTGCATGATGGGAGCAGCTTTGT\
-TAAACTACGAACGTAAT";
-size = 70;
-parts = StringPartition[seq, UpTo[size]];
-begins = Most[Accumulate[Prepend[StringLength /@ parts, 1]]];
-ends = Rest[Accumulate[Prepend[StringLength /@ parts, 0]]];
-StringRiffle[MapThread[ToString[#1] <> "-" <> ToString[#2] <> ": " <> #3 &, {begins, ends, parts}], "\n"]
-StringRiffle[#1 <> ": " <> ToString[#2] & @@@ Tally[Characters[seq]], "\n"]
--- a/Task/Bioinformatics-base-count/Nim/bioinformatics-base-count.nim
+++ b/Task/Bioinformatics-base-count/Nim/bioinformatics-base-count.nim
@ -1,59 +0,0 @@
-import strformat
-import strutils
-
-const Source = "CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG" &
-               "CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG" &
-               "AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT" &
-               "GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT" &
-               "CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG" &
-               "TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA" &
-               "TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT" &
-               "CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG" &
-               "TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC" &
-               "GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT"
-
-# Enumeration type for bases.
-type Base* {.pure.} = enum A, C, G, T, Other = "other"
-
-proc display*(dnaSeq: string) =
-  ## Display a DNA sequence using EMBL format.
-
-  var counts: array[Base, Natural]    # Count of bases.
-  for c in dnaSeq:
-    inc counts[parseEnum[Base]($c, Other)]  # Use Other as default value.
-
-  # Display the SQ line.
-  var sqline = fmt"SQ   {dnaSeq.len} BP; "
-  for (base, count) in counts.pairs:
-    sqline &= fmt"{count} {base}; "
-  echo sqline
-
-  # Display the sequence.
-  var idx = 0
-  var row = newStringOfCap(80)
-  var remaining = dnaSeq.len
-
-  while remaining > 0:
-    row.setLen(0)
-    row.add("     ")
-
-    # Add groups of 10 bases.
-    for group in 1..6:
-      let nextIdx = idx + min(10, remaining)
-      row.add(dnaSeq[idx..<nextIdx] & ' ')
-      dec remaining, nextIdx - idx
-      idx = nextIdx
-      if remaining == 0:
-        break
-
-    # Append the number of the last base in the row.
-    row.add(spaces(72 - row.len))
-    row.add(fmt"{idx:>8}")
-    echo row
-
-  # Add termination.
-  echo "//"
-
-
-when isMainModule:
-  Source.display()
--- a/Task/Bioinformatics-base-count/Pascal/bioinformatics-base-count-1.pas
+++ b/Task/Bioinformatics-base-count/Pascal/bioinformatics-base-count-1.pas
@ -1,77 +0,0 @@
-program DNA_Base_Count;
-{$IFDEF FPC}
-  {$MODE DELPHI}//String = AnsiString
-{$ELSE}
-  {$APPTYPE CONSOLE}
-{$ENDIF}
-const
-    dna =
-        'CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG' +
-        'CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG' +
-        'AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT' +
-        'GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT' +
-        'CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG' +
-        'TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA' +
-        'TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT' +
-        'CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG' +
-        'TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC' +
-        'GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT';
-var
-  CntIdx : array of NativeUint;
-  DNABases : String;
-  SumBaseTotal : NativeInt;
-
-procedure OutFormatBase(var DNA: String;colWidth:NativeInt);
-var
-  j: NativeInt;
-Begin
-  j := 0;
-  Writeln(' DNA base sequence');
-  While j<Length(DNA) do
-  Begin
-    writeln(j:5,copy(DNA,j+1,colWidth):colWidth+2);
-    inc(j,colWidth);
-  end;
-  writeln;
-end;
-
-procedure Cnt(const DNA: String);
-var
-  i,p :NativeInt;
-Begin
-  SetLength(CntIdx,Length(DNABases));
-  i := 1;
-  while i <= Length(DNA) do
-  Begin
-    p := Pos(DNA[i],DNABases);
-    //found new base so extend list
-    if p = 0 then
-    Begin
-      DNABases := DNABases+DNA[i];
-      p := length(DNABases);
-      Setlength(CntIdx,p+1);
-    end;
-    inc(CntIdx[p]);
-    inc(i);
-  end;
-
-  Writeln('Base     Count');
-  SumBaseTotal := 0;
-  For i := 1 to Length(DNABases) do
-  Begin
-    p := CntIdx[i];
-    inc(SumBaseTotal,p);
-    writeln(DNABases[i]:4,p:10);
-  end;
-  Writeln('Total base count ',SumBaseTotal);
-  writeln;
-end;
-
-var
-  TestDNA: String;
-Begin
-  DNABases :='ACGT';// predefined
-  TestDNA := DNA;
-  OutFormatBase(TestDNA,50);
-  Cnt(TestDNA);
-end.
--- a/Task/Bioinformatics-base-count/Pascal/bioinformatics-base-count-2.pas
+++ b/Task/Bioinformatics-base-count/Pascal/bioinformatics-base-count-2.pas
@ -1,106 +0,0 @@
-PROGRAM DNABaseCount;
-
-(*)
-
-		Free Pascal Compiler version 3.2.2 [2024/05/01] for x86_64
-		
-		Free to use, as is, experimental
-
-		directives:
-		https://www.freepascal.org/docs-html/prog/progch1.html
-
-        The free and readable alternative at C/C++ speeds
-        compiles natively to almost any platform, including raspberry PI *
-        Can run independently from DELPHI / Lazarus
-
-        https://www.freepascal.org/advantage.var
-
-(*)
-
-
-{$IFDEF FPC}
-	{$LONGSTRINGS ON}       (*) aka {H+}  = ansistrings                     (*)
-	{$RANGECHECKS ON}       (*) aka {$R+}                                   (*)
-	{$S+}                   (*) stack checking on                           (*)
-	{$TYPEDADDRESS ON}      (*) aka {$T+}                                   (*)
-
-{$ELSE}
-	{$APPTYPE CONSOLE}
-{$ENDIF}
-
-{$MACRO ON}
-{$DEFINE crlf   := #13#10 }
-{$DEFINE tab    := #9     }
-{$DEFINE xy     := x * y  }
-
-USES
-	crt,
-	SysUtils
-	;
-
-
-FUNCTION DnaCount ( S: string; var total: integer; a: char ) : integer;
-
-    BEGIN
-
-        DnaCount := length ( S.Split ( a ) ) - 1 ;
-
-        total := total + Dnacount ;
-
-    END;
-
-
-
-FUNCTION Print ( S: string ; start: integer ; len: integer ) : string;
-
-    BEGIN
-
-        Print := '' ;
-
-        FOR start := 0 TO length (S)  DO
-            Print := Print + ( copy ( S, start * len + 1, len ) + ' ' );
-
-    END;
-
-
-
-VAR
-   dna: string =
-                'CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG' +
-                'CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG' +
-                'AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT' +
-                'GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT' +
-                'CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG' +
-                'TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA' +
-                'TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT' +
-                'CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG' +
-                'TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC' +
-                'GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT' ;
-
-    x           :                                   integer          ;
-    y           :                                   integer =     0  ;
-    S           :                                   string  = 'ACGT' ;
-    base        :                                   char    =    ' ' ;
-    total       :                                   integer =     0  ;
-    width       :                                   integer =    10  ;
-
-
-BEGIN
-
-    y:= length( dna ) div width ;
-
-    Writeln ( crlf , crlf , 'Sequence:' , crlf );
-
-    FOR x:= 0 TO ( length( dna ) div y ) - 1    DO
-        Writeln ( xy: 3 , ':  ': 3 , Print( copy( dna, xy + 1, y ), 0, width ) );
-
-    Writeln( crlf , crlf , 'Base' , tab , 'Count' , crlf );
-
-    FOR base IN S DO
-        Writeln ( base:4, DnaCount( dna, total, base ): width + 4 ) ;
-
-    Writeln ( crlf , crlf , 'Total:', tab, total, crlf );
-
-END. (*) Of PROGRAM DNABaseCount.pas (*)
-
-(*)
--- a/Task/Bioinformatics-base-count/PascalABC.NET/bioinformatics-base-count.pas
+++ b/Task/Bioinformatics-base-count/PascalABC.NET/bioinformatics-base-count.pas
@ -1,14 +0,0 @@
-## 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);
--- a/Task/Bioinformatics-base-count/Perl/bioinformatics-base-count.pl
+++ b/Task/Bioinformatics-base-count/Perl/bioinformatics-base-count.pl
@ -1,28 +0,0 @@
-use strict;
-use warnings;
-use feature 'say';
-
-my %cnt;
-my $total = 0;
-
-while ($_ = <DATA>) {
-    chomp;
-    printf "%4d: %s\n", $total+1, s/(.{10})/$1 /gr;
-    $total += length;
-    $cnt{$_}++ for split //
-}
-
-say "\nTotal bases: $total";
-say "$_: " . ($cnt{$_}//0) for <A C G T>;
-
-__DATA__
-CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG
-CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG
-AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT
-GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT
-CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG
-TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA
-TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT
-CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG
-TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC
-GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT
--- a/Task/Bioinformatics-base-count/Phix/bioinformatics-base-count.phix
+++ b/Task/Bioinformatics-base-count/Phix/bioinformatics-base-count.phix
@ -1,24 +0,0 @@
-(phixonline)-->
- <span style="color: #008080;">constant</span> <span style="color: #000000;">dna</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">substitute</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"""
- CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG
- CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG
- AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT
- GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT
- CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG
- TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA
- TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT
- CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG
- TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC
- GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT
- """</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"\n"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">""</span><span style="color: #0000FF;">)</span>
- <span style="color: #004080;">sequence</span> <span style="color: #000000;">acgt</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">repeat</span><span style="color: #0000FF;">(</span><span style="color: #000000;">0</span><span style="color: #0000FF;">,</span><span style="color: #000000;">5</span><span style="color: #0000FF;">)</span>
- <span style="color: #008080;">for</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span> <span style="color: #008080;">to</span> <span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">dna</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">do</span>
-     <span style="color: #000000;">acgt</span><span style="color: #0000FF;">[</span><span style="color: #7060A8;">find</span><span style="color: #0000FF;">(</span><span style="color: #000000;">dna</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">],</span><span style="color: #008000;">"ACGT"</span><span style="color: #0000FF;">)]</span> <span style="color: #0000FF;">+=</span> <span style="color: #000000;">1</span>
- <span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
- <span style="color: #000000;">acgt</span><span style="color: #0000FF;">[$]</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">sum</span><span style="color: #0000FF;">(</span><span style="color: #000000;">acgt</span><span style="color: #0000FF;">)</span>
- <span style="color: #004080;">sequence</span> <span style="color: #000000;">s</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">split</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">trim</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">join_by</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">split</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">join_by</span><span style="color: #0000FF;">(</span><span style="color: #000000;">dna</span><span style="color: #0000FF;">,</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #000000;">10</span><span style="color: #0000FF;">,</span><span style="color: #008000;">""</span><span style="color: #0000FF;">),</span><span style="color: #008000;">"\n"</span><span style="color: #0000FF;">),</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #000000;">5</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" "</span><span style="color: #0000FF;">)),</span><span style="color: #008000;">"\n"</span><span style="color: #0000FF;">)</span>
- <span style="color: #008080;">for</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span> <span style="color: #008080;">to</span> <span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">s</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">do</span>
-     <span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"%3d: %s\n"</span><span style="color: #0000FF;">,{(</span><span style="color: #000000;">i</span><span style="color: #0000FF;">-</span><span style="color: #000000;">1</span><span style="color: #0000FF;">)*</span><span style="color: #000000;">50</span><span style="color: #0000FF;">+</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #000000;">s</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">]})</span>
- <span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
- <span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"\nBase counts: A:%d, C:%d, G:%d, T:%d, total:%d\n"</span><span style="color: #0000FF;">,</span><span style="color: #000000;">acgt</span><span style="color: #0000FF;">)</span>
-<!--
--- a/Task/Bioinformatics-base-count/Picat/bioinformatics-base-count.picat
+++ b/Task/Bioinformatics-base-count/Picat/bioinformatics-base-count.picat
@ -1,31 +0,0 @@
-main =>
-  dna(DNA, ChunkSize),
-  Count = 0,
-  println("Sequence:"),
-  Map = new_map(['A'=0,'C'=0,'G'=0,'T'=0]),
-  foreach(Chunk in DNA.chunks_of(ChunkSize))
-    printf("%4d: %s\n", Count, Chunk),
-    Count := Count + Chunk.len,
-    foreach(C in Chunk)
-      Map.put(C,Map.get(C)+1)
-    end
-  end,
-  println("\nBase count:"),
-  foreach(C in "ACGT")
-    printf("%5c: %3d\n", C, Map.get(C))
-  end,
-  printf("Total: %d\n", Count),
-  nl.
-
-dna(DNA,ChunkSize) =>
-  DNA = "CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG
-CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG
-AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT
-GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT
-CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG
-TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA
-TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT
-CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG
-TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC
-GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT".delete_all('\n'),
-  ChunkSize = 50.
--- a/Task/Bioinformatics-base-count/PicoLisp/bioinformatics-base-count.l
+++ b/Task/Bioinformatics-base-count/PicoLisp/bioinformatics-base-count.l
@ -1,15 +0,0 @@
-(let
-   (S (chop "CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG\
-      CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG\
-      AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT\
-      GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT\
-      CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG\
-      TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA\
-      TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT\
-      CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG\
-      TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC\
-      GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT" )
-      R )
-   (for I S (accu 'R I 1))
-   (for I R (println I))
-   (println 'Total: (sum cdr R)) )
--- a/Task/Bioinformatics-base-count/PureBasic/bioinformatics-base-count.basic
+++ b/Task/Bioinformatics-base-count/PureBasic/bioinformatics-base-count.basic
@ -1,32 +0,0 @@
-dna$ = "CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG" +
-       "CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG" +
-       "AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT" +
-       "GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT" +
-       "CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG" +
-       "TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA" +
-       "TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT" +
-       "CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG" +
-       "TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC" +
-       "GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT"
-
-NewMap basecount.i()
-
-If OpenConsole("")
-  For i = 1 To Len(dna$)
-    If (i % 50) = 1
-      Print(~"\n" + RSet(Str(i - 1), 5) + " : ")
-    EndIf
-    t$ = Mid(dna$, i, 1)
-    basecount(t$) + 1
-    Print(t$)
-  Next
-
-  PrintN(~"\n\n" + Space(2) + "Base  count")
-  PrintN(Space(2) + ~"----  -----")
-  ForEach basecount()
-    PrintN(RSet(MapKey(basecount()), 5) + " : " + RSet(Str(basecount()), 5))
-    sigma + basecount()
-  Next
-  PrintN(~"\n" + "Total = " + RSet(Str(sigma), 5))
-  Input()
-EndIf
--- a/Task/Bioinformatics-base-count/Python/bioinformatics-base-count-1.py
+++ b/Task/Bioinformatics-base-count/Python/bioinformatics-base-count-1.py
@ -1,33 +0,0 @@
-from collections import Counter
-
-def basecount(dna):
-    return sorted(Counter(dna).items())
-
-def seq_split(dna, n=50):
-    return [dna[i: i+n] for i in range(0, len(dna), n)]
-
-def seq_pp(dna, n=50):
-    for i, part in enumerate(seq_split(dna, n)):
-        print(f"{i*n:>5}: {part}")
-    print("\n  BASECOUNT:")
-    tot = 0
-    for base, count in basecount(dna):
-        print(f"    {base:>3}: {count}")
-        tot += count
-    base, count = 'TOT', tot
-    print(f"    {base:>3}= {count}")
-
-if __name__ == '__main__':
-    print("SEQUENCE:")
-    sequence = '''\
-CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG\
-CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG\
-AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT\
-GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT\
-CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG\
-TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA\
-TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT\
-CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG\
-TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC\
-GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT'''
-    seq_pp(sequence)
--- a/Task/Bioinformatics-base-count/Python/bioinformatics-base-count-2.py
+++ b/Task/Bioinformatics-base-count/Python/bioinformatics-base-count-2.py
@ -1,54 +0,0 @@
-"""
-	Python 3.10.5 (main, Jun  6 2022, 18:49:26) [GCC 12.1.0] on linux
-
-	Created on Wed 2022/08/17 11:19:31
-	
-"""
-
-
-def main ():
-
-	def DispCount () :
-
-	    return f'\n\nBases :\n\n' + f''.join ( [ f'{i} =\t{D [ i ]:4d}\n' for i in  sorted ( BoI ) ] )
-
-
-	S =	'CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATGCTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG' \
-		'AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGATGGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT' \
-		'CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGGTCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA' \
-		'TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTATCGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG' \
-		'TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGACGACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT'
-
-	All   = set( S )
-	
-	BoI   = set ( [ "A","C","G","T" ] )
-	
-	other = All - BoI
-	
-	D     = { k : S.count ( k ) for k in All }
-	
-	print ( 'Sequence:\n\n')
-
-	print ( ''.join ( [ f'{k:4d} : {S [ k: k + 50 ]}\n' for k in range ( 0, len ( S ), 50 ) ] ) )
-
-	print ( f'{DispCount ()} \n------------')
-
-	print ( '' if ( other == set () ) else f'Other\t{sum ( [ D [ k ] for k in sorted ( other ) ] ):4d}\n\n' )
-
-	print ( f'Σ = \t {sum ( [ D [ k ] for k in sorted ( All ) ] ) } \n============\n')
-	
-	pass
-
-
-def test ():
-
-	pass
-
-
-## START
-
-LIVE = True
-
-if ( __name__ == '__main__' ) :
-
-	main () if LIVE else test ()
--- a/Task/Bioinformatics-base-count/Python/bioinformatics-base-count-3.py
+++ b/Task/Bioinformatics-base-count/Python/bioinformatics-base-count-3.py
@ -1,153 +0,0 @@
-'''Bioinformatics – base count'''
-
-from itertools import count
-from functools import reduce
-
-
-# genBankFormatWithBaseCounts :: String -> String
-def genBankFormatWithBaseCounts(sequence):
-    '''DNA Sequence displayed in a subset of the GenBank format.
-       See example at foot of:
-       https://www.genomatix.de/online_help/help/sequence_formats.html
-    '''
-    ks, totals = zip(*baseCounts(sequence))
-    ns = list(map(str, totals))
-    w = 2 + max(map(len, ns))
-
-    return '\n'.join([
-        'DEFINITION  len=' + str(sum(totals)),
-        'BASE COUNT  ' + ''.join(
-            n.rjust(w) + ' ' + k.lower() for (k, n)
-            in zip(ks, ns)
-        ),
-        'ORIGIN'
-    ] + [
-        str(i).rjust(9) + ' ' + k for i, k
-        in zip(
-            count(1, 60),
-            [
-                ' '.join(row) for row in
-                chunksOf(6)(chunksOf(10)(sequence))
-            ]
-        )
-    ] + ['//'])
-
-
-# baseCounts :: String -> Zip [(String, Int)]
-def baseCounts(baseString):
-    '''Sums for each base type in the given sequence string, with
-       a fifth sum for any characters not drawn from {A, C, G, T}.'''
-    bases = {
-        'A': 0,
-        'C': 1,
-        'G': 2,
-        'T': 3
-    }
-    return zip(
-        list(bases.keys()) + ['Other'],
-        foldl(
-            lambda a: compose(
-                nthArrow(succ)(a),
-                flip(curry(bases.get))(4)
-            )
-        )((0, 0, 0, 0, 0))(baseString)
-    )
-
-
-# -------------------------- TEST --------------------------
-# main :: IO ()
-def main():
-    '''Base counts and sequence displayed in GenBank format
-    '''
-    print(
-        genBankFormatWithBaseCounts('''\
-CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG\
-CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG\
-AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT\
-GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT\
-CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG\
-TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA\
-TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT\
-CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG\
-TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC\
-GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT''')
-    )
-
-
-# ------------------------ GENERIC -------------------------
-
-# chunksOf :: Int -> [a] -> [[a]]
-def chunksOf(n):
-    '''A series of lists of length n, subdividing the
-       contents of xs. Where the length of xs is not evenly
-       divible, the final list will be shorter than n.
-    '''
-    return lambda xs: reduce(
-        lambda a, i: a + [xs[i:n + i]],
-        range(0, len(xs), n), []
-    ) if 0 < n else []
-
-
-# compose :: ((a -> a), ...) -> (a -> a)
-def compose(*fs):
-    '''Composition, from right to left,
-       of a series of functions.
-    '''
-    def go(f, g):
-        def fg(x):
-            return f(g(x))
-        return fg
-    return reduce(go, fs, lambda x: x)
-
-
-# curry :: ((a, b) -> c) -> a -> b -> c
-def curry(f):
-    '''A curried function derived
-       from an uncurried function.
-    '''
-    return lambda x: lambda y: f(x, y)
-
-
-# flip :: (a -> b -> c) -> b -> a -> c
-def flip(f):
-    '''The (curried or uncurried) function f with its
-       arguments reversed.
-    '''
-    return lambda a: lambda b: f(b)(a)
-
-
-# foldl :: (a -> b -> a) -> a -> [b] -> a
-def foldl(f):
-    '''Left to right reduction of a list,
-       using the binary operator f, and
-       starting with an initial value a.
-    '''
-    def go(acc, xs):
-        return reduce(lambda a, x: f(a)(x), xs, acc)
-    return lambda acc: lambda xs: go(acc, xs)
-
-
-# nthArrow :: (a -> b) -> Tuple -> Int -> Tuple
-def nthArrow(f):
-    '''A simple function lifted to one which applies
-       to a tuple, transforming only its nth value.
-    '''
-    def go(v, n):
-        return v if n > len(v) else [
-            x if n != i else f(x)
-            for i, x in enumerate(v)
-        ]
-    return lambda tpl: lambda n: tuple(go(tpl, n))
-
-
-# succ :: Enum a => a -> a
-def succ(x):
-    '''The successor of a value.
-       For numeric types, (1 +).
-    '''
-    return 1 + x
-
-
-# MAIN ---
-if __name__ == '__main__':
-    main()
--- a/Task/Bioinformatics-base-count/Quackery/bioinformatics-base-count.quackery
+++ b/Task/Bioinformatics-base-count/Quackery/bioinformatics-base-count.quackery
@ -1,50 +0,0 @@
-  [ over size -
-    space swap of
-    swap join ]                 is justify     ( $ n --> $ )
-
-  [ 0 swap
-    [ dup $ "" != while
-      cr over number$
-      4 justify echo$
-      5 times
-        [ dup $ "" = iff
-            conclude done
-          sp
-          10 split swap echo$ ]
-       dip [ 50 + ] again ]
-      2drop ]                   is prettyprint (   $ -->   )
-
-   [ stack ]                    is adenine     (     --> s )
-   [ stack ]                    is cytosine    (     --> s )
-   [ stack ]                    is guanine     (     --> s )
-   [ stack ]                    is thymine     (     --> s )
-
-   [ table
-     adenine cytosine
-     guanine thymine ]          is bases       (     --> [ )
-
-  [ 4 times
-      [ 0 i^ bases put ]
-    witheach
-      [ $ "ACGT" find bases
-        1 swap tally ]
-      4 times
-        [ sp
-          i^ bases dup echo
-          sp share echo cr ]
-      0 4 times
-        [ i^ bases take + ]
-      cr say " total " echo ]   is tallybases  (   [ -->   )
-
-  $ "CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG"
-  $ "CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG" join
-  $ "AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT" join
-  $ "GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT" join
-  $ "CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG" join
-  $ "TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA" join
-  $ "TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT" join
-  $ "CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG" join
-  $ "TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC" join
-  $ "GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT" join
-
- dup prettyprint cr cr tallybases
--- a/Task/Bioinformatics-base-count/R/bioinformatics-base-count.r
+++ b/Task/Bioinformatics-base-count/R/bioinformatics-base-count.r
@ -1,42 +0,0 @@
-#Data
-gene1 <- "CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG
-CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG
-AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT
-GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT
-CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG
-TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA
-TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT
-CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG
-TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC
-GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT"
-
-#Analysis:
-gene2 <- gsub("\n", "", gene1) #remove \n chars
-gene3 <- strsplit(gene2, split = character(0)) #split into list
-gene4 <- gene3[[1]] #pull out character vector from list
-basecounts <- as.data.frame(table(gene4)) #make table of base counts
-
-#quick helper function to print table results
-print_row <- function(df, row){paste0(df$gene[row],": ", df$Freq[row])}
-
-#Print Function for Data with Results:
-cat(" Data: \n",
-    "  1:",substring(gene2, 1, 50),"\n",
-    " 51:",substring(gene2, 51, 100),"\n",
-    "101:",substring(gene2, 101, 150),"\n",
-    "151:",substring(gene2, 151, 200),"\n",
-    "201:",substring(gene2, 201, 250),"\n",
-    "251:",substring(gene2, 251, 300),"\n",
-    "301:",substring(gene2, 301, 350),"\n",
-    "351:",substring(gene2, 351, 400),"\n",
-    "401:",substring(gene2, 401, 450),"\n",
-    "451:",substring(gene2, 451, 500),"\n",
-    "\n",
-    "Base Count Results: \n",
-    print_row(basecounts,1), "\n",
-    print_row(basecounts,2), "\n",
-    print_row(basecounts,3), "\n",
-    print_row(basecounts,4), "\n",
-    "\n",
-    "Total Base Count:", paste(length(gene4))
-    )
--- a/Task/Bioinformatics-base-count/REXX/bioinformatics-base-count.rexx
+++ b/Task/Bioinformatics-base-count/REXX/bioinformatics-base-count.rexx
@ -1,36 +0,0 @@
-/*REXX program finds the number of each base in a DNA  string          */
-/*                                         (along with a total).       */
-Parse Arg dna .
-If dna==''|dna==',' Then
-  dna='cgtaaaaaattacaacgtcctttggctatctcttaaactcctgctaaatg',
-      'ctcgtgctttccaattatgtaagcgttccgagacggggtggtcgattctg',
-      'aggacaaaggtcaagatggagcgcatcgaacgcaataaggatcatttgat',
-      'gggacgtttcgtcgacaaagtcttgtttcgagagtaacggctaccgtctt',
-      'cgattctgcttataacactatgttcttatgaaatggatgttctgagttgg',
-      'tcagtcccaatgtgcggggtttcttttagtacgtcgggagtggtattata',
-      'tttaatttttctatatagcgatctgtatttaagcaattcatttaggttat',
-      'cgccgcgatgctcggttcggaccgccaagcatctggctccactgctagtg',
-      'tcctaaatttgaatggcaaacacaaataagatttagcaattcgtgtagac',
-      'gaccggggacttgcatgatgggagcagctttgttaaactacgaacgtaat'
-dna=translate(space(dna,0))          /* elide blanks from DNA; uppercas*/
-Say '--------length of the DNA string: ' length(dna)
-count.=0                          /* initialize the count for all bases*/
-w=1                               /* the maximum width of a base count */
-names=''                          /* list of all names                 */
-Do j=1 To length(dna)             /* traipse through the  DNA  string  */
-  name=substr(dna,j,1)            /* obtain a base name from the DNA   */
-  If pos(name,names)==0 Then
-    names=names||name             /* if not found, add it to the list  */
-  count.name=count.name+1         /* bump the count of this base.      */
-  w=max(w,length(count.name))     /* compute the maximum number width  */
-  End
-Say
-Do k=0 To 255
-  z=d2c(k)                        /* traipse through all possibilities */
-  If pos(z,names)>0 Then Do
-    Say '     base ' z ' has a basecount of: ' right(count.z,w)
-    count.tot=count.tot+count.z   /* add to a grand total to verify    */
-    End
-  End
-Say
-Say '--------total for all basecounts:' right(count.tot,w+1)
--- a/Task/Bioinformatics-base-count/Racket/bioinformatics-base-count.rkt
+++ b/Task/Bioinformatics-base-count/Racket/bioinformatics-base-count.rkt
@ -1,55 +0,0 @@
-#lang racket
-
-(define (fold-sequence seq kons #:finalise (finalise (λ x (apply values x))) . k0s)
-  (define (recur seq . ks)
-    (if (null? seq)
-      (call-with-values (λ () (apply finalise ks)) (λ vs (apply values vs)))
-      (call-with-values (λ () (apply kons (car seq) ks)) (λ ks+ (apply recur (cdr seq) ks+)))))
-  (apply recur (if (string? seq) (string->list (regexp-replace* #px"[^ACGT]" seq "")) seq) k0s))
-
-(define (sequence->pretty-printed-string seq)
-  (define (fmt idx cs-rev) (format "~a: ~a" (~a idx #:width 3 #:align 'right) (list->string (reverse cs-rev))))
-  (fold-sequence
-    seq
-    (λ (b n start-idx lns-rev cs-rev)
-       (if (zero? (modulo n 50))
-	 (values (+ n 1) n (if (pair? cs-rev) (cons (fmt start-idx cs-rev) lns-rev) lns-rev) (cons b null))
-	 (values (+ n 1) start-idx lns-rev (cons b cs-rev))))
-    0 0 null null
-    #:finalise (λ (n idx lns-rev cs-rev)
-		(string-join (reverse (if (null? cs-rev) lns-rev (cons (fmt idx cs-rev) lns-rev))) "\n"))))
-
-(define (count-bases b as cs gs ts n)
-  (values (+ as (if (eq? b #\A) 1 0))
-	  (+ cs (if (eq? b #\C) 1 0))
-	  (+ gs (if (eq? b #\T) 1 0))
-	  (+ ts (if (eq? b #\G) 1 0))
-	  (add1 n)))
-
-(define (bioinformatics-Base_count s)
-  (define-values (as cs gs ts n) (fold-sequence s count-bases 0 0 0 0 0))
-  (printf "SEQUENCE:~%~%~a~%~%" (sequence->pretty-printed-string s))
-  (printf "BASE COUNT:~%-----------~%~%~a~%~%"
-	  (string-join (map (λ (c n) (format " ~a :~a" c (~a #:width 4 #:align 'right n)))
-			    '(A T C G)
-			    (list as ts cs gs)) "\n"))
-  (newline)
-  (printf "TOTAL: ~a~%" n))
-
-(module+
-  main
-  (define the-string
-    #<<EOS
-CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG
-CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG
-AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT
-GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT
-CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG
-TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA
-TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT
-CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG
-TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC
-GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT
-EOS
-)
-  (bioinformatics-Base_count the-string))
--- a/Task/Bioinformatics-base-count/Raku/bioinformatics-base-count.raku
+++ b/Task/Bioinformatics-base-count/Raku/bioinformatics-base-count.raku
@ -1,21 +0,0 @@
-my $dna = join '', lines q:to/END/;
-    CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG
-    CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG
-    AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT
-    GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT
-    CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG
-    TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA
-    TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT
-    CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG
-    TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC
-    GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT
-    END
-
-
-put pretty($dna, 80);
-put "\nTotal bases: ", +my $bases = $dna.comb.Bag;
-put $bases.sort(~*.key).join: "\n";
-
-sub pretty ($string, $wrap = 50) {
-    $string.comb($wrap).map( { sprintf "%8d: %s", $++ * $wrap, $_ } ).join: "\n"
-}
--- a/Task/Bioinformatics-base-count/Ring/bioinformatics-base-count.ring
+++ b/Task/Bioinformatics-base-count/Ring/bioinformatics-base-count.ring
@ -1,39 +0,0 @@
-dna = "" +
-      "CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG" +
-      "CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG" +
-      "AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT" +
-      "GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT" +
-      "CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG" +
-      "TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA" +
-      "TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT" +
-      "CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG" +
-      "TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC" +
-      "GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT"
-
-dnaBase = [:A=0, :C=0, :G=0, :T=0]
-lenDna = len(dna)
-for n = 1 to lenDna
-    dnaStr = substr(dna,n,1)
-    switch dnaStr
-           on "A"
-              strA = dnaBase["A"]
-              strA++
-              dnaBase["A"] = strA
-           on "C"
-              strC = dnaBase["C"]
-              strC++
-              dnaBase["C"] = strC
-           on "G"
-              strG = dnaBase["G"]
-              strG++
-              dnaBase["G"] = strG
-           on "T"
-              strT = dnaBase["T"]
-              strT++
-              dnaBase["T"] = strT
-     off
-next
-? "A : " + dnaBase["A"]
-? "T : " + dnaBase["T"]
-? "C : " + dnaBase["C"]
-? "G : " + dnaBase["G"]
--- a/Task/Bioinformatics-base-count/Ruby/bioinformatics-base-count.rb
+++ b/Task/Bioinformatics-base-count/Ruby/bioinformatics-base-count.rb
@ -1,23 +0,0 @@
-dna = <<DNA_STR
-CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG
-CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG
-AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT
-GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT
-CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG
-TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA
-TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT
-CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG
-TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC
-GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT
-DNA_STR
-
-chunk_size = 60
-dna        = dna.delete("\n")
-size       = dna.size
-
-0.step(size, chunk_size) do |pos|
-  puts "#{pos.to_s.ljust(6)} #{dna[pos, chunk_size]}"
-end
-
-puts dna.chars.tally.sort.map{|ar| ar.join(" : ") }
-puts "Total : #{dna.size}"
--- a/Task/Bioinformatics-base-count/Rust/bioinformatics-base-count.rs
+++ b/Task/Bioinformatics-base-count/Rust/bioinformatics-base-count.rs
@ -1,38 +0,0 @@
-use std::collections::HashMap;
-
-fn main() {
-    let dna = "CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG\
-CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG\
-AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT\
-GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT\
-CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG\
-TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA\
-TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT\
-CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG\
-TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC\
-GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT";
-
-    let mut base_count = HashMap::new();
-    let mut total_count = 0;
-    print!("Sequence:");
-    for base in dna.chars() {
-        if total_count % 50 == 0 {
-            print!("\n{:3}: ", total_count);
-        }
-        print!("{}", base);
-        total_count += 1;
-        let count = base_count.entry(base).or_insert(0); // Return current count for base or insert 0
-        *count += 1;
-    }
-    println!("\n");
-    println!("Base count:");
-    println!("-----------");
-
-    let mut base_count: Vec<_> = base_count.iter().collect(); // HashMaps can't be sorted, so collect into Vec
-    base_count.sort_by_key(|bc| bc.0); // Sort bases alphabetically
-    for (base, count) in base_count.iter() {
-        println!("  {}: {:3}", base, count);
-    }
-    println!();
-    println!("Total: {}", total_count);
-}
--- a/Task/Bioinformatics-base-count/Swift/bioinformatics-base-count.swift
+++ b/Task/Bioinformatics-base-count/Swift/bioinformatics-base-count.swift
@ -1,22 +0,0 @@
-import Foundation
-
-let dna = """
-          CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG
-          CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG
-          AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT
-          GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT
-          CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG
-          TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA
-          TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT
-          CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG
-          TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC
-          GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT
-          """
-
-print("input:\n\(dna)\n")
-
-let counts =
-  dna.replacingOccurrences(of: "\n", with: "").reduce(into: [:], { $0[$1, default: 0] += 1 })
-
-print("Counts: \(counts)")
-print("Total: \(counts.values.reduce(0, +))")
--- a/Task/Bioinformatics-base-count/Tcl/bioinformatics-base-count.tcl
+++ b/Task/Bioinformatics-base-count/Tcl/bioinformatics-base-count.tcl
@ -1,28 +0,0 @@
-namespace path ::tcl::mathop
-
-proc process {data {width 50}} {
-	set len [string length $data]
-	set addrwidth [string length [* [/ $len $width] $width]]
-	for {set i 0} {$i < $len} {incr i $width} {
-		puts "[format %${addrwidth}u $i] [string range $data $i $i+[- $width 1]]"
-	}
-	puts "\nBase count:"
-	foreach base {A C G T} {
-		puts "$base     [regexp -all $base $data]"
-	}
-	puts "Total $len"
-}
-
-
-set test [string cat \
-			  CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG \
-			  CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG \
-			  AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT \
-			  GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT \
-			  CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG \
-			  TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA \
-			  TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT \
-			  CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG \
-			  TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC \
-			  GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT]
-process $test 50
--- a/Task/Bioinformatics-base-count/Uxntal/bioinformatics-base-count.uxnatl
+++ b/Task/Bioinformatics-base-count/Uxntal/bioinformatics-base-count.uxnatl
@ -1,80 +0,0 @@
-%\n { 0a }  %\s { 20 }  %\0 { 00 }
-%newline { [ LIT2 \n -Console/write ] DEO }
-
-|18 @Console/write
-
-|100
-
-;data base-count
-
-BRK
-
-@base-count ( data* -- )
-	LDAk
-	DUP #0a NEQ ?{ !/next }
-	DUP [ LIT "A ] NEQ ?{
-		[ LIT2 &adenine $2 ]  INC2 ,/adenine  STR2 !/resume }
-	DUP [ LIT "C ] NEQ ?{
-		[ LIT2 &cytosine $2 ] INC2 ,/cytosine STR2 !/resume }
-	DUP [ LIT "G ] NEQ ?{
-		[ LIT2 &guanine $2 ]  INC2 ,/guanine  STR2 !/resume }
-	DUP [ LIT "T ] NEQ ?{
-		[ LIT2 &thymine $2 ]  INC2 ,/thymine  STR2 }
-
-	&resume
-		[ LIT2 &total $2 ]    INC2 ,/total    STR2
-
-	&next
-		POP
-		INC2 LDAk ?base-count
-
-	POP2
-
-	;msgs/sequence print/str
-	;data          print/str
-	;msgs/header   print/str
-	;msgs/adenine  print/str ,/adenine  LDR2 print/dec newline
-	;msgs/cytosine print/str ,/cytosine LDR2 print/dec newline
-	;msgs/guanine  print/str ,/guanine  LDR2 print/dec newline
-	;msgs/thymine  print/str ,/thymine  LDR2 print/dec newline
-	;msgs/total    print/str ,/total    LDR2 print/dec newline
-	
-	JMP2r
-
-@print/str ( str* -- )
-	LDAk .Console/write DEO
-	INC2 LDAk ?/str
-	POP2 JMP2r
-
-@print/dec ( short* -- )
-	#000a SWP2 [ LITr ff ]
-	
-	&dec/get
-		SWP2k DIV2k MUL2 SUB2 STH
-		POP OVR2 DIV2 ORAk ?/dec/get
-	POP2 POP2
-	
-	&dec/put
-		STHr INCk ?{ POP JMP2r }
-		[ LIT "0 ] ADD .Console/write DEO !/dec/put
-
-@data [
-	"CGTAAAAAATTACAACGTCCTTTGG "CTATCTCTTAAACTCCTGCTAAATG \n
-	"CTCGTGCTTTCCAATTATGTAAGCG "TTCCGAGACGGGGTGGTCGATTCTG \n
-	"AGGACAAAGGTCAAGATGGAGCGCA "TCGAACGCAATAAGGATCATTTGAT \n
-	"GGGACGTTTCGTCGACAAAGTCTTG "TTTCGAGAGTAACGGCTACCGTCTT \n
-	"CGATTCTGCTTATAACACTATGTTC "TTATGAAATGGATGTTCTGAGTTGG \n
-	"TCAGTCCCAATGTGCGGGGTTTCTT "TTAGTACGTCGGGAGTGGTATTATA \n
-	"TTTAATTTTTCTATATAGCGATCTG "TATTTAAGCAATTCATTTAGGTTAT \n
-	"CGCCGCGATGCTCGGTTCGGACCGC "CAAGCATCTGGCTCCACTGCTAGTG \n
-	"TCCTAAATTTGAATGGCAAACACAA "ATAAGATTTAGCAATTCGTGTAGAC \n
-	"GACCGGGGACTTGCATGATGGGAGC "AGCTTTGTTAAACTACGAACGTAAT \n \0 ]
-
-@msgs [
-	&header   \n "BASE \s "COUNT: \n \0
-	&sequence "SEQUENCE: \n \0
-	&adenine  \s \s \s "Adenine: \s \0
-	&cytosine \s \s "Cytosine: \s \0
-	&guanine  \s \s \s "Guanine: \s \0
-	&thymine  \s \s \s "Thymine: \s \0
-	&total    \s \s \s \s \s "Total: \s \0 ]
--- a/Task/Bioinformatics-base-count/V-(Vlang)/bioinformatics-base-count.v
+++ b/Task/Bioinformatics-base-count/V-(Vlang)/bioinformatics-base-count.v
@ -1,37 +0,0 @@
-fn main() {
-    dna := "" +
-        "CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG" +
-        "CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG" +
-        "AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT" +
-        "GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT" +
-        "CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG" +
-        "TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA" +
-        "TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT" +
-        "CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG" +
-        "TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC" +
-        "GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT"
-
-    println("SEQUENCE:")
-    le := dna.len
-    for i := 0; i < le; i += 50 {
-        mut k := i + 50
-        if k > le {
-            k = le
-        }
-        println("${i:5}: ${dna[i..k]}")
-    }
-    mut base_map := map[byte]int{} // allows for 'any' base
-    for i in 0..le {
-        base_map[dna[i]]++
-    }
-    mut bases := base_map.keys()
-	bases.sort()
-
-    println("\nBASE COUNT:")
-    for base in bases {
-        println("    $base: ${base_map[base]:3}")
-    }
-    println("    ------")
-    println("    Σ: $le")
-    println("    ======")
-}
--- a/Task/Bioinformatics-base-count/VBScript/bioinformatics-base-count.vb
+++ b/Task/Bioinformatics-base-count/VBScript/bioinformatics-base-count.vb
@ -1,31 +0,0 @@
-b=_
-"CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG" &_
-"CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG" &_
-"AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT" &_
-"GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT" &_
-"CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG" &_
-"TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA" &_
-"TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT" &_
-"CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG" &_
-"TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC" &_
-"GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT"
-
-s="SEQUENCE:"
-acnt=0:ccnt=0:gcnt=0:tcnt=0
-
-for i=0 to len(b)-1
-  if (i mod 30)=0 then s = s & vbcrlf & right("   "& i+1,3)&": "
-  if (i mod 5)=0 then s=s& " "
-  m=mid(b,i+1,1)
-  s=s & m
-  select case m
-  case "A":acnt=acnt+1
-  case "C":ccnt=ccnt+1
-  case "G":gcnt=gcnt+1
-  case "T":tcnt=tcnt+1
-  case else
-     wscript.echo "error at ",i+1, m
-  end select
-next
-wscript.echo s & vbcrlf
-wscript.echo "Count: A="&acnt & " C=" & ccnt & " G=" & gcnt & " T=" & tcnt
--- a/Task/Bioinformatics-base-count/Wren/bioinformatics-base-count.wren
+++ b/Task/Bioinformatics-base-count/Wren/bioinformatics-base-count.wren
@ -1,38 +0,0 @@
-import "./fmt" for Fmt
-import "./sort" for Sort
-import "./iterate" for Stepped
-
-var dna = "CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG" +
-          "CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG" +
-          "AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT" +
-          "GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT" +
-          "CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG" +
-          "TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA" +
-          "TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT" +
-          "CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG" +
-          "TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC" +
-          "GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT"
-
-System.print("SEQUENCE:")
-var le = dna.count
-for (i in Stepped.new(0...le, 50)) {
-    var k = i + 50
-    if (k > le) k = le
-    System.print("%(Fmt.d(5, i)): %(dna[i...k])")
-}
-var baseMap = {} // allows for 'any' base
-for (i in 0...le) {
-    var d = dna[i]
-    var v = baseMap[d]
-    baseMap[d] = !v ? 1 : v + 1
-}
-var bases = baseMap.keys.toList
-Sort.quick(bases)
-
-System.print("\nBASE COUNT:")
-for (base in bases) {
-    System.print("    %(base): %(Fmt.d(3, baseMap[base]))")
-}
-System.print("    ------")
-System.print("    Σ: %(le)")
-System.print("    ======")
--- a/Task/Bioinformatics-base-count/XPL0/bioinformatics-base-count.xpl0
+++ b/Task/Bioinformatics-base-count/XPL0/bioinformatics-base-count.xpl0
@ -1,35 +0,0 @@
-char    Bases;
-int     Counts(256), Cnt, I, Ch;
-[Bases:= "
-CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG
-CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG
-AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT
-GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT
-CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG
-TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA
-TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT
-CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG
-TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC
-GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAATx ";
-
-for I:= 0 to 255 do Counts(I):= 0;
-Format(5, 0);
-Cnt:= 0;
-I:= 0;
-loop    [repeat Ch:= Bases(I);
-                I:= I+1;
-                if Ch = ^x then quit;
-                Counts(Ch):= Counts(Ch)+1;
-                ChOut(0, Ch);
-        until   Ch = \LF\$0A;
-        RlOut(0, float(Cnt));  Text(0, ": ");
-        Cnt:= Cnt + 50;
-        ];
-CrLf(0);  CrLf(0);
-Text(0, "Base counts A: ");  IntOut(0, Counts(^A));
-Text(0, " C: ");  IntOut(0, Counts(^C));
-Text(0, " G: ");  IntOut(0, Counts(^G));
-Text(0, " T: ");  IntOut(0, Counts(^T));
-Text(0, "
-Total: ");  IntOut(0, Cnt);  CrLf(0);
-]
--- a/Task/Bioinformatics-base-count/Zkl/bioinformatics-base-count.zkl
+++ b/Task/Bioinformatics-base-count/Zkl/bioinformatics-base-count.zkl
@ -1,19 +0,0 @@
-bases:=
-#<<<"
-CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG
-CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG
-AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT
-GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT
-CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG
-TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA
-TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT
-CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG
-TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC
-GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT" - " \n";
-#<<<
-
-[0..*,50].zipWith(fcn(n,bases){ println("%6d: %s".fmt(n,bases.concat())) },
-   bases.walker().walk.fp(50)).pump(Void);  // .pump forces the iterator
-
-println("\nBase Counts: ", bases.counts().pump(String,Void.Read,"%s: %d  ".fmt));
-println("Total: ",bases.len());