Bottle Golf

[inman]

Probably done before. Generate the rhyme '10 green bottles...'

#! /usr/bin/perl -w

foreach (reverse 1..10){
sub wall {$a=$_-1?'s':'';"$_ green bottle$a, standing on a wall\n"}
print wall($_)x2,
"and if 1 green bottle should accidentally fall\nthere'll be ",
wall(--$_),"\n"}

Any other methods?

[shemp]

#!/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':'';}

whitespace added for clarity

[shemp]

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);


(hopefully correct)

[shemp]

This may be a bit off topic, but could people let me know why i got voted down for this post?
Im thoroughly perplexed!

[Roy Johnson]

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.

[Enlil]

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

[eyepopslikeamosquito]

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.