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 RPL/2

Date:05/22/06
Author:Kiyoshi Akima
URL:http://kiyoshiakima.tripod.com
Comments:1
Info:http://www.makalis.fr/~bertrand/rpl2
Score: (2.98 in 47 votes)
#!/usr/local/bin/rpl

BEER
<<
    99 do
        dup ->str PLURAL " on the wall," + disp
        dup ->str PLURAL "." + disp
        "Take one down, pass it around," disp
        1 -
        if dup then
            dup ->str
        else
            "No more"
        end
        PLURAL " on the wall." + disp
        "" disp
    until dup 0 == end
    drop
>>

PLURAL
<<
    " bottle" + over if 1 <> then "s" + end " of beer" +
>>

Download Source | Write Comment

Alternative Versions

VersionAuthorDateCommentsRate
With recursion and multithreadingJKB08/13/060

Comments

>>  woody said on 07/06/06 02:28:38

woody Quote from RPL/2 home, saying "RPL/2 is a special language, and could be the strange child of forbidden love between Lisp and Forth."
I'm a lover for both two languages, too. Yeah, I've got another which I might be fallen in forbidden love

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: