Intro: EA and Perl: AI::Gene: crossover

• sub crossover {

• my ($chr1, $chr2) = @_;

• my $length = scalar( @{$chr1->[0]});

• my $crossoverPoint = int (rand( $length));

• my $range = int( rand( $length - $crossoverPoint ));

• my @tmpAry = @{$chr1->[0]};

• @{$chr1->[0]}[$crossoverPoint..($crossoverPoint+$range)]

• =@{$chr2->[0]}[$crossoverPoint..($crossoverPoint+$range)];

• @{$chr2->[0]}[ $crossoverPoint..($crossoverPoint+ $range)]

• =@tmpAry[ $crossoverPoint..($crossoverPoint+ $range)];

• }

Notas: