99 Bottles of Beer

Voting

Bookmarking

Language Lisaac

Date:	06/05/08
Author:	Xavier
URL:	n/a
Comments:	0
Info:	http://isaacproject.u-strasbg.fr/
Score:	(3.00 in 1 votes)

Section Header

  + name := BOTTLES;

  - comment := "The cool song 99 bottles of beer!";

Section Private

  + b : STRING_CONSTANT := " bottles ";

Section Public

  - main <-
  (
    + v : INTEGER;
    99.downto 1 do { i : INTEGER;
      i.print;
      (b + "of beer on the wall, ").print;
      i.print;
      (b + "of beer.\nTake one down and pass it around, ").print;

      v := i - 1;
      (v = 0).if {
        "no more bottles of beer on the wall.".print;
        "\n\nNo more bottles of beer on the wall, no more bottles of beer.".print;
        "\nGo to the store and buy some more, 99 bottles of beer on the wall.\n".print;
      } else {
        v.print;
        (v == 1).if_true {
          b := " bottle ";
        };
        (b + "of beer on the wall.\n\n").print;
      };
    };
  );

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!

one program in 1500 variations