Very cool :)
One small nitpick though, is the use of map in void context. Specifically (in Individual->get_code):
my $code = "";
map { $code .= $_} (@{$self->{GENES}});
could be:
my $code = join('', @{$self->{GENES}});
Also, if your Individual->create() method
returned $self at the end,
you could change this (in Population->new):
for my $i (0 .. $self->{SIZE}) {
my $individual = Individual->new();
$individual->create();
push (@{$self->{INDIVIDUALS}}, $individual);
}
To this:
push (@{$self->{INDIVIDUALS}}, Individual->new->create) for 0..$self->
+{SIZE};
Or maybe even this:
$self->{INDIVIDUALS} = [ map {Individual->new->create} 0..$self->{SIZE
+} ];
But now I'm probably being too nit-picky :)
</code>
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.