view release on metacpan or  search on metacpan

lib/Algorithm/Evolve.pm  view on Meta::CPAN

5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
use List::Util qw/shuffle/;
 
our (%SELECTION, %REPLACEMENT);
our $VERSION = '0.03';
our $DEBUG   = 0;
 
my $rand_max = (1 << 31); ## close enough
 
###########################
 
sub debug {
    print @_, "\n" if $DEBUG;
}
 
sub new {
    my $pkg = shift;
 
    my $p = bless {
        generations      => 0,
        parents_per_gen  => 2,
        @_