note
Ovid
Nothing fancy... just some spare time on my hands
<code>
#!/usr/local/perl
use Create;
DAY_1: {
$universe = Create->new();
$universe->addLight;
}
DAY_2: {
while ( 1 ) {
@firmament = split $universe->existence, 2;
last DAY_2 if $#firmament;
}
}
DAY_3: {
$water = [];
$land = [];
# Hmm... God should know better than to use an experimental
# feature such as a pseudo-hash. Explains quite
# a bit, really
$firmament[0] = [ { water => 1,
land => 2, }
$water, $land ];
}
DAY_4: {
$universe->hookUpLights;
}
DAY_5: {
push @{ $firmament[0]->{ water } }, $_
for( "fish", "cetaceans", "calamari (live and minus the breading)" );
push @{ $firmament[0]->{ land } }, $_
for ( "cattle", "serpents", "birds" );
}
DAY_6: {
$firmament[0]->[ $firmament[0]->[ 0 ]->{ ExtraStuff } = @{ $firmament[0] } ] = "Humans";
# Ya see, he had to put humans somewhere to allow them to rule over animals,
# so he stuck them in the $firmament[0] pseudo-hash
# Poor planning if I ever saw it...
}
DAY_7_AND_BEYOND: {
sleep while 1;
}
</code>
<P>
Cheers,<br>
<a href="/index.pl?node=Ovid&lastnode_id=1072">Ovid</a>
<P>
<FONT SIZE=1>Join the <A HREF="http://setiathome.ssl.berkeley.edu/stats/team/team_86606.html">Perlmonks Setiathome Group</A> or just click on the the link and check out our stats.</FONT>
49407
49410