And I submitted Carl's version in 1998. I got no reply and it never
appeared in the list.
--
Michal Kracik
Graham Chiu wrote:
>
> On Sat, 24 Mar 2001 23:59:42 -0500
> "Ralph Roberts / ALEXANDER BOOKS" <[EMAIL PROTECTED]> 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
> --
> To unsubscribe from this list, please send an email to
> [EMAIL PROTECTED] with "unsubscribe" in the
> subject, without the quotes.
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the
subject, without the quotes.
