Classical Canonical Evolutionary Algorithm

• Mutation is bitflip mutation

• sub mutateBinary {

• my $chromosome = shift;

• my $mutationPoint = rand( length( $chromosome->{_str}));

• my $bit = substr( $chromosome->{_str}, $mutationPoint, 1 );

• }

• Finds the solution: eventually.

Notas: