计算 DNA 核苷酸

作者：L. Grondin

http://rosalind.info/problems/dna/

示例输入

AGCTTTTCATTCTGACTGCAACGGGCAATATGTCTCTGTGTGGATTAAAAAAAGAGTGTCTGATAGCAGC

示例输出

20 12 17 21

源代码：dna-grondilu.pl

use v6;

my $default-input = "AGCTTTTCATTCTGACTGCAACGGGCAATATGTCTCTGTGTGGATTAAAAAAAGAGTGTCTGATAGCAGC";

sub MAIN(Str $input = $default-input) {
    say "{bag($input.comb)<A C G T>}";
}