### Comment on

 Need Help??
Well, so far, this looks promising. After spending a couple of hours just blindly rushing into it, I'm getting some pretty fast convergence on the basic criteria (rooms as occupied as possible, no room overbooked, no teacher overbooked, rudimentary bias) with the following code. I'm generally seeing convergence in about 20 generations, or about 15 seconds of real time.
```#!/usr/bin/perl
use strict;
\$|++;

my @CLASSES = split /\s+/, <<'END';
XXX
a-1 a-2 a-3 a-4 a-5
b-1 b-2 b-3 b-4 b-5
c-1 c-2 c-3
d-1 d-2 d-3 d-4 d-5
e-1 e-2 e-3 e-4
f-1 f-2 f-3 f-4 f-5 f-6
g-1
END

my \$SLOTS = 6;
my \$ROOMS = 3;

use AI::Genetic;

my \$ga = AI::Genetic->new
(
-fitness => \&my_fitness,
-type => 'listvector',
-terminate => \&my_terminate,
);

\$ga->init([(\@CLASSES) x (\$SLOTS * \$ROOMS)]);
\$ga->evolve(rouletteTwoPoint => 20);
print "final winners\n";
for my \$i (\$ga->getFittest(5)) {
show_individual(\$i);
}

sub show_individual {
my \$i = shift;
printf "score: %g\n", \$i->score;
my @g = \$i->genes;
while (@g) {
print "  ", join " ", splice @g, 0, \$ROOMS;
print "\n";
}
print "\n";
}

sub my_fitness {
my \$genes = shift;
my \$score = 0;

## process slot by slot
my %seen;
my @g = @\$genes;
while (@g) {
my @rooms = splice @g, 0, \$ROOMS;
my %teacher_seen;
for (@rooms) {
## "in with the good"...
\$score++ if /-/;           # good if scheduled (no room left beh
+ind!)
\$score += 0.5 if /3/;       # good if it's a 3 (simulate user de
+mand)

## "and out with the bad"...
\$score -= 100 if /-/ and \$seen{\$_}++; # bad if duplicated
if (/(.+)-/) {         # actual class?
\$score -= 100 if \$teacher_seen{\$1}++;
}
}
}
return \$score;
}

sub my_terminate {
my \$ga = shift;
print "[", \$ga->getFittest->score, "]";
## show_individual(\$ga->getFittest);
return 0;            # do not terminate
}

-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":

• Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
• Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
• Read Where should I post X? if you're not absolutely sure you're posting in the right place.
• Posts may use any of the Perl Monks Approved HTML tags:
a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
• You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
 For: Use: & & < < > > [ [ ] ]
• Link using PerlMonks shortcuts! What shortcuts can I use for linking?

Create A New User
Chatterbox?
 [Lady_Aleena]: I have to stop playing with my random generators and get them moved, though I already found 2 that were broken.

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (9)
As of 2017-05-30 10:15 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
My favorite model of computation is ...

Results (196 votes). Check out past polls.