On Tue, Apr 09, 2002 at 01:26:00PM +0100, Jonathan E. Paton wrote:
> Recently, people have suggested human parsable quotables about
> the meaning of life^H^H^H^Hgolf. I think it would be
> appropriate to join together as a community, and come up with
> a golf poem.
Taking on this idea, I have scribbled down a little narration
of my own experience for this course. The script doesn't do much,
but it passes 'perl -c'.
And I just love its last line. ^.^
Enjoy,
`/anick
#!perl
# Dueling Dingos v1.0, by Yanick Champoux (9/4/2002)
#
# Inspired by the TPR(0,2) Perl Golf contest.
# Name haven't been changed, since the involved
# parties could hardly be labelled as 'innocent',
# and are way far too gone to protect anyway.
wait until localtime > @April[0]; # wait until the first of April
BEGIN{}
study and seek FOR, $some, $inspiration;
write $stuff;
$score = 145; # no good;
delete $stuff { I_can_do_without }
and do $more_stuff;
delete $even{more_stuff};
reverse $engineer; study; eval $strategy and redo;
write, write, write;
delete $_{'!'}, delete $"{"@!"}, delete $@{'*'}; # must stop cursing
use less 'characters', $durnit;
read THE, $current, $solution;
not 2, $bad;
delete $white_spaces{''} until $program == glob;
for( $all, my @troubles )
{
unlink 1, $character;
}
ARGH:
$must, not $despair;
$I->can(do{ $it });
study new Idea;
m/mmmm/m... do{able};
kill $chickens;
'ask', $Nanabozo, 2, bless $me, 'with more inspiration';
$so, close; warn $mailing_list and alarm $Andrew;
$toil until my $solution < q/-\ndrew's
/;
GOT_IT:
send $solution, $to, ref;
$brain, shutdown I,'m dead';
goto sleep;
wait; $till, $the, $day, $after;
readline last $scoreboard;
grep $all, stat;
read THE, $stats, $again until $it_sinks_in;
$Andrew,'s score' lt $mine;
$eyeball, pop @o
;
--
;s||kcl Prhlocn acnt oPeYcn|s; # tnirp ; m:-= I palindrome I =-:m;
;;;y&'YetanohrPlck'&'kclPrhonateY'&&&'YetanohrPlck'&'kclPrhonateY'&y;;;
;m:-= I emordnilap I =-:m ; print # ;s|ncYePo tnca ncolhrP lck||s;
