Re: 99 bottles in an rc shell script.

[haahr@netcom.com (Paul Haahr)]

Why enumerate all the numbers?  Why use some external program?  Peano
arithmetic is more than sufficient.

(While I was at it, I rearranged the loop a little.  And I didn't use
the elseif constructs because I wanted compatibility between Byron's rc
and Plan 9 rc, as well as forgetting what they are.)

#! /usr/local/bin/rc

* = 0
while (! ~ $#* 100)
	* = ($#* $*)

bottles = bottles
one = one
punct = .
while (true) {
	echo $1 $bottles of beer on the wall,
	echo $1 $bottles of beer,
	echo take $one down and pass it around,
	shift
	if (~ $1 1) {
		bottles = bottle
		one = it
	}
	count = ($1 $one)
	if (~ $1 0) {
		count = (no more)
		bottle = bottles
		punct = !
	}
	echo $count $bottles of beer on the wall^$punct
	if (~ $1 0)
		break
	echo
}