From mboxrd@z Thu Jan  1 00:00:00 1970
Received: from elysium.uwa.edu.au ([130.95.128.2]) by hawkwind.utcs.utoronto.ca with SMTP id <24655>; Thu, 1 May 1997 02:47:17 -0400
Received: from typhaon.ucs.uwa.edu.au (luyer@typhaon.ucs.uwa.edu.au [130.95.128.64]) by elysium.uwa.edu.au (8.8.2/8.8.0) with SMTP id JAA21236; Thu, 1 May 1997 09:57:03 +0800 (WST)
Date:	Wed, 30 Apr 1997 21:57:03 -0400
From:	David Luyer <luyer@ucs.uwa.edu.au>
To:	Tom Culliton <culliton@clark.net>
cc:	TimTroyR@ionet.net, rc@hawkwind.utcs.toronto.edu
Subject: Re: 99 bottles in an rc shell script.
In-Reply-To: <199704302226.SAA03968@clark.net>
Message-ID: <Pine.LNX.3.95q.970501095418.721A-100000@typhaon.ucs.uwa.edu.au>
MIME-Version: 1.0
Content-Type: TEXT/PLAIN; charset=US-ASCII

On Wed, 30 Apr 1997, Tom Culliton wrote:
>#!/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)
^^^^^^^^^^^ scrap this...
>bottles = bottles; one = one
>for (i in $count) {
for(i in `{awk '{BEGIN{for(i=99;i>0;i--){print i;};exit;}'}) {
>        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!'