Select Code to Download

sub sortIndividuals {
  my ($self, $list) = @_;

  return [sort {$b->score <=> $a->score} map {$_->score;$_} @$list];
}

sort {$b->score <=> $a->score}

sort {$b->score <=> $a->score} map {$_->score;$_}

#!/usr/bin/perl
use strict;
...
  ## show_individual($ga->getFittest);
  return 0;            # do not terminate
}

my $ga = AI::Genetic->new
  (
...
  );

$ga->init([map {[0,100]} @CLASSES]);

sub make_config {
  my (@genes) = @_;
...
  }
  $config;
}

--
@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/