Voting

Category

real language

Bookmarking

Del.icio.us Digg Diigo DZone Earthlink Google Kick.ie
Windows Live LookLater Ma.gnolia Reddit Rojo StumbleUpon Technorati

Language Anubis

Date:03/02/06
Author:David RENE
URL:n/a
Comments:0
Info:http://www.anubis-language.com
Score: (3.02 in 166 votes)
 *Project*                             The Anubis Project
   
 *Title*                          99 bottles of beer lyric maker
   
 *Copyright*                          No copyright for that

   
 *Author* David RENE
   
 *Overview*  
   This is the Anubis version of 99 bottles of beer lyric generator. You find more information
   here http://www.99-bottles-of-beer.net/ .

define One showLyric( Int32 bottles ) =
  
  if bottles > 1 then 
    print(integer_to_string(bottles) + " bottles of beer on the wall, " + integer_to_string(bottles)
+ 
          " bottles of beer.\nTake one down and pass it around, " + integer_to_string(bottles - 1)
+
          " bottles of beer on the wall.\n\n") ; 
    showLyric( bottles - 1)
  else if bottles = 1 then 
    print("1 bottle of beer on the wall, 1 bottle of beer. \n" +"
          Take one down and pass it around, no more bottles of beer on the wall.\n\n");
    showLyric (bottles - 1)
  else print("No more bottles of beer on the wall, no more bottles of beer.\n" + 
             "Go to the store and buy some more, 99 bottles of beer on the wall.\n")
.

global define One _99_bottles_of_beer ( List(String) args) =
  if args is                   
  {
       [ ] then showLyric(99), 
       [_ . _] then unique
  }.

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!

Name:

eMail:

URL:

Security Code:
  
Comment: