Sex: Crossover

• sub crossover {

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

• my $crossoverPoint = int (rand( length( $chr1->{_str}) - 1));

• my $range = int( rand( length( $chr1->{_str}) - $crossoverPoint + 1));

• my $str = $chr1->{_str};

• substr( $chr1->{_str}, $crossoverPoint, $range,

• substr( $chr2->{_str}, $crossoverPoint, $range));

• substr( $chr2->{_str}, $crossoverPoint, $range,

• substr( $str, $crossoverPoint, $range ));

• }

Notas: