99 Bottles of Beer

From Rosetta Code

In this puzzle, write code to print out the entire "99 bottles of beer on the wall" song. For those who do not know the song, the lyrics follow this form:

X bottles of beer on the wall
X bottles of beer
Take one down, pass it around
X-1 bottles of beer on the wall

X-1 bottles of beer on the wall
...
Take one down, pass it around
0 bottles of beer on the wall

Where X and X-1 are replaced by numbers of course. Grammatical support for "1 bottle of beer" is optional. As with any puzzle, try to do it in as creative/concise/comical a way as possible (simple, obvious solutions allowed, too).

[edit] Ada

with Ada.Text_Io; use Ada.Text_Io;
 
 procedure Bottles is
 begin
    for X in reverse 1..99 loop
       Put_Line(Integer'Image(X) & " bottles of beer on the wall");
       Put_Line(Integer'Image(X) & " bottles of beer");
       Put_Line("Take one down, pass it around");
       Put_Line(Integer'Image(X - 1) & " bottles of beer on the wall");
       New_Line;
    end loop;
 end Bottles;

[edit] APL

Works with: Dyalog APL Translation of: J

     bob  ←  { (⍕⍵), ' bottle', (1=⍵)↓'s of beer'}
     bobw ←  {(bob ⍵) , ' on the wall'}
     beer ←  { (bobw ⍵) , ', ', (bob ⍵) , '; take one down and pass it around, ', bobw ⍵-1}
     ↑beer¨ ⌽(1-⎕IO)+⍳99

[edit] AWK

{ i = 99
while (i > 0)
	{print i, " bottles of beer on the wall,"
	print i, " bottles of beer." 
	print "Take one down, pass it around,"
	i--
	print i, " bottles of beer on the wall\n"}}

[edit] BASIC

Works with: QuickBasic version 4.5

[edit] Sound

This version plays the tune 100 times while printing out the lyrics (not synchronized).

PLAY "<"
FOR x = 99 TO 0 STEP -1
  PRINT x; "bottles of beer on the wall"
  PRINT x; "bottles of beer"
  PRINT "Take one down, pass it around"
  PRINT x-1; "bottles of beer on the wall"
  PRINT
  PLAY "e-8e-8e-8<b-8b-8b-8>e-8e-8e-8e-4"'X bottles of beer on the wall
  PLAY "f8f8f8c8c8c8f4"'X bottles of beer
  PLAY "d4d8d8 N0 d8d8d8d4"'take one down, pass it around
  PLAY "<a+8a+8a+8>c8c8d8d+8d+8d+8d+4"'X-1 bottles of beer on the wall
NEXT x

[edit] Text

FOR x = 99 TO 1 STEP -1
  PRINT x; "bottles of beer on the wall"
  PRINT x; "bottles of beer"
  PRINT "Take one down, pass it around"
  PRINT x-1; "bottles of beer on the wall"
  PRINT
NEXT x

[edit] C

[edit] The simple solution

#include <stdio.h>
int main() {
   int bottles = 99;
   do {
     printf("%d bottles of beer on the wall\n", bottles);
     printf("%d bottles of beer\n", bottles);
     printf("Take one down, pass it around\n");
     printf("%d bottles of beer on the wall\n\n", --bottles);
   } while( bottles > 0 );
   return 0;
}

[edit] A preprocessor solution

Of course, with the template metaprogramming solution, the program has still do the conversion of numbers to strings at runtime, and those function calls also cost unnecessary time. Couldn't we just compose the complete text at compile time, and just output it at run time? Well, with the preprocessor, that's indeed possible:

#include <stdio.h>
 
#define BOTTLE(nstr) nstr " bottles of beer"
 
#define WALL(nstr) BOTTLE(nstr) " on the wall"
 
#define PART1(nstr) WALL(nstr) "\n" BOTTLE(nstr) \
                    "\nTake one down, pass it around\n"
 
#define PART2(nstr) WALL(nstr) "\n\n"
 
#define MIDDLE(nstr) PART2(nstr) PART1(nstr)
 
#define SONG PART1("100") CD2 PART2("0")
 
#define CD2 CD3("9") CD3("8") CD3("7") CD3("6") CD3("5") \
        CD3("4") CD3("3") CD3("2") CD3("1") CD4("")
 
#define CD3(pre) CD4(pre) MIDDLE(pre "0")
 
#define CD4(pre) MIDDLE(pre "9") MIDDLE(pre "8") MIDDLE(pre "7") \
 MIDDLE(pre "6") MIDDLE(pre "5") MIDDLE(pre "4") MIDDLE(pre "3") \
 MIDDLE(pre "2") MIDDLE(pre "1")
 
int main()
{
  printf(SONG);
  return 0;
}

An inspection of the generated executable proves that it indeed contains the complete text of the song in one block.

[edit] C++

[edit] The simple solution

#include <iostream>
int main() {
   int bottles = 99;
   do {
     std::cout << bottles << " bottles of beer on the wall" << std::endl;
     std::cout << bottles << " bottles of beer" << std::endl;
     std::cout << "Take one down, pass it around" << std::endl;
     std::cout << --bottles << " bottles of beer on the wall" << std::endl << std::endl;
   } while( bottles > 0 );
   return 0;
}

[edit] An object-oriented solution

Another solution, which in addition correctly handles the grammar. This solution is object-oiented. Of course that's completely overkill for this problem, but then, some people demand that code must be OO to be good. Oh, and the used OO itself may seem bloated as well, but then, OO is all about abstraction, isn't it? Therefore this is obviously the better solution! :-)

Works with: GCC version 4.1.2 20061115 (prerelease) (SUSE Linux)

#include <iostream>
#include <string>
#include <sstream>
 
namespace bottle_song
{
  // =================================================================
 
  // ***********************************
  // * Abstract base class for things. *
  // ***********************************
 
  class thing
  {
  public:
    // return the singular of the thing
    virtual std::string singular() const = 0;
 
    // return the plural of the thing
    virtual std::string plural() const = 0;
 
    // we need a virtual destructor, too
    virtual ~thing() {}
  };
 
  // =================================================================
 
  // ***************
  // * Containers. *
  // ***************
 
  // Containers are things which can contain other things. The
  // following class makes any thing into a container. The container
  // class is actually a decorator which makes any thing into a
  // container. Note that the contained thing is actually mutable,
  // even if the container is not. Note that the container can only
  // contain a single thing; if it shall contain several things, make
  // it contain a collection instead.
 
  class container: public thing
  {
  public:
    // The format gives the name. %self% is replaced by the containing
    // object's name (in proper pluralization), %contained% is
    // replaced by the contained object's name.
    container(std::string fmt, thing const& what, thing const& contained);
    std::string singular() const;
    std::string plural() const;
  private:
    std::string format;
    thing const& self;
    thing const& contained_thing;
    // helper function to replace strings
    static void replace(std::string& str, std::string from, std::string to);
  };
 
  container::container(std::string fmt,
                       thing const& what,
                       thing const& contained):
    format(fmt),
    self(what),
    contained_thing(contained)
  {
  }
 
  std::string container::singular() const
  {
    std::string result = format;
    replace(result, "%self%", self.singular());
    replace(result, "%contained%", contained_thing.singular());
    return result;
  }
 
  std::string container::plural() const
  {
    std::string result = format;
    replace(result, "%self%", self.plural());
    replace(result, "%contained%", contained_thing.singular());
    return result;
  }
 
  void container::replace(std::string& str, std::string from, std::string to)
  {
    std::string::size_type pos = str.find(from);
    if (pos != std::string::npos)
      str.replace(pos, from.length(), to);
  }
  // =================================================================
 
  // *********************************
  // * A collection of equal things. *
  // *********************************
 
  // In the context of this program, a collection of things is again
  // considered a single thing.
  // This is a concrete class.
  class equal_collection: public thing
  {
  public:
    // constructor
    equal_collection(int count, thing const& what);
 
    // get singular
    std::string singular() const;
 
    // get plural. This has to be implemented, even if it isn't used,
    // because the inherited version is pure virtual, and not
    // implementing this would make the class abstract.
    std::string plural() const;
 
    // this just returns whether thwere are still things left to take away.
    bool there_is_some_left();
 
    // this takes one thing away from the collection. Taking a thing
    // away from an empty collection is undefined behaviour (i.e. not
    // explicitly checked).
    void take_one_away();
  private:
    int count_of_things;
    thing const& type_of_thing;
  };
 
  // equal_collection constructor
  equal_collection::equal_collection(int count, thing const& what):
    count_of_things(count),
    type_of_thing(what)
  {
  }
 
  // get singular. The singular of the collection is just the number
  // followed by the thing, proper pluralized. The fact that it's
  // grammatically still a plural form doesn't matter for the problem
  // at hand.
  std::string equal_collection::singular() const
  {
    std::ostringstream oss;
    oss << count_of_things << " ";
    if (count_of_things == 1)
      oss << type_of_thing.singular();
    else
      oss << type_of_thing.plural();
    return oss.str();
  }
 
  // get plural. For collections, the plural is just "times " followed
  // by the singular. That is 3 collections of 4 bottles each give 3
  // times 4 bottles.
  std::string equal_collection::plural() const
  {
    return "times " + singular();
  }
 
  // tell if there are still things to take away. There are things to
  // take away if there are more than 0 things.
  bool equal_collection::there_is_some_left()
  {
    return count_of_things > 0;
  }
 
  // take one thing away from the collection. That is, just decrement
  // the count of things.
  void equal_collection::take_one_away()
  {
    --count_of_things;
  }
 
  // =================================================================
 
  // ************
  // * The beer *
  // ************
 
  class beer: public thing
  {
  public:
    std::string singular() const { return "beer"; }
    std::string plural() const { return "beers"; }
  };
 
  // =================================================================
 
  // **************
  // * The bottle *
  // **************
 
  class bottle: public thing
  {
  public:
    std::string singular() const { return "bottle"; }
    std::string plural() const { return "bottles"; }
  };
 
  // =================================================================
 
  // ************
  // * The wall *
  // ************
 
  class wall: public thing
  {
  public:
    std::string singular() const { return "wall"; }
    std::string plural() const { return "walls"; }
  };
 
  // =================================================================
 
  // this is the class for the song.
  class song
  {
  public:
    song(int bottle_count);
    void sing(std::ostream& where); // note: singing the song modifies it!
  private:
    beer beverage;
    bottle drink_source;
    container bottle_of_beer;
    equal_collection collection_of_bottles;
    wall bottle_storage;
    container wall_of_bottles;
  };
 
  song::song(int bottle_count):
    bottle_of_beer("%self% of %contained%", drink_source, beverage),
    collection_of_bottles(bottle_count, bottle_of_beer),
    wall_of_bottles("%contained% on the %self%",
                    bottle_storage, collection_of_bottles)
  {
  }
 
  void song::sing(std::ostream& where)
  {
    while (collection_of_bottles.there_is_some_left())
    {
      where << wall_of_bottles.singular() << ".\n"
            << collection_of_bottles.singular() << ".\n"
            << "Take one down, pass it around.\n";
      collection_of_bottles.take_one_away();
      where << wall_of_bottles.singular() << ".\n\n";
    }
  }
}
 
int main()
{
  bottle_song::song song(100);
  song.sing(std::cout);
  return 0;
}

[edit] A template metaprogramming solution

Of course, the output of the program always looks the same. One may therefore question why the program has to do all that tedious subtracting during runtime. Couldn't the compiler just generate the code to output the text, with ready-calculated constants? Indeed, it can, and the technique is called template metaprogramming. The following short code gives the text without containing a single variable, let alone a loop:

#include <iostream>
 
template<int max, int min> struct bottle_countdown
{
  static const int middle = (min + max)/2;
  static void print()
  {
    bottle_countdown<max, middle+1>::print();
    bottle_countdown<middle, min>::print();
  }
};
 
template<int value> struct bottle_countdown<value, value>
{
  static void print()
  {
    std::cout << value << " bottles of beer on the wall\n"
              << value << " bottles of beer\n"
              << "Take one down, pass it around\n"
              << value-1 << " bottles of beer\n\n";
  }
};
 
int main()
{
  bottle_countdown<100, 1>::print();
  return 0;
}

[edit] A preprocessor solution

Of course, with the template metaprogramming solution, the program has still do the conversion of numbers to strings at runtime, and those function calls also cost unnecessary time. Couldn't we just compose the complete text at compile time, and just output it at run time? Well, with the preprocessor, that's indeed possible:

#include <iostream>
#include <ostream>
 
#define BOTTLE(nstr) nstr " bottles of beer"
 
#define WALL(nstr) BOTTLE(nstr) " on the wall"
 
#define PART1(nstr) WALL(nstr) "\n" BOTTLE(nstr) \
                    "\nTake one down, pass it around\n"
 
#define PART2(nstr) WALL(nstr) "\n\n"
 
#define MIDDLE(nstr) PART2(nstr) PART1(nstr)
 
#define SONG PART1("100") CD2 PART2("0")
 
#define CD2 CD3("9") CD3("8") CD3("7") CD3("6") CD3("5") \
        CD3("4") CD3("3") CD3("2") CD3("1") CD4("")
 
#define CD3(pre) CD4(pre) MIDDLE(pre "0")
 
#define CD4(pre) MIDDLE(pre "9") MIDDLE(pre "8") MIDDLE(pre "7") \
 MIDDLE(pre "6") MIDDLE(pre "5") MIDDLE(pre "4") MIDDLE(pre "3") \
 MIDDLE(pre "2") MIDDLE(pre "1")
 
int main()
{
  std::cout << SONG;
  return 0;
}

An inspection of the generated executable proves that it indeed contains the complete text of the song in one block.

[edit] Common Lisp

(defun">defun bottles (x)
       (format t "~a bottles of beer on the wall~%" x)
       (format t "~a bottles of beer~%" x)
       (format t "Take one down, pass it around,~%")
       (format t "~a bottles of beer on the wall~%" (- x 1))
       (if (> (- x 1) 0)
           (bottles (- x 1))))

and then just call

(bottles 99)

[edit] D

Uses a non-commutative operator to construct a narrative expression of 99-bottles song.

module nbottles ;
import std.string ;
import std.stdio ;
 
alias Exception NoMoreBottlesLeft  ;
 
enum { // role
  None    = 0x0, // normal for OP and Term 
  Taker   = 0x1, // for OP that minus one bottlesLeft
  Viewer  = 0x2, // for Term display bottlesLeft
  NewLine = 0x4, // for Term that sending a newline to IO
}
class XP {
  static string[] ones = ["","one","two","three","four",
                          "five","six","seven","eight","nine"] ;
  static string[] tens = ["", "ten", "twenty","thirty","fourty",
                          "fifty","sixty","seventy","eighty","ninty"] ;
  static string[] teens = ["","eleven","twelve","thirteen","fourteen",
                           "fifteen","sixteen","seventeen","eighteen","nineteen"] ;
  static private int bottlesLeft = 99 ;
  static bool opCall() {
    if (bottlesLeft == 0)
      throw new NoMoreBottlesLeft("") ;
    return true ;
  }
  static string Cap(string s) {
    return toupper(s[0..1]) ~ s[1..$] ;
  }
  static string num2word(int i) {
    if (i == 0)
      return "No more" ;
  //return std.string.toString(i) ;
    string[2] digits ;    
    int numTen = i / 10 ;   
    int numOne = i % 10 ;
    if(i == 10) 
      digits[1] = tens[1] ;      
    else if(numTen == 0)
      digits[1] = ones[numOne] ;
    else if(numTen == 1)
      digits[1] = teens[numOne] ;
    else {
      digits[0] = tens[numTen] ;
      digits[1] = ones[numOne] ;
    }     
    return Cap(strip(join(digits," "))) ;
  }
  static string getBottles() {
    string num = num2word(bottlesLeft) ;
    string pural = (bottlesLeft != 1) ? "s" : "";
    return num ~ " bottle" ~ pural ;
  }
  string words ;
  int role ;
  this (string w, int r) { words = w, role = r ; }
  string getWord() {
    string postfix = " ";
    string word ;
    if (words is null)
      return "" ;
    else
      word = words ;
    if (role & Viewer)
      word = getBottles ;
    if (role & NewLine)
      postfix = "\n" ;
    return word ~ postfix ;
  }
}
alias XP A_drunker_sings_a_song ;
 
class Term : XP { 
  this (string w = null, int r = None) { super(w, r) ; }
}
class OP : XP {
  this (string w = null, int r = None) { super(w, r) ; }
  OP opDiv_r(Term t) {
    if(role & Taker)
      A_drunker_sings_a_song.bottlesLeft-- ;
    writef(t.getWord) ;
    writef(getWord) ;
    return this ;         
  }
  Term opDiv(Term t) {
    writef(t.getWord) ;
    return new Term ;
  }
}
 
void main() {
  Term N_bottles = new Term("", Viewer) ;
  OP of = new OP("of") ;
  Term beer = new Term("beer") ;
  OP on = new OP("on") ;
  Term the_wall = new Term("the wall", NewLine) ;
  Term beer_ = new Term("beer", NewLine) ;
  Term Take = new Term("Take") ;
  OP one = new OP("one", Taker) ;
  Term down = new Term("down,") ;
  Term pass = new Term("pass") ;
  OP it = new OP("it") ;
  Term around = new Term("around", NewLine) ;
  Term the_wall_ = new Term("the wall\n", NewLine) ;
 
  try{
    for(; A_drunker_sings_a_song();
 
      N_bottles/of/beer/on/the_wall,
      N_bottles/of/beer_ ,
      Take/one/down, pass/it/around,
      N_bottles/of/beer/on/the_wall_
 
    ) {}
  } catch (NoMoreBottlesLeft e) {
    writefln("Go buy more beer!") ;
  }
 
}

[edit] E

def bottles(n) {
  return switch (n) {
    match ==0 { "No bottles" }
    match ==1 { "1 bottle" }
    match _   { `$n bottles` }
  }
}
for n in (1..99).descending() {
  println(`${bottles(n)} of beer on the wall,
${bottles(n)} of beer.
Take one down, pass it around,
${bottles(n.previous())} of beer on the wall.
`)
}

[edit] Forth

:noname   dup . ." bottles" ;
:noname       ." 1 bottle"  ;
:noname ." no more bottles" ;
create bottles , , ,

: .bottles  dup 2 min cells bottles + @ execute ;
: .beer     .bottles ."  of beer" ;
: .wall     .beer ."  on the wall" ;
: .take     ." Take one down, pass it around" ;
: .verse    .wall cr .beer cr
         1- .take cr .wall cr ;
: verses    begin cr .verse ?dup 0= until ;

99 verses

[edit] Haskell

import qualified Char

main = putStr $ concat
   [(up $ bob n) ++ wall ++ ", " ++ (bob n) ++ ".\n" ++
    (pass n) ++ (bob $ n - 1) ++ wall ++ ".\n\n" |
    n <- [99, 98 .. 0]]
   where bob n = (num n) ++ " bottle" ++ (s n) ++ " of beer"
         wall = " on the wall"
         pass 0 = "Go to the store and buy some more, "
         pass _ = "Take one down and pass it around, "
         up (x : xs) = Char.toUpper x : xs
         num (-1) = "99"
         num 0 = "no more"
         num n = (show n)
         s 1 = ""
         s _ = "s"

[edit] Io

bottles := method(i,
    if(i==0, return "no more bottles of beer")
    if(i==1, return "1 bottle of beer")
    "" .. i .. " bottles of beer"
)
for(i, 99, 1, -1,
    write(
        bottles(i), " on the wall, ", 
        bottles(i), ",\n",
        "take one down, pass it around,\n",
        bottles(i - 1), " on the wall.\n\n"
    )
)

[edit] J

As posted at the J wiki

bob =: ": , ' bottle' , (1 = ]) }. 's of beer'"_
bobw=: bob , ' on the wall'"_
beer=: bobw , ', ' , bob , '; take one down and pass it around, ' , bobw@<:
beer"0 >:i.-99

[edit] Java

[edit] Console

MessageFormat's choice operator is used to properly format plurals.

import java.text.MessageFormat;
public class Beer{
   static String bottles(int n){
      return MessageFormat.format("{0,choice,0#No more bottles|1#One bottle|2#{0} bottles} of beer", n);
   }
   public static void main(String[] args){
      String byob = bottles(99);
      for (int x = 99; x > 0;) {
         System.out.println(byob + " on the wall");
         System.out.println(byob);
         System.out.println("Take one down, pass it around");
         byob = bottles(--x);
         System.out.println(byob + " on the wall\n");
      }
   }
}

[edit] An object-oriented solution

Another solution, which in addition correctly handles the grammar. This solution is object-oiented. Of course that's completely overkill for this problem, but then, some people demand that code must be OO to be good. Oh, and the used OO itself may seem bloated as well, but then, OO is all about abstraction, isn't it? Therefore this is obviously the better solution! :-)

/*************************
 * Interface for things. *
 *************************/
interface Thing {
    String singular();
    String plural();
}
 
/***************
 * Containers. *
 ***************
 
 Containers are things which can contain other things. The
 following class makes any thing into a container. The container
 class is actually a decorator which makes any thing into a
 container. Note that the contained thing is actually mutable,
 even if the container is not. Note that the container can only
 contain a single thing; if it shall contain several things, make
 it contain a collection instead. */
class Container implements Thing {
    /** The format gives the name. %self% is replaced by the containing
     *  object's name (in proper pluralization), %contained% is
     *  replaced by the contained object's name. */
    private final String format;
    private final Thing self;
    private final Thing containedThing;
 
    public Container(String fmt, Thing what, Thing contained) {
        format = fmt;
        self = what;
        containedThing = contained;
    }
 
    public String singular() {
        return format.replace("%self%", self.singular())
            .replace("%contained%", containedThing.singular());
    }
 
    public String plural() {
        return format.replace("%self%", self.plural())
            .replace("%contained%", containedThing.singular());
    }
}
 
/*********************************
 * A collection of equal things. *
 *********************************
 
 In the context of this program, a collection of things is again
 considered a single thing.
 This is a concrete class. */
class EqualCollection implements Thing {
    private int countOfThings;
    private final Thing typeOfThing;
 
    public EqualCollection(int count, Thing what) {
        countOfThings = count;
        typeOfThing = what;
    }
 
    /** get singular. The singular of the collection is just the number
     *  followed by the thing, proper pluralized. The fact that it's
     *  grammatically still a plural form doesn't matter for the problem
     *  at hand. */
    public String singular() {
        StringBuilder sb = new StringBuilder();
        sb.append(countOfThings + " ");
        if (countOfThings == 1)
            sb.append(typeOfThing.singular());
        else
            sb.append(typeOfThing.plural());
        return sb.toString();
    }
 
    /** get plural. For collections, the plural is just "times " followed
     *  by the singular. That is 3 collections of 4 bottles each give 3
     *  times 4 bottles.
     *  This has to be implemented, even if it isn't used,
     *  because the it is specified by the interface, and this
     *  class is not abstract. */
    public String plural() {
        return "times " + singular();
    }
 
    /** tell if there are still things to take away. There are things to
     *  take away if there are more than 0 things. */
    public boolean thereIsSomeLeft() {
        return countOfThings > 0;
    }
 
    /** this takes one thing away from the collection. Taking a thing
     *  away from an empty collection is undefined behaviour (i.e. not
     *  explicitly checked). */
    public void takeOneAway() {
        --countOfThings;
    }
}
 
/************
 * The beer *
 ************/
class Beer implements Thing {
    public String singular() { return "beer"; }
    public String plural() { return "beers"; }
}
 
/**************
 * The bottle *
 **************/
class Bottle implements Thing {
    public String singular() { return "bottle"; }
    public String plural() { return "bottles"; }
}
 
/************
 * The wall *
 ************/
class Wall implements Thing {
    public String singular() { return "wall"; }
    public String plural() { return "walls"; }
}
 
/** this is the class for the song. */
public class Song {
    private final Thing beverage = new Beer();
    private final Thing drinkSource = new Bottle();
    private final Thing bottleOfBeer =
        new Container("%self% of %contained%", drinkSource, beverage);
    private final EqualCollection collectionOfBottles;
    private final Thing bottleStorage = new Wall();
    private final Thing wallOfBottles;
 
    public Song(int bottleCount) {
        collectionOfBottles =
            new EqualCollection(bottleCount, bottleOfBeer);
        wallOfBottles =
            new Container("%contained% on the %self%", bottleStorage, collectionOfBottles);
    }
 
    public void sing(java.io.PrintStream where) {
        while (collectionOfBottles.thereIsSomeLeft()) {
            where.println(wallOfBottles.singular() + ".");
            where.println(collectionOfBottles.singular() + ".");
            where.println("Take one down, pass it around.");
            collectionOfBottles.takeOneAway();
            where.println(wallOfBottles.singular() + ".");
            where.println();
        }
    }
 
    public static void main(String[] args) {
        Song song = new Song(100);
        song.sing(System.out);
    }
}

[edit] GUI

Library: Swing

Library: AWT

This version requires user interaction. The first two lines are shown in a text area on a window. The third line is shown on a button which you need to click to see the fourth line in a message box. The numbers update and the process repeats until "0 bottles of beer on the wall" is shown in a message box, when the program ends.

import java.awt.BorderLayout;
import java.awt.event.ActionEvent;
import java.awt.event.ActionListener;
import javax.swing.JButton;
import javax.swing.JFrame;
import javax.swing.JOptionPane;
import javax.swing.JTextArea;
public class Beer extends JFrame implements ActionListener{
        private int x;
        private JButton take;
        private JTextArea text;
        public static void main(String[] args){
                new Beer();//build and show the GUI
        }
 
        public Beer(){
                x= 99;
                take= new JButton("Take one down, pass it around");
                text= new JTextArea(4,30);//size the area to 4 lines, 30 chars each
                text.setText(x + " bottles of beer on the wall\n" + x + " bottles of beer");
                text.setEditable(false);//so they can't change the text after it's displayed
                take.addActionListener(this);//listen to the button
                setLayout(new BorderLayout());//handle placement of components
                add(text, BorderLayout.CENTER);//put the text area in the largest section
                add(take, BorderLayout.SOUTH);//put the button underneath it
                pack();//auto-size the window
                setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);//exit on "X" (I hate System.exit...)
                setVisible(true);//show it
        }
 
        public void actionPerformed(ActionEvent arg0){
                if(arg0.getSource() == take){//if they clicked the button
                        JOptionPane.showMessageDialog(null, --x + " bottles of beer on the wall");//show a popup message
                        text.setText(x + " bottles of beer on the wall\n" + x + " bottles of beer");//change the text
                }
                if(x == 0){//if it's the end
                        dispose();//end
                }
        }
}

[edit] Lucid

// Run luval with -s inside the lucid shell script
// The print out is a list of lines. So the output is not separated by new lines, rather
// by '[' and ']' -- I cant figure out how to do string concatenation with numbers in lucid.
// beer(N) ^ bottle(N) ^ wall ^ beer(N) ^ bottle(N) ^ pass ^ beer(N-1) ^ bottle(N-1) ^ wall
// should have worked but doesn't
[%beer(N),bottle(N),wall,beer(N),bottle(N),pass,beer(N-1),bottle(N-1),wall%]
   where
       N = 100 fby N - 1;
       wall = if N > 0 then ` On the wall ' else eod fi;
       pass = `Take one down and pass it around.';
       beer(A) = if A > 0 then A else `No more' fi;
       bottle(A) = if A eq 1 then `bottle of beer' else `bottles of beer' fi;
   end

[edit] MAXScript

resetMaxFile #noPrompt
viewport.setType #view_top
max tool maximize
viewport.SetRenderLevel #smoothhighlights
delay = 1.6
a = text size:30
a.wirecolor = white
theMod = extrude()
addModifier a theMod

for i in 99 to 1 by -1 do
(
    a.text = (i as string + " bottles of beer on the wall")
    redrawViews()
    sleep delay 
    a.text = (i as string + " bottles of beer")
    redrawViews()
    sleep delay 
    a.text = "Take one down, pass it around"
    redrawViews()
    sleep delay 
    a.text = ((i-1) as string + " bottles of beer on the wall")
    redrawViews()
    sleep delay 
)

[edit] Make

PRED=`expr $* - 1`

1-bottles: 1-beer pass
       @echo "No more bottles of beer on the wall"

%-bottles: %-beer pass
       @echo "$(PRED) bottles of beer on the wall\n"
       @-make $(PRED)-bottles

1-beer:
       @echo "One bottle of beer on the wall, One bottle of beer"

%-beer:
       @echo "$* bottles of beer on the wall, $* bottles of beer"

pass:
       @echo "Take one down and pass it around,"

Usage

make 99-bottles

[edit] Nial

line is fork [
  0=, 'No more bottles of beer' first,
  1=, 'One bottle of beer' first, 
  link [string,' bottles of beer' first]
]

verse is link [
  line, ' on the wall, ' first,line,
  '. Take it down and pass it around, ' first,
  line (-1+),'on the wall. ' first
]

bottles is iterate (write verse) reverse count

[edit] OCaml

for n = 99 downto 1 do
  Printf.printf "%d bottles of beer on the wall\n" n;
  Printf.printf "%d bottles of beer\n" n;
  Printf.printf "Take one down, pass it around\n";
  Printf.printf "%d bottles of beer on the wall\n\n" (pred n);
done

[edit] Perl

#!/usr/bin/perl -w
map {
        print $_ . " bottles of beer on the wall,\n";
        print $_ . " bottles of beer.\n";
        print "Take one down,\n";
        print "Pass it around.\n";
        print --$_ . " bottles of beer on the wall.\n\n";
} reverse (1..99);

 
#!/usr/perl -w
foreach (reverse(1 .. 99)) {
    $plural = 's' unless defined($plural);
    print "$_ bottle$plural of beer on the wall,\n";
    print "$_ bottle$plural of beer!\n";
    print "Take one down, pass it around!\n";
    if ( scalar($_ - 1) == 1) {
        $plural = '';
    }
 
    if ($_ > 1) {
        print scalar($_ - 1) . " bottle$plural of beer on the wall!\n\n";
    }
    else {
        print "No more bottles of beer on the wall!\n";
    }
}

[edit] Pop11

define bootles(n);
    while n > 0 do
        printf(n, '%p bottles of beer on the wall\n');
        printf(n, '%p bottles of beer\n');
        printf('Take one down, pass it around\n');
        n - 1 -> n;
        printf(n, '%p bottles of beer on the wall\n');
    endwhile;
enddefine;

bootles(99);

[edit] Python

a, b, c, s = " bottles of beer", " on the wall\n", "Take one down, pass it around\n", str
for i in [s(x)+a+b+s(x)+a+"\n"+c+s(x-1)+a+b for x in xrange(99, 0, -1)]: print i

Allowing for correct grammar

def d(n): return (str(n) if n>0 else 'No more')+' bottle'+('s' if n!=1 else '')+' of beer'
b,c = ' on the wall\n','Take one down, pass it around\n'
for x in range(99,0,-1): print d(x)+b+d(x)+'\n'+c+d(x-1)+b

And for a wordy version

l1=('','-one','-two','-three','-four','-five','-six','-seven','-eight','-nine')
m2=('thir','four','fif','six','seven','eigh','nine')
l2= ('','','twenty')+tuple('%sty'%j.replace('u','') for j in m2)
l3=('ten','eleven','twelve')+tuple('%steen'%j for j in m2)
def v(n): t,o=divmod(n,10); return l2[t]+(l1 if t-1 else l3)[o][0 if t else 1:]
def d(n): return (v(n).capitalize()if n>0 else 'No more')+' bottle'+('s' if n!=1 else '')+' of beer'
b,c = ' on the wall\n','Take one down, pass it around\n'
for x in range(99,0,-1): print d(x)+b+d(x)+'\n'+c+d(x-1)+b

Normal Code

for i in range(99,0,-1): #or range(1,100)[::-1]
   print "%d bottles of beer on the wall" % i
   print "%d bottles of beer" % i
   print "Take one down, pass it around"
   print "%d bottles of beer on the wall" % i-1

[edit] SNUSP

  /=!/===========!/==+++++++++#   +9
  |  |  /=!/=====@/==@@@+@+++++# +48 (itoa)
  |  |  |  |  /==!/==@@@@=++++#  +32 (space)
  |  |  |  |  |   \==@@++\!+++++++++++++\!+++++\ 
  9  9 '9  9' space     'b'            'o'    't'
$@/>@/>@/>@/>@/>========@/>============@/>====@/>++++++++++     \n  setup
  /====================================loop=====>\!=>\!<<<<<<<< /
  \@\@\>cr.@\< ?\<->+++++++++>->+++++++++\       |   |
    ! |     |   \===-========>=>-==BCD==!\< @\< ?/< ?/# no more beer!
    /=|=====|================================/
    | |     \<++t.<<----a.>----k.<++++e.<_.>>++++o.-n.< e.<_.>-d.>+o.>+++w.<-n.<<_.\ 
    | |     /                                                                      /
    | |     \>---a.>n.<+++d.<_.>>++p.<---a.>>----s.s.<<<_.>>-------i.>+t.<<<_.\ 
    | |     /                                                                 /
    | |     \>a.>>--r.<++++++o.>+++u.<-n.<+++d.>>>cr.<-T<+O<--B<<<#
    | !
    \@\<<<_.>>o.-n.<<_.>>>++t.<<+++h.---e.<_.>>>+++w.<<----a.>--l.l.>>CR.<---T<+++O<+B<<<#
      |
      \9.>9.>_.>B.>O.>T.t.<---l.<+++e.>>-s.<<<_.>>+++O.<+f.<_.>----b.+++e.E.>>-R.#

[edit] UnixPipes

Unix Pipes, avoiding all the turing complete sub programs like sed, awk,dc etc.

mkdir 99 || exit 1
trap "rm -rf 99" 1 2 3 4 5 6 7 8

(cd 99
   mkfifo p.b1 p.b2 p.verse1 p.wall p.take
   yes "on the wall" > p.wall &
   yes "Take one down and pass it around, " > p.take &
   (yes "bottles of beer" | nl -s\ | head -n 99 | tac | head -n 98 ;
    echo "One bottle of beer";
    echo "No more bottles of beer") | tee p.b1 p.b2 |
   paste -d"\ " - p.wall p.b1 p.take | head -n 99 > p.verse1 &
   cat p.b2 | tail -99 | paste -d"\ " p.verse1 - p.wall | head -n 99
)
rm -rf 99

[edit] V

[bottles
  [newline '' puts].
  [beer
    [0 =] ['No more bottles of beer' put] if
    [1 =] ['One bottle of beer' put] if
    [1 >] [dup put ' bottles of beer' put] if].
  [0 =] [newline]
    [beer ' on the wall, ' put beer newline
    'Take one down and pass it around, ' put pred beer ' on the wall' puts newline]
  tailrec].

99 bottles

99 Bottles of Beer

From Rosetta Code

Contents

[edit] Ada

[edit] APL

[edit] AWK

[edit] BASIC

[edit] Sound

[edit] Text

[edit] C

[edit] The simple solution

[edit] A preprocessor solution

[edit] C++

[edit] The simple solution

[edit] An object-oriented solution

[edit] A template metaprogramming solution

[edit] A preprocessor solution

[edit] Common Lisp

[edit] D

[edit] E

[edit] Forth

[edit] Haskell

[edit] Io

[edit] J

[edit] Java

[edit] Console

[edit] An object-oriented solution

[edit] GUI

[edit] Lucid

[edit] MAXScript

[edit] Make

[edit] Nial

[edit] OCaml

[edit] Perl

[edit] Pop11

[edit] Python

[edit] SNUSP

[edit] UnixPipes

[edit] V

Views

Personal tools

Browse

Contribute

Community

Search

Toolbox