Counting DNA Nucleotides
AUTHOR
gerdr
http://rosalind.info/problems/dna/
Sample input
AGCTTTTCATTCTGACTGCAACGGGCAATATGTCTCTGTGTGGATTAAAAAAAGAGTGTCTGATAGCAGC
Sample output
20 12 17 21
use v6;
my $default-input = "AGCTTTTCATTCTGACTGCAACGGGCAATATGTCTCTGTGTGGATTAAAAAAAGAGTGTCTGATAGCAGC";
sub MAIN($input = $default-input) {
"{<A C G T>.map({ +$input.comb(/$_/) })}".say;
}
# vim: expandtab shiftwidth=4 ft=perl6