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

[Uri Guttman <uri@sysarch.com>]

>>>>> "RJK" == Ronald J Kimball <rjk@linguist.dartmouth.edu> writes:

  RJK> 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!

  RJK> That should be $n==1 as well.

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

i should have gone further into the thread. i was lazy.

uri

-- 
Uri Guttman  -----------------  SYStems ARCHitecture and Software Engineering
uri@sysarch.com  ---------------------------  Perl, Internet, UNIX Consulting
Have Perl, Will Travel  -----------------------------  http://www.sysarch.com
The Best Search Engine on the Net -------------  http://www.northernlight.com
"F**king Windows 98", said the general in South Park before shooting Bill.

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