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