Intro: EA and Perl: AI::Gene: mutation

• sub mutate_minor {

• my $self = shift;

• my $num = +$_[0] || 1;

• my $rt = 0;

• for (1..$num) {

• my $glen = scalar @{$self->[0]};

• my $pos = defined $_[1] ? $_[1] : int rand $glen;

• next if $pos >= $glen; # pos lies outside of gene

• my $token = $self->generate_token();

• $self->[0][$pos] = $token;

• $rt++;

• }

• return $rt;

• }

Notas: