A couple more:
# this one's a bit contrived...
for($recent..$later) {
$live .= $interesting * $_;
}
do {
$dreams =~ s/Terror(?:Death)//
} while $dreams;
# as is this one...
$alien = `touch`;
for (0..5) {
push@time,scalar(localtime);
sleep 1;
}
print $_,$/ for @time;
sub human {
-t $man;
}
while (!$home) {
if (fork) {
$home++;
} else {
$home--;
}
}
(spoilers):
Interesting Times (Terry Pratchett)
The Dream Cycle: Dreams of Terror and Death (H.P.Lovecraft)
Contact (Carl Sagan)
A brief History of Time (Stephen Hawking)
Terminal Man (Michael Chrichton)
The Odyssey (Homer)
|
jynx
Update: Restructured some of the code to something remotely worthwhile...