99 Bottles of Beer

Voting

Bookmarking

Language SPITBOL

Date:	04/20/05
Author:	D.H.
URL:	n/a
Comments:	1
Info:	n/a
Score:	(2.86 in 7 votes)

* MaxSPITBOL version (SPITBOL implementation on
* the Macintosh from Catspaw, Inc. (Salida, CO).
* NOTE:  I have no connection w/them other than being
* a long-time satisfied user of their product
* D.H.  <hedges@pilot.njin.net>

     p0 = "NO MORE" ;  p1 = " BOTTLE" ; p2 = "S" ; p3 = " OF BEER"
     p4 = " ON THE WALL" ; p5 = "TAKE ONE DOWN, PASS IT AROUND"

     b = 99
     p6 = ((NE(b,0) b, p0) p1 (NE(b,1) p2,) p3)
A1   OUTPUT = p6 p4 ; OUTPUT = p6 ; OUTPUT = p5
     b = b - 1
     p6 = ((NE(b,0) b, p0) p1 (NE(b,1) p2,) p3)
     OUTPUT = p6 p4 ; OUTPUT = ; NE(b,0)                   :S(A1)
END

Download Source | Write Comment

Alternative Versions

Version	Author	Date	Comments	Rate
Exact "official" lyrics, incl case	Gordon E. Peterson II	08/14/07	0
this one uses pattern matching	Gordon E. Peterson II	08/14/07	0

Comments

Gordon E. Peterson II said on 08/14/07 16:29:34

Interesting, although this could be improved on... p5 for example is only used once, so could as easily be coded that one place as a literal. I also would like to see the multiple outputs reduced to one (by explicitly outputting the CR/LF) and perhaps collapsing the whole thing into a single pattern match, eliminating the label and goto. I'm tempted to submit my own alternative. I guess I need to study the rules about what the 'official lyrics' are supposed to be at the end (since the SNOBOL version and SPITBOL version, at least, generate somewhat different outputs).

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