Re: 99 bottles of beer on the wall

[mojotoad]

in reply to 99 bottles of beer on the wall

You'll probably be interested in node 99 Bottles Of Beer (can't we do better).

Just cause I'm chirpy today, I'll reprise my not-very-terse solution:

#!/usr/bin/perl

$bc = abs(shift || 100);

$p_sub = sub { 'Take ' . (shift == 1 ? 'it' : 'one') .
                " down, pass it around,\n" };
$b_sub = sub { 'bottle' . (shift != 1 ? 's' : '') };
$c_sub = sub { $_ = shift||'No'; "$_ " . &$b_sub($_) . ' of beer' };
$w_sub = sub { &$c_sub(shift) . " on the wall"; };
$sub   = sub { $_ = shift; print &$w_sub($_), ",\n", &$c_sub($_),
               ",\n", &$p_sub($_), &$w_sub(--$_), ".\n\n" };

map(&$sub($_), reverse(1 .. $bc));
print "burp!\n";

Matt

[bassplayer]

Or you might enjoy this node... or this one... and there's this, and this and this... and if you enjoy talking like a pirate, you might even enjoy this little beauty. Arrr!