Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

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

by benn (Priest)
on Mar 17, 2003 at 21:58 UTC ( #243817=note: print w/ replies, xml ) Need Help??


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

Oooh - that's a fun squeeze. I missed the last lot, so I thought I'd join in here. Even on the 99 bottles site, opinion seems to be divided as to whether it's "Take one down, pass it around" or "Take one down *and* pass it around" - 3 bytes is important in this game....:) Anyway, here's a gramamatically correct one weighing in at 156 bytes with the 'and'.

$n=99;warn $b=&b,$w=" on the wall",", $b,\nTake one down and pass it a +round,\n".&b(--$n)."$w.\n"while$n;sub b{$s=$n-1?'s':'';($n||'No')." b +ottle$s of beer"}
Maybe there should be an ISO '99 bottles' standard to establish these important questions of 'and' or ',', 'No' or '0', plurals, CRs etc.. :)


Comment on Re: Golf: Back to those damn beer bottles again...
Download Code
Re: Golf: Back to those damn beer bottles again...
by cLive ;-) (Parson) on Mar 17, 2003 at 23:07 UTC
    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 ;-)
      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://243817]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (5)
As of 2015-07-05 02:55 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 (60 votes), past polls