Beefy Boxes and Bandwidth Generously Provided by pair Networks Joe
P is for Practical
 
PerlMonks  

Re: Golf: Back to those damn beer bottles again...

by cLive ;-) (Parson)
on Mar 17, 2003 at 23:07 UTC ( #243836=note: print w/ replies, xml ) Need Help??


in reply to Re: Golf: Back to those damn beer bottles again...
in thread Golf: Back to those damn beer bottles again...

You obviously didn't look too closely at my attempt! Shaved another 3 bytes of by predeclaring the sub before use, making the & optional: and shaved a space after the warn...

And if we cheat with the 'and' and the 'one' :), we get down to 149 ;-)

sub b{$s=$n-1?'s':'';($n||'No')." bottle$s of beer"}$n=99;warn$b=b,$w= +" on the wall",", $b,\nTake 1 down & pass it around,\n".b(--$n)."$w.\ +n"while$n;
cLive ;-)


Comment on Re: Golf: Back to those damn beer bottles again...
Download Code
Re: Re: Golf: Back to those damn beer bottles again...
by benn (Priest) on Mar 18, 2003 at 01:18 UTC
    lol - no - I got so wrapped up in everybody elses attempts in the previously-referenced nodes that I missed the fact I'd written a virtual dupe of yours (other than the plural handling) :) I reckon you should replace the '1' and '&' cheats and declare yourself a winner with 153...though there's still something smelly about the bottle(s) - I'm convinced there's shaving to be done there somewhere...

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://243836]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (5)
As of 2014-04-20 05:20 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (485 votes), past polls