99 Bottles of Beer

Voting

Bookmarking

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

Version	Author	Date	Comments	Rate
With recursion and multithreading	JKB	08/13/06	0

Comments

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

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!

one program in 1500 variations