Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change

BEGIN { obsession }

by thelenm (Vicar)
on Jun 19, 2002 at 16:27 UTC ( #175764=poem: print w/replies, xml ) Need Help??

I've been sucked into Perl Golf. This is my first Perl poem, and it describes my first real Perl Golf experience. I call it BEGIN { obsession }. It doesn't do anything nifty, but it compiles :-)
BEGIN { obsession } $bored, @bored, %bored... seek fun, challenge, & thrills (y?ou like perl??? *yep*! y?ou like golf??? *yep*! !! y!ou'll love perl golf !! ...try it.out: join @maili +ng_list. next Friday, localtime 6:00... ${time for @tpr[0,3], cantor, kolakoski +}, write $quick{solution}. ${bless $self for @cleverness}. read leaderboard +, $what,the ^&_)#!@^??? ... not even ^close^ my $score? 243.50. $best_score? 96.36. seek $ideas, $answers, $clues: read, $Gooooogle, perldoc: study $santa, get(even), @tpr[0,0..2], past winning;solutions: { sort my $thoughts and redo solutions, $completely... shift one_char => here, push another => there, $score--, $score--, $score--... Hooray, you passed. send $solution, wait... hope(ref$ {accept $solution, as-is}), am_i_climbing(leaderboard)? y.e.s... sort of @slowly. next Friday, localtime 5:45... (T-15.00, $place==12, sleep $recently== +0)} chomp @fingernails, pop @eyeballs, split @nerves, kill $keyboard and d +ie 5... 4, 3... 2, 1... "This course is now closed". accept $defeat, @ hands {of($aliens)}. last of_all... close @eyes and sleep

-- Mike


Replies are listed 'Best First'.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: poem [id://175764]
Approved by mirod
Front-paged by MeowChow
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (3)
As of 2018-05-20 13:05 GMT
Find Nodes?
    Voting Booth?