[REBOL] Re: 99 Bottles of REBOL
like all good things, it may have become inactive. --Ralph >-Original Message- >From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On >Behalf Of Michal Kracik >Sent: Sunday, March 25, 2001 8:25 AM >To: [EMAIL PROTECTED] >Subject: [REBOL] Re: 99 Bottles of REBOL > > >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. > -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: 99 Bottles of REBOL
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.
[REBOL] Re: 99 Bottles of REBOL
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.