Our Sponsors



Download BioinformaticsOnline(BOL) Apps in your chrome browser.




Perl6 script to count ATGC !

use v6; my $default-input = "AGCTTTTCATTCTGACTGCAACGGGCAATATGTCTCTGTGTGGATTAAAAAAAGAGTGTCTGATAGCAGC"; sub MAIN($input = $default-input) { "{<A C G T>.map({ +$input.comb(/$_/) })}".say; } #I love perl v6

Comments