develooper Front page | perl.fwp | Postings from May 2003

Re: 99 bottles of beer on the wall

From:
fun_with_perl
Date:
May 25, 2003 05:20
Subject:
Re: 99 bottles of beer on the wall
Message ID:
baqcdl$1io$1@post.home.lunix
In article <20030525050307.GB4855@linguist.thayer.dartmouth.edu>,
	Ronald J Kimball <rjk@linguist.Thayer.dartmouth.edu> writes:
> On Sun, May 25, 2003 at 02:57:48PM +1000, Andrew Savige wrote:
>> As you might expect, I cannot resist re-opening this golf game,
>> after a half-time break of four and a half years:
> 
> Then please consider my more recent version...  :)
> 
> $n=pop||99;sub b{"$n bottle@{[$n!=1&&s=>]} of beer"}print$b=b,$w=' on the wall',
> ",\n$b,\nTake one down, pass it around,\n",b($n--),"$w.\n"while$n
> 
> Ronald

sub b{"$n bottle"."s"x!!-~$n." of beer"}



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About