rc-list - mailing list for the rc(1) shell
 help / color / mirror / Atom feed
From: Tom Culliton <culliton@clark.net>
To: TimTroyR@ionet.net, rc@hawkwind.utcs.toronto.edu
Subject: 99 bottles in an rc shell script.
Date: Wed, 30 Apr 1997 18:26:40 -0400	[thread overview]
Message-ID: <199704302226.SAA03968@clark.net> (raw)

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!'


             reply	other threads:[~1997-05-01  1:12 UTC|newest]

Thread overview: 9+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
1997-04-30 22:26 Tom Culliton [this message]
1997-05-01  1:57 ` David Luyer
1997-05-01 16:33 ` Paul Haahr
1997-05-01  1:29 rsc
1997-05-01  4:03 Tom Culliton
1997-05-01  5:02 Tom Culliton
1997-05-01 17:14 Tom Culliton
1997-05-01 19:28 Byron Rakitzis
1997-05-01 21:13 Mark K. Gardner

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=199704302226.SAA03968@clark.net \
    --to=culliton@clark.net \
    --cc=TimTroyR@ionet.net \
    --cc=rc@hawkwind.utcs.toronto.edu \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).