Sex: Crossover

• Do {

• $clone1 = { _str => $chr1->{_str}, _fitness => 0 };

• $clone2 = { _str => $chr2->{_str}, _fitness => 0 };

• mutate( $clone1, \@alphabet ); mutate( $clone2, \@alphabet );

• crossover( $clone1, $clone2 );

• $clone1->{_fitness} = fitness( $clone1->{_str} );

• $clone2->{_fitness} = fitness( $clone2->{_str} );

• } until (

• ($clone1->{_fitness} < $population[$#population]->{_fitness}) ||

• ($clone2->{_fitness} < $population[$#population]->{_fitness}));

• if ($clone1->{_fitness} > $population[$#population]->{_fitness}) {

• $population[$#population]=$clone1;

• } else {

• $population[$#population]=$clone1;

• }

Notas: