[REBOL] Re: 99 Bottles of REBOL
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
