summary refs log blame commit diff stats
path: root/raku/nucleotide-count/NucleotideCount.rakumod
blob: 03bae38c431026e08ac9f32e3a7774de341b6e36 (plain) (tree)
1
2
3
4
5
6





                                              
unit module NucleotideCount;

subset DNA of Str where * !~~ /<-[ACGT]>/;
sub nucleotide-count (DNA $strand) is export {
    $strand.comb.Bag;
}
ass="w"> use fake # screens. recipe main [ open-console print-character 0/screen, 97/a, 2/red 1:number/raw, 2:number/raw <- cursor-position 0/screen wait-for-event 0/console clear-screen 0/screen move-cursor 0/screen, 0/row, 4/column print-character 0/screen, 98/b wait-for-event 0/console move-cursor 0/screen, 0/row, 0/column clear-line 0/screen wait-for-event 0/console cursor-down 0/screen wait-for-event 0/console cursor-right 0/screen wait-for-event 0/console cursor-left 0/screen wait-for-event 0/console cursor-up 0/screen wait-for-event 0/console close-console ]