Nothing fancy... just some spare time on my hands
#!/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 breadi
+ng)" );
push @{ $firmament[0]->{ land } }, $_
for ( "cattle", "serpents", "birds" );
}
DAY_6: {
$firmament[0]->[ $firmament[0]->[ 0 ]->{ ExtraStuff } = @{ $firmam
+ent[0] } ] = "Humans";
# Ya see, he had to put humans somewhere to allow them to rule ove
+r 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;
}
Cheers,
Ovid
Join the Perlmonks Setiathome Group or just click on the the link and check out our stats. |