Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

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