99 Bottles of REBOL
[1/4] from: ralph::abooks::com at: 24-Mar-2001 23:59
David Perkins liked my Rebol Scripting Song (on pp. 345-6 of REBOL FOR
DUMMIES) and pointed out that the website:
http://www.cs.man.ac.uk/~pjj/cs1011/beer.html
which has the 99-bottles refrain programmed in 142 computer languages did
not have a REBOL version.
So, thanks to David, I was inspired to submit one, to wit:
;;;;;;;;; REBOL version of "99 Bottles of Beer" ;;;;;;;;;;;;;;
bottles: 99 loop 99 [
print [bottles "Bottle(s) of beer on the wall," bottles "Bottle(s) of
beer"]
print "Take one down and pass it around,"
bottles: bottles - 1
print [bottles "Bottle(s) of beer on the wall.^/"]]
--Ralph
you can get REBOL FOR DUMMIES at http://rebolpress.com/#RFD
[2/4] from: gchiu:compkarori at: 25-Mar-2001 22:04
On Sat, 24 Mar 2001 23:59:42 -0500
"Ralph Roberts / ALEXANDER BOOKS" <[ralph--abooks--com]> wrote:
> which has the 99-bottles refrain programmed in 142
> computer languages did
> not have a REBOL version.
>
> So, thanks to David, I was inspired to submit one, to
> wit:
>
this was Carl's from late 1998 ...
REBOL [
Title: "99 Bottles of Beer Song"
Author: "Carl Sassenrath"
Note: "The correct song. A bit more advanced."
]
sing: func [count rest] [
prin pick ["99 bottles " "no bottles " "1 bottle "
[count "bottles "]]
min 4 count + 2
print rest
]
for bottles 99 0 -1 [
sing bottles "of beer on the wall,"
sing bottles "of beer."
print pick ["Take one down, pass it around,"
"Go to the store, buy some more,"] bottles > 0
sing bottles - 1 "of beer on the wall."
print ""
]
--
Graham Chiu
[3/4] from: kracik:mbox:dkm:cz at: 25-Mar-2001 13:25
And I submitted Carl's version in 1998. I got no reply and it never
appeared in the list.
--
Michal Kracik
Graham Chiu wrote:
[4/4] from: ralph:abooks at: 25-Mar-2001 9:57
like all good things, it may have become inactive.
--Ralph