
We don't bite newbies here... much
	PerlMonks

Re^3: Drunk on golf: 99 Bottles of Beer

by eyepopslikeamosquito (Canon)

on Jun 03, 2011 at 12:48 UTC ( #907967=note: print w/ replies, xml )

Need Help??

Help for this page

Select Code to Download

Select or download this

n=0;~/s/ until/, 99\D+/=~$_="Take one down and pass it around, #{c=n+=
+1," bottle#$& of beer"," on the wall"}.

#{c}, %s%s.
#$_"%c;puts$'+"Go to the store and buy some more"+$&

Select or download this

n=0;$_="Take one down and pass it around, #{~/s/;c=n+=1," bottle#$& of
+ beer"," on the wall"}.

#{c}, %s%s.
#$_"%c until~/, 99\D+/;puts$'+"Go to the store and buy some more"+$&

Select or download this
```
n=0;n+=1
4-$.-=1
```

Select or download this

$_="Take one down and pass it around, #{~/s/;c=4-$.-=1," bottle#$& of 
+beer"," on the wall"}.

#{c}, %s%s.
#$_"%c until/, 99\D+/;puts$'+"Go to the store and buy some more"+$&

Select or download this

$_="Take one down and pass it around, #{c=4-$.-=1," bottle#{c&&:s} of 
+beer"," on the wall"}.

#{c}, %s%s.
#$_"%c until/, 99\D+/;puts$'+"Go to the store and buy some more"+$&

Node Status^?

node history
Node Type: note [id://907967]
help

Chatterbox^?

How do I use this? | Other CB clients

Other Users^?

Others making s'mores by the fire in the courtyard of the Monastery: (18)

As of 2013-05-21 15:31 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

The best material for plates (tableware) is:

Results (439 votes), past polls