99 Bottles of Beer

Voting

Bookmarking

Language HSC

(recursive version)

Date:	04/20/05
Author:	Matthias Bethke
URL:	n/a
Comments:	0
Info:	n/a
Score:	(2.33 in 3 votes)

<* 99-bottles-of-beer in HSC, by Matthias Bethke
   Recursive version *>

<$define PAGE:string/C="99 Bottles of Beer">

<$macro BOB N:num/R OTW:bool>
  <$if COND=(N = '0')>No more<$else><(N)></$if>
  <$if COND=(N <> '1')>bottles<$else>bottle</$if> of beer
  <$if COND=(set OTW)>on the wall</$if>
</$macro>

<$macro BINGE BOTTLES:num/R>
<$if COND=(BOTTLES = '0')>
  <p>Go to the store, buy some more...</p>
<$else>
  <p><BOB N=(BOTTLES) OTW>,<br />
  <BOB N=(BOTTLES)><br />
  Take <$if COND=(BOTTLES = '1')>it<$else>one</$if> down, pass it around,<br />
  <$let BOTTLES=(BOTTLES - '1')>
  <BOB N=(BOTTLES) OTW>.</p>
  <BINGE BOTTLES=(BOTTLES)>
</$if>
</$macro>

<*** Page starts here ***>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"DTD/xhtml1-strict.dtd">
<html>
<head><title><(PAGE)></title></head>
<body>
<h1><(PAGE)></h1>
<BINGE BOTTLES=99>
</body>
</html>

Download Source | Write Comment

Alternative Versions

Version	Author	Date	Comments	Rate
iterative version	Matthias Bethke	04/20/05	0

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