From mboxrd@z Thu Jan  1 00:00:00 1970
Received: from mail.clark.net ([168.143.0.10]) by hawkwind.utcs.utoronto.ca with SMTP id <24656>; Wed, 30 Apr 1997 21:12:09 -0400
Received: from clark.net (culliton@explorer.clark.net [168.143.0.7]) by mail.clark.net (8.8.5/8.6.5) with ESMTP id SAA11014; Wed, 30 Apr 1997 18:26:20 -0400 (EDT)
From:	Tom Culliton <culliton@clark.net>
Received: (from culliton@localhost) by clark.net (8.8.5/8.7.1) id SAA03968; Wed, 30 Apr 1997 18:26:40 -0400 (EDT)
Date:	Wed, 30 Apr 1997 18:26:40 -0400
Message-Id: <199704302226.SAA03968@clark.net>
To:	TimTroyR@ionet.net, rc@hawkwind.utcs.toronto.edu
Subject: 99 bottles in an rc shell script.

I was feeling a bit whimsical after a friend pointed out the "99
bottles of beer on the wall" page and since there was already a
version in python, rc (the Plan 9 shell) was my next choice. ;-)

Anyone on the rc list want to try for an improved version?  This one
was done strictly with builtins.  Using expr you could get rid of the
count list and other uglyness.  Anyone have other major improvements?
;-) ;-) ;-)

Tom


#!/usr/local/bin/rc
# rc shell version of 99 bottles of beer
# by Tom Culliton (culliton@clark.net)

count = (99 98 97 96 95 94 93 92 91 90 89 88 87 86 85 84 83 82 81 80 79 78
         77 76 75 74 73 72 71 70 69 68 67 66 65 64 63 62 61 60 59 58 57 56
         55 54 53 52 51 50 49 48 47 46 45 44 43 42 41 40 39 38 37 36 35 34
         33 32 31 30 29 28 27 26 25 24 23 22 21 20 19 18 17 16 15 14 13 12
         11 10 9 8 7 6 5 4 3 2 1)
bottles = bottles; one = one
for (i in $count) {
        if (~ $i 1) {bottles = bottle; one = it}
        if (! ~ $i 99) {
                echo $i $bottles 'of beer on the wall.'
                echo
        }
        echo $i $bottles 'of beer on the wall,'
        echo $i $bottles 'of beer,'
        echo 'take' $one 'down and pass it around,'
}
echo 'no more bottles of beer on the wall!'