99 Bottles of Beer

Voting

Bookmarking

Language Lotus Formula

(Lotus Notes R5 formula language)

Date:	04/15/08
Author:	Labberdasher
URL:	n/a
Comments:	0
Info:	http://www.ibm.com/notes
Score:	(4.00 in 1 votes)

x0 := "9.8.7.6.5.4.3.2.1.0." ;
x1 := @text( @texttonumber( @explode( @repeat( @explode( x0 ; "." ) + "." ; 10 ) ; "." ) +
@explode( @repeat( x0 ; 10 ) ; "." ) ) ) ;
bt := " bottle" ;
bb := bt + "s of beer" ;
ow := " on the wall" ;
td := "Take one down and pass it around, " ;
nl := @newline ;
x21 := bb + ow + ", " ;
x22 := bb + "." + nl + td ;
x23 := bb + ow + "." + nl ;
x3 := @implode( x1 + x21 + x1 + x22 + @text( @texttonumber( x1 ) - 1 ) + x23 ; nl ) ;
@replacesubstring( x3 ; ( ( nl : " " ) + "1" + bt + "s" ) : ( ( nl : " " ) + "0" ) : ( td + "-1" )
;  ( ( nl : " " ) + "1" + bt ) : ( nl + "No more" ) : ( " no more" ) : ( "Go to the store and buy
some more, 99" ) )

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!

one program in 1216 variations