Algorithm::Evolutionary: Canonical GA

• use Algorithm::Evolutionary::Experiment;

• use Algorithm::Evolutionary::Op::Easy;

• my $fitness = sub {

• my $indi = shift;

• my $total = grep($_==1,split(//,$indi->Chrom() ));

• return $total;

• };

Notas: