Re: bottles of beer (was Re: [FWP] $silly == $fun)

[Ronald J Kimball <rjk@linguist.dartmouth.edu>]

On Mon, Aug 09, 1999 at 03:45:08PM -0400, Uri Guttman wrote:
> 
> ronald started a round of perl golf and i changed mine to this:
> 
> $n=shift||99;@s='s';$o=' on the wall';print<<B while$n
> @{[$b="$n bottle$s[$n<1] of beer"]}$o, $b!

That should be $n==1 as well.

> Take one down and pass it around,
> ${\--$n} bottle$s[$n==1] of beer$o!
> 
> B
> 

Ronald

==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe