Counting Point Mutations

Author: L. Grondin

Evolution as a Sequence of Mistakes

http://rosalind.info/problems/hamm/

Sample input

GAGCCTACTAACGGGAT
CATCGTAATGACGGCCT

Sample output

7

Source code: hamm-grondilu.pl

use v6;

sub MAIN(@default-data = qw{GAGCCTACTAACGGGAT CATCGTAATGACGGCCT}) {
    my ($S, $t) = @default-data;
    say [+] ($S.comb Zeq $t.comb.not».Int;
}