[Neko] 99 bottles of beer on the wall

[dpb]

I guess I was just bored, so I created a Neko version of the
99 bottles of beer on the wall program. ;o

I just posted it on www.99-bottles-of-beer.net too. :)


<code>
// Neko version of 99 bottles of beer on the wall
// Created by Daniel Bainton at Friday the 13th, January 2006.

var bottles_left = function(bottles) {
  if (bottles > 1)
    return bottles + " bottles";
  if (bottles == 1)
    return bottles + " bottle";
  if (bottles == 0)
    return "no more bottles";
}

var sing = function(bottles) {
  $print(bottles_left(bottles) + " of beer on the wall, " + 
bottles_left(bottles) + " of beer.\n");
  $print("Take one down and pass it around, " + bottles_left(bottles - 1) + " 
of beer on the wall.\n\n");
}

var bottles = 99;

while (bottles > 0) {
  sing(bottles);
  bottles = bottles - 1;
}

$print("No more bottles of beer on the wall, no more bottles of beer.
Go to the store and buy some more, 99 bottles of beer on the wall.\n");
</code>


-dpb

--
Neko : One VM to run them all (http://nekovm.org)