Voting

Category

real language

Bookmarking

Del.icio.us Digg Diigo DZone Earthlink Google Kick.ie
Windows Live LookLater Ma.gnolia Reddit Rojo StumbleUpon Technorati

Language R4 script

Date:06/24/05
Author:Kang Seonghoon (Tokigun)
URL:http://tokigun.net/en/
Comments:0
Info:http://r4.rabidhamster.org/
Score: (2.33 in 3 votes)
<!--
99 Bottles of Beer in R4 Script (for network interface)
Written by Kang Seonghoon (Tokigun), 2005-06-24.
This program is in public domain.

1. Put this script in <R4root>\data\wwwroot\beersong.html.
2. Turn the network interface on.
3. Visit http://localhost:(port)/beersong.html with your favorite browser.

Tested with R4 1v06 and 1v20.
Note that the lines below should be put into a single line.
-->
### strcat(hide(set([x],[]),set([s],[99 bottles of
beer]),set([i],[99]),while([get([i])],[set([x],strcat(get([x]),get([s]),[ on the
wall,],newline(),get([s]),[.],newline(),[Take one down, pass it
around,],newline(),hide(set([i],round(sub(get([i]),[1]))),set([s],strcat(if(get([i]),[get([i])],[[No]]),[
bottle],if(sub(get[i],[1]),[[s]],[[]]),[ of beer]))),get([s]),[ on the
wall.],newline(),newline()))])),[<pre>],get([x]),[</pre>])

Download Source | Write Comment

Alternative Versions

Comments

Download Source | Write Comment

Add Comment

Please provide a value for the fields Name, Comment and Security Code.
This is a gravatar-friendly website.
E-mail addresses will never be shown.
Enter your e-mail address to use your gravatar.

Please don't post large portions of code here! Use the form to submit new examples or updates instead!

Name:

eMail:

URL:

Security Code:
  
Comment: