Bottle Golf

inman has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Bottle Golf by Enlil (Parson) on Jun 10, 2004 at 21:44 UTC
With a little editing for the differences of text the following nodes might be of help: 99 bottles, 2 lines Golf: Back to those damn beer bottles again... 99 Bottles Of Beer (can't we do better) 99 bottles of beer on the Wall -enlil	[reply]
Re^2:Bottle Golf by eyepopslikeamosquito (Archbishop) on Jun 11, 2004 at 09:10 UTC
IIRC, the shortest known Perl solution to this problem was uncorked by Ton Hospel and Mtv Europe and, oddly, is documented in the 99 Bottles of Beer section of Acme::EyeDrops documentation.	[reply]
Re: Bottle Golf by shemp (Deacon) on Jun 10, 2004 at 21:32 UTC
whoops, i guess my first attempt was a little off. Also, bottle should be pluralized except when there is 1 bottle left. Even zero bottles is plural. played a little more, here something better, without a sub `print join "\n", map { "and if 1 green bottle should accidentally fall +\n" ."there'll be " . ($_-1) . " green bottle" .($_!=2?'s':'') . ", standing on a wall\n" } (reverse 1..10);` [download] (hopefully correct)	[reply] [d/l]
Re^2: Bottle Golf by shemp (Deacon) on Jun 10, 2004 at 22:17 UTC
This may be a bit off topic, but could people let me know why i got voted down for this post? Im thoroughly perplexed!	[reply]
Re^3: Bottle Golf by Roy Johnson (Monsignor) on Jun 11, 2004 at 03:32 UTC
There are any number of reasons that people downvote, ranging from thinking your post was overrated to XP whoring to retaliation for somebody doing it to them. If you don't see a problem with your post and they can't be bothered to point it out, don't worry about it. We're not really tightening our belts, it just feels that way because we're getting fatter.	[reply]
Re: Bottle Golf by shemp (Deacon) on Jun 10, 2004 at 21:24 UTC
`#!/usr/bin/perl -w print join "\n", map { "and if 1 green bottle should accidentally fall +\n" ."there'll be " . ($_-1) . " green bottle" .plural($_) . ", standing on a wall\n" } (reverse 1..10); sub plural {return $_-1?'s':'';}` [download] whitespace added for clarity	[reply] [d/l]