99 Bottles of Beer

Voting

Bookmarking

Support Us

Language Lotus Formula

(Lotus Notes R5 formula language)

Date:	04/15/08
Author:	Labberdasher
URL:	n/a
Comments:	2
Info:	http://www.ibm.com/notes
Score:	(3.00 in 3 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

Vaughan Green said on 04/12/09 16:25:58

Incomplete. Where's your looped @Prompt statement?

labberdasher said on 07/03/09 11:15:08

LN 5 formula language has no loops ...
//tune in next week for the next episode of Philistines vs. Luddites

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 1440 variations