Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
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 scrutinizing the Monastery: (7)
As of 2015-07-04 08:08 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (58 votes), past polls