re: 99 bottles in an rc shell script.

[Tom Culliton <culliton@clark.net>]

> This introduces a little more code in return for
> losing the count array.
>
> #!/bin/rc
> # rc shell version of 99 bottles of beer
> # by Tom Culliton (culliton@clark.net)
> # revised by Russ Cox (rsc@research.att.com)
>
> bottles = bottles; one = one
> digits = (9 8 7 6 5 4 3 2 1 0)
> for(i in $digits) for(j in $digits) { 
> 	n = $i$j
> 	if(~ $i 0) n = $j
> 	if(! ~ $n 0) {
> 		if(~ $n 1) { bottles = bottle; one = it }
> 		if(! ~ $n 99) {
> 			echo $n $bottles 'of beer on the wall.'
> 			echo
> 		}
> 		echo $n $bottles 'of beer on the wall,'
> 		echo $n $bottles 'of beer,'
> 		echo 'take' $one 'down and pass it around,'
> 	}
> }
> echo 'no more bottles of beer on the wall!'

This reminds me of an even more "rc like" way to do this with just
builtins... ;-) ;-) ;-)

ten = (beer beer beer beer beer beer beer beer beer beer)
* = ($ten $ten $ten $ten $ten $ten $ten $ten $ten $ten)
shift ; bottles = $#*^' bottles' ; one = one
while (! ~ $* ()) {
	echo $bottles 'of beer on the wall,' ; echo $bottles 'of beer,'
	echo 'take' $one 'down and pass it around,'
	shift ; switch ($#*) {
		case 1 ; bottles = '1 bottle' ; one = it
		case 0 ; bottles = 'no more bottles'
		case * ; bottles = $#*^' bottles'
	}
	echo $bottles 'of beer on the wall.' ; echo
}