Select Code to Download

    my $gene_length         = gene_length();

sub gene_length {
    my @gls = ();
...
    }
    return ( $gls[0] );
}

sub gene_length {
    my $len = length( each %genome );
...
    }
    return $len;
}

my %genome          = (
    '0001' => '1', '0010' => '2', '0011' => '3', '0100' => '4', '0101'
+ => '5',
...
    '1010' => '+', '1011' => '-', '1100' => '*', '1101' => '/'
);
my $gene_length = gene_length();

sub get_nonrandom_chromosome {

...
    }
    return ($nonrandom_chromosome);
}

sub get_nonrandom_chromosome {
    my @scores = map { get_fitness_score($_) } @population;
...
        return $population[ $i ] if $temp_score > $rulet_position;
    }
}

my %memo;
sub get_result {
    return $memo{ $_[0] } //= evalExpr( get_phenotype( $_[0], $gene_le
+ngth ) );
}

sub evalExpr {
     local $_ = shift;
...

     return $_;
}