# 99 Bottles Of Beer [closed]

Recreate '99 bottles of beers on the wall'.

The desired output is this:

99 bottles of beer on the wall, 99 bottles of beer.
Take one down and pass it around, 98 bottles of beer on the wall.

98 bottles of beer on the wall, 98 bottles of beer.
Take one down and pass it around, 97 bottles of beer on the wall.

97 bottles of beer on the wall, 97 bottles of beer.
Take one down and pass it around, 96 bottles of beer on the wall.

96 bottles of beer on the wall, 96 bottles of beer.
Take one down and pass it around, 95 bottles of beer on the wall.

95 bottles of beer on the wall, 95 bottles of beer.
Take one down and pass it around, 94 bottles of beer on the wall.

....

3 bottles of beer on the wall, 3 bottles of beer.
Take one down and pass it around, 2 bottles of beer on the wall.

2 bottles of beer on the wall, 2 bottles of beer.
Take one down and pass it around, 1 bottle of beer on the wall.

1 bottle of beer on the wall, 1 bottle of beer.
Go to the store and buy some more, 99 bottles of beer on the wall.


Show me how you would solve this with your favorite programming language. Most creative use of a language wins.

-

## locked by Dennis♦Jan 30 at 22:30

This question exists because it has historical significance, but it is not considered a good, on-topic question for this site, so please do not use it as evidence that you can ask similar questions here. This question and its answers are frozen and cannot be changed. More info: help center.

## closed as too broad by Dennis♦Jan 30 at 22:30

There are either too many possible answers, or good answers would be too long for this format. Please add details to narrow the answer set or to isolate an issue that can be answered in a few paragraphs.If this question can be reworded to fit the rules in the help center, please edit the question.

"Most creative use" is too subjective for an SE site, I think. We should aim to use objective criteria, such as "shortest code". – Chris Jester-Young Jan 27 '11 at 21:04
Still a good question though – Chris Laplante Jan 27 '11 at 21:06
Is it supposed to run infinitely? I assumed so. Also codegolf doesn't own 99 bottles of beer so there is not reason to even discuss it. – Mike Bethany Jan 28 '11 at 8:04
@Chris -- That is going to be the toughest part of this SE site, because the whole thing is based on creativity, because that is half the fun of programming puzzles. The most creative solution isn't always the most efficient or shortest. – Nick Berardi Jan 28 '11 at 14:13
@Nick: I hear you. I just want to know how one can determine how creative a solution is---based on your own judgement? Based on the voters'? Neither is particularly reliable (no offence). Something like brevity is indisputable---for example, nobody can dispute the "goodness" of the 1-byte stack overflow code golf solution. – Chris Jester-Young Jan 28 '11 at 14:26

# Perl (410 characters)

There's already a website dedicated to this contest:

One of the Perl solutions would be very very hard to beat in terms of creativity, it reads:

[bottles.pl]


$a= "cpuu \bmft p \bg cff \bs";$b
="po ui
\bf xbm
\bm";$c=" Ypv ublf p \bof epxo qb \btt ju bspvoe";$a =~ s/\n//;$a =~ s/\s+/ /g;$b   =~
s/\n// ;  $b =~ s/\s+/ /g;$c    =~
s/\n// ;  $c =~ s/\s+/ /g;$a    =~
y/b-z/a-z/;$b =~ tr/b-z/a-z/;$c  =~
tr/b-z/a-z/ ; for(
$d=100;$d>0;$d--){ print"$d $a$b $d" ;print"$a,\n$c, " ;print($d-1);print
" $a$b.\n";} $x = "cjc";$y="dobbz";
$z="com";print"\n" ;print "-$x\@$y." ;print"$z \n\n";



Here's the link to the original file.

-
Nice presentation, but this don't match request!! – F. Hauri Feb 7 '14 at 8:39
A 'rot1' cipher, not the best attempt at obfuscation I've seen. The use of \b to 'remove' unwanted characters is also a bit disappointing. – primo Jun 14 '14 at 15:26

## Brainf*** (1,509)

I figured I could trump this answer by not only making 9 beer bottles instead of 1, but also by only using 7 different characters in the code.

    +++           +++           +++           [>+           +++           ++>           +++           +++           <<-
]>+           ++>           +++           >++           +++           +++           ++>           +++           +++
+++>+         +++++         +++++         [>+++         >++++         >++++         <<<-]         >->>+         +>+++
+++++         [>+++         +++++         ++++>         +++++         +++++         ++>++         +++++         +++++
>++++         +++++         +++>+         +++++         +++++         +>+++         +++++         +++++         >++++
+++++         ++++>         +++++         +++++         +++>+         +++++         +++++         ++>++         +++++
++++++>       +++++++       ++++++>       +++++++       +++++++       >++++++       +++++++       +>+++++       +++++++
++>++++       +++++++       +++>+++       +++++++       ++++>++       +++++++       +++++<<       <<<<<<<       <<<<<<<
<-]>+>+       +>++++>       +++++>+       +++++>>       +>+++>+       +++>+++       +++>+++       ++++>>+       +>+++>+
+++>+++++     >+++++++<     <<<<<<<<<     <<<<<<<<<     <<<<[>[<<     <.>.>>>>.     >>>>>.>>>     >>>>>>.>>     >>..<<<<<
<.<<<<<.>>>   >>>>>>>.<<<   <<<<<<<<<<<   <<<.>>>>>>>   >>>>>>>.<<<   <<<.<<<<<<<   <.>>>>>.>>.   .>>>>>>>>>.   <<<<<<<<<<<
<<<<<.>>>>>   >>>>>>>>>.<   .<<<<<<<<<<   <<<.>>>>>>>   >>>>>>>>>>>   .<<<<<<<<<.   <<.<<<<<<<.   >>>>>>>>>>>   >>>>>>>>>.<
<<<<<<<<<<<   <<<<.>>>>>>   >>..<<<<<<<   <<<<.<.<<<<   <.>.>>>>.>>   >>>.>>>>>>>   >>.>>>>..<<   <<<<.<<<<<.   >>>>>>>>>>.
<<<<<<<<<<<   <<<<<<.>>>>   >>>>>>>>>>.   <<<<<<.<<<<   <<<<.>>>>>.   >>..>>>>>>>   >>.<<<<<<<<   <<<<<<<.<.>   >>>>>>>>>>>
>>>>>>.<<<<   <<<<<<<<<<.   >>>>>>>.<<<   <.<<<<<<<.>   >>>>>>>>>>>   >>.<.<<<<<<   .<<<<<<<.>>   >>>>.>>>>>>   >>.>>>>>>.<
<<<<<<.<<<<   <<<<<<<<<.>   >>>.>>>>>>>   >>.<<<<<<<.   <<<<<<.>>>>   >>>>>>>>>>>   .<<<<<<<<<<   <.>>>>>>>>>   >>>>..<<<<<
<<<<<<<<<<<   <.>>>>>>>>>   >.>>>>>>>>.   <<<<<<<<<<<   <<<<<<<.>>>   >.>>>>>>>>>   >>>.<<.>>>>   >.<<<<<<.<<   <<<<<.<<<<<
.<.<<<<<.>-   .>>>>.>>>>>   .>>>>>>>>>.   >>>>..<<<<<   <.<<<<<.>>>   >>>>>>>.<<<   <<<<<<<<<<<   <<<.>>>>>>>   >>>>>>>.<<<
<<<.<<<<<<<   <.>>>>>.>>.   .>>>>>>>>>.   <<<<<<<<<<<   <<<<<.>>>>>   >>>>>>>>>.<   .<<<<<<<<<<   <<<.>>>>>>>   >>>>>>>>>>>
.<< < <<<     <<< . <<.     <<< < <<<     .>> > >>>     >>> > >>>     >>> > >>>     .<< < <<<     <<< < <<<     <<< . >>>
>> >>>.       .<<< <<       <<<< <.       << . <<       -]+ +++       ++ + ++       << + ++       ++ + ++       +<->>-]


I do have to admit though, there is a bug in the code (maybe you can figure out how to fix it for me?) and it does not print the final sentence, Go to the store and buy some more, 99 bottles of beer on the wall. But other than that, it functions just as well as any of the programs made in those sissy programming languages everyone else seems to like to use.

-
+1 for the ASCII art within the code – Nate Koppenhaver Apr 27 '11 at 18:14
+1 for the effort. – Chris Apr 29 '11 at 8:47
You only have 9 bottles there. You need 90 more! – Joe Z. Mar 15 '13 at 20:32
Petition: rename this language to braindrunk ? – Cyoce Dec 16 '15 at 18:55

## Funciton

I wrote this just the other day. :) (Screenshots: start and finish)

Since this looks ugly in StackExchange due to the extra line spacing, consider running the following code in your browser’s JavaScript console to fix that: $('pre').css('line-height',1)  ╓┬────╖ ╔════╗ ┌───╖ ╟┘99b ║ ║ −1 ╟──┤ + ╟──┐ ╙──┬──╜ ╚════╝ ╘═╤═╝ ├──────────────────────────┴─────────────────────────────┐ ╔════╗ ┌─┴─╖ │ ╔════════════════════════════════════════════════════╗│ ║ 99 ╟──┤ ? ╟──┘ ║ 93438979891487426396059469986395555362079573844971 ║│ ╚════╝ ╘═╤═╝ ║ 71377306928718494179034460561943201885027745835961 ║│ ┌──┴───╖ ║ 98129935108241412387473531261660077880505710501626 ║│ ╔════╗ │ 99bp ║ ║ 32694396343717333192558234646820019070451056711 ║│ ║ 99 ║ ╘══╤═══╝ ╚══════════════════════════╤═════════════════════════╝│ ╚═╤══╝ ┌─┴─╖ ┌───╖ ┌─┴─╖ ╔═════════════════╗ │ ┌──┴──╖ │ ‼ ╟───────────────────────┤ ‼ ╟──┤ ? ╟──╢ 445551776368547 ║ │ │ 99b ║ ╘═╤═╝┌─────────────────────┐╘═╤═╝ ╘═╤═╝ ║ 925186328623383 ║ │ ╘══╤══╝ │ │╔═══════════════════╗│ │ │ ║ 851314944882510 ║ │ │ │ │║ 15177132563375318 ║│ │ │ ║ 812246570019017 ║ │ ╔════════╗ │ │║ 07655616350359109 ║│ │ │ ║ 240477365113929 ║ │ ║ 318287 ║ │ │║ 82597577171382437 ║│ │ │ ║ 659548419629671 ║ │ ║ 023073 ║ │ │║ 18150105146396039 ║│ │ │ ║ 952755268258505 ║ │ ║ 603558 ║ │ │║ 2022986808360992 ║│ │ │ ║ 759402210908648 ║ │ ║ 743780 ║ │ │╚══════════╤════════╝│ │ │ ║ 737406010882693 ║ │ ║ 068900 ║ │ │ ┌─┴─╖ ┌───╖ │ │ │ ║ 018745757193818 ║ │ ║ 028319 ║ │ │ │ ‼ ╟─┤ ‼ ╟─┘ │ │ ║ 597439618635403 ║ │ ║ 948400 ║ │ │ ╘═╤═╝ ╘═╤═╝ │ │ ║ 821854707881243 ║ │ ║ 620075 ║ │ │ ┌─┴─╖ │ ┌─┴─╖ │ ║ 92049082452 ║ │ ║ 955580 ║ │ └─────┬───┤ ‼ ╟────────┤ ‼ ║ │ ╚═════════════════╝ │ ║ 347161 ║ │ │ ╘═══╝┌──────┐╘═╤═╝ └─────────────┐ │ ║ 651333 ║ │ ╔═══╗│┌──────╖│╔════╗│ ╔╧═════════╗ │ │ ║ 590970 ║ │ ║ 0 ║└┤ 99bp ╟┘║ −1 ║└┐║ 20971566 ║ ├────────────┘ ║ 678045 ║ │ ╚══╤╝ ╘══════╝ ╚══╤═╝ │╚══════════╝ │ ║ 336290 ║ ┌─┴─╖ ┌─┴─╖ ┌─────╖ ┌┴──╖├──────────────────────┘ ║ 721824 ╟──┤ ‼ ╟──┤ ? ╟──┤ 99b ╟──┤ + ║│ ╚════════╝ ╘═══╝ ╘═╤═╝ ╘═════╝ ╘═╤═╝│ ╓┬──────╖ └───────┬───────┘ │ ╟┘ 99bp ║ └──────────┘ ╙───┬───╜ ┌────────────────────────────────────────────────┴──────────────┐ │╔══════════════════════════════════════════╗╔═══════════╗ │ │║ 8592134145756414358602136806465202028576 ║║ 232783950 ║ │ │╚══════════════════════════════╤═══════════╝╚╤══════════╝ │ │ ┌───╖ ╔═══╗ ┌─┴─╖ ┌───╖ ┌─┴─╖ ┌─────────╖ │ └───────────────┤ = ╟──╢ 1 ║ │ ‼ ╟──┤ ‼ ╟──┤ ? ╟──┤ int→str ╟──┴┐ ╘═╤═╝ ╚═══╝ ╘═╤═╝ ╘═╤═╝ ╘═╤═╝ ╘═════════╝ │ ╔═══╗ ┌─┴─╖ ┌─┴─╖ │ └──────────────────┘ ║ 0 ╟──┤ ? ╟─────────┤ ‼ ╟──┐ ╚═══╝ ╘═╤═╝ ╘═══╝ │ ╔════╧╗╔════════════════╧════════════════════════════════╗ ║ 115 ║║ 20338288213193790107412311132593873016630280224 ║ ╚═════╝╚═════════════════════════════════════════════════╝  - +1 for combining code and art – Nate Koppenhaver May 10 '11 at 19:16 plus one, this is awesome – gyurisc Jul 28 '11 at 12:38 That language is amazing, great job! – ceased to turn counterclockwis Mar 11 '12 at 11:54 Awesome.. CodeArt – MissingNumber Feb 12 '14 at 9:59 I saw this on Esolang.org and liked the look of it. – M L Jul 28 '15 at 16:13 # jQuery + FireBug Console $('code:first').text()


;)

-
+1: Very creative! – Timwi Jul 14 '11 at 15:08
What about something like eval($($('code')[8]).text().replace(/print/g,'console.log')) <del>(aka. stealing)</del>? It prints the whole lyrics of the song. :P – JiminP Jul 26 '11 at 8:59
Also works on Chrome's javascript console. – Spoike Sep 22 '11 at 8:08
@JiminP Unfortunately, that's not a stable selector given how the answer order can change over time (in fact, it no longer works). – Muhd Dec 21 '13 at 0:52
@Muhd Still works as long as the question isn't changed - the first code block is the one in the question. – Bob Jan 17 '14 at 5:15

HQ9+ (1 character)

9


Admittedly its not a Turing complete language, but this still counts

-
Why don't you use HQ9 B? It's Turing complete. – Mateen Ulhaq Apr 30 '11 at 5:25
@muntoo I'm not sure HQ9+B is turing complete.. The command B polls the keyboard input and evaluates that as brainfuck so it's HQ9+ with an optonal Brainfuck interpreter. i.e. the program "B" in HQ9+B will poll stdin until it gets ! (or EOF) and interpret that as Brainfuck.. – Sylwester Feb 6 '14 at 21:37

Who said C# had too much ceremony? Whoever it was, they have never been so right.

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;

namespace _99Bottles
{
class Program
{
static void Main(string[] args)
{
PrintSong(99);
}

static void PrintSong(int bottleCount)
{
Func<int, string> sOrBlank = howMany => howMany > 1 ? "s" : "";

PrintBottles(howManyBottles =>
{
Console.WriteLine("{0} bottle{1} of beer on the wall, {0} bottle{1} of beer.", howManyBottles, sOrBlank(howManyBottles));
if (howManyBottles > 1)
{
Console.WriteLine("Take one down and pass it around, {0} bottle{1} of beer on the wall.", --howManyBottles, sOrBlank(howManyBottles));
}
else
{
Console.WriteLine("Go to the store and buy some more, 99 bottles of beer on the wall.", --howManyBottles);
}
},
bottleCount);
}

static void PrintBottles(Action<int> printBottles, int count)
{
printBottles(count);

if (count > 1)
{
PrintBottles(printBottles, --count);
}
}
}
}

-
+1 For being another C-style sacrificial lamb in an ocean of Perl. – Glenn Nelson Jan 27 '11 at 21:26
That can be reduced quite substantially. – Nellius Jan 28 '11 at 9:39
@Nellius Did you even read what ilivewithian said before his code? – Daniel Standage Jan 28 '11 at 14:08
@Daniel Yes, and it implies that he thinks everything in his code is necessary. If meant as a joke, it shouldn't be voted up this much. It's not short, creative, efficient, or even slightly clever. – Nellius Jan 28 '11 at 14:16
@Nellius It wasn't meant as a serious contender, on no level is this good code. I'm sure it can be reduced, made more efficient and generally improved considerably. – Rob White Jan 28 '11 at 15:10

# C

This program is generating the complete song text as single string using the preprocessor. The actual C code just outputs the string thus constructed. Calling strings on the generated executable will reveal the complete song text in the executable.

#define BOTTLES(n) n " bottles of beer"
#define BOTTLE "1 bottle of beer"
#define OTW " on the wall, "
#define TAKE "Take one down, pass it around, "
#define STOP "."
#define NL "\n"

#define LINE1(n) BOTTLES(n) OTW BOTTLES(n) STOP NL
#define LINE1A BOTTLE OTW BOTTLE STOP NL
#define LINE2(n) TAKE BOTTLES(n) STOP NL
#define LINE2A TAKE BOTTLE STOP NL

#define MIDDLEPART(n) LINE2(n) NL LINE1(n)
#define MIDDLELAST LINE2A NL LINE1A

#define EIGHT_TO_TWO(S, M) M(S "8") M(S "7") M(S "6") M(S "5") M(S "4") M(S "3") M(S "2")
#define EIGHT_TO_ONE(S, M) EIGHT_TO_TWO(S, M) M(S "1")
#define EIGHT_TO_TWO_AGAIN(S, M) M(S "8") M(S "7") M(S "6") M(S "5") M(S "4") M(S "3") M(S "2")
#define EIGHT_TO_ONE_AGAIN(S, M) EIGHT_TO_TWO_AGAIN(S, M) M(S "1")
#define NINE_TO_TWO(S, M) M(S "9") EIGHT_TO_TWO(S, M)
#define EIGHT_TO_ZERO(S, M) EIGHT_TO_ONE(S, M) M(S "0")
#define NINE_TO_ZERO(S, M) M(S "9") EIGHT_TO_ZERO(S, M)

#define NINETIES EIGHT_TO_ZERO("9", MIDDLEPART)
#define NTIES(n) NINE_TO_ZERO(n, MIDDLEPART)
#define EIGHTIES_TO_TENS EIGHT_TO_ONE_AGAIN("", NTIES)
#define NAUGHTIES NINE_TO_TWO("", MIDDLEPART)

#define SONG LINE1("99") NINETIES EIGHTIES_TO_TENS NAUGHTIES MIDDLELAST LINEX

#include <stdio.h>

int main()
{
puts(SONG);
return 0;
}

-
Probably the most efficient and fastest solutions of these. – Tom Pažourek Jun 6 '14 at 13:20
@tomp Efficient timewise, very inefficient in the executable file size :) – Seeq Oct 7 '14 at 5:03

C# (312 310 304 characters)

class P{static void Main(){string b=" bottle",w=" on the wall",o=" of beer",p=".\n",s="s";for(int i=99;i>0;i--)System.Console.Write(i+b+(i>1?s:"")+o+w+", "+i+b+(i>1?s:"")+o+p+(i>1?"Take one down and pass it around, "+(i-1)+b+(i-1>1?s:"")+o+w+p+"\n":"Go to the store and buy some more, "+99+b+s+o+w+p));}}

-
I can't believe you got it in shorter than me. I'm impressed. I'll have to study for a better set of options – jcolebrand Jan 29 '11 at 6:30
And now I have studied for it, I'm down to under 300 ;) – jcolebrand Jan 29 '11 at 6:38

## C#

Not intended to be short, but perhaps this counts as creative?

using System;
using System.Linq;

class Program
{
static void Main()
{
Console.WriteLine(string.Join(Environment.NewLine, Enumerable.Range(0, 100).Select(i =>
string.Format(
string.Format(
"{0} {1} {{3}} {{4}},{{9}}{0} {1} {{3}}.{{9}}{2},{{9}}{3} {4} {{3}} {{4}}.{{9}}",
i == 99 ? "{0}" : "{7}",
i == 98 ? "{1}" : "{2}",
i == 99 ? "{6}" : "{5}",
i == 98 ? "{0}" : "{8}",
i == 97 ? "{1}" : "{2}"
),
"No",
"bottle",
"bottles",
"of beer",
"on the wall",
"Take one down, pass it around",
"Go to the store, buy some more",
99 - i,
(198 - i) % 100,
Environment.NewLine
))));
}
}


Note this is just a single statement :)

-

Definitely doesn't qualify as creative, but it gets'r done from the command line with a single command.

perl -e '$i=99;while($i>1){print("$i bottles of beer on the wall,$i bottles of beer.\nTake one down and pass it around, ".--$i." bottles of beer on the wall\n\n");}print("1 bottle of beer on the wall, 1 bottle of beer.\nGo to the store and buy some more, 99 bottles of beer on the wall.\n");'  - ## Haskell, 272, 250, 243 characters (&)=(++) b 1=" bottle" b _=b 1&"s" w=" on the wall" p n=show n&b n&" of beer" f n=putStrLn$p n&w&","&p n&".\n"&c(n-1)
c 0="Go to the store and buy some more, "&p 99&w&"."
c n="Take one down and pass it around, "&p n&w&"\n"
main=mapM f[99,98..1]

-

## Windows PowerShell (198)

filter b{"$_ bottle$('s'*!!--$_) of beer"}(99..1|%{($_|b)+($w=' on the wall')+",$($_|b)." "Take one down and pass it around,$(--$_|b)$w.
"})[0..196]
"Go to the store and buy some more, $(99|b)$w."


Fairly straightforward.

I'm using a filter for the bottles of beer, since function is longer and invocation needs parentheses in any case. The plural detection (!!--$_) first decrements the number of bottles by one (so plural is anything non-zero), casts it to boolean and negates it with the first ! and negates it again so we now have a boolean describing whether the number needs a plural or not. This is then implicitly casted to an integer when multiplying the string. Inline line breaks are fun. Spawning more lines than needed and cutting back afterwards, too. - Definitely short, and this set a bar to try and go under!!! Though from my point of view, the appearance of a "magic number" like 196 was in the class of things I hope to be able to avoid because it captures (99 * 2) - 2. For an answer where you can change the bottle count in one place :) see codegolf.stackexchange.com/questions/2/99-bottles-of-beer/… – Dr. Rebmu Feb 3 '11 at 18:32 You're missing "on the wall." in the final line of output and after every bottle is taken down. – Iszi Nov 24 '13 at 2:52 filter b{"$_ bottle$('s'*!!--$_) of beer"}(99..1|%{($_|b)+($w=' on the wall')+", $($_|b).";"Take one down and pass it around, $(--$_|b)$w. "})[0..196];"Go to the store and buy some more,$(99|b) $w." fixes that. Totals 199 characters. (Add a line break after $w before ") – Iszi Nov 24 '13 at 3:19
Thanks for the fix. There was a superfluous space in there too, so the count is 198 instead. – Joey Nov 24 '13 at 12:07

## Curl 19 characters

(requires internet connection)

curl -L j.mp/eGv9K5

-
I consider this stretching it too far. – marcog Jan 28 '11 at 11:24
I consider it a joke. Many solutions can be hidden behind a query to a web server. – Alexandru Jan 28 '11 at 15:48
I like this one nevertheless. – pimvdb May 31 '11 at 19:53
If objective was shortest code, I'd give you a point for cleverness. – Neil Jul 7 '11 at 14:15

Almost-correct anti-golf from the uber-eager new C programmer who's learning Perl?

#!/usr/bin/perl
#      ^
#      |
#      |
# That's the Perl interpreter.
# You might need to change this line based on

# Pragmas for debugging!
use strict;
use warnings;

# Library dependencies...none! lolz

# Main implementation
my $number_of_bottles_of_beer_on_the_wall = 99; #start with 99 bottles LOOP: while($number_of_bottles_of_beer_on_the_wall > 0 )
{
printf( "%d bottles of beer on the wall, %d bottles of beer\n",
$number_of_bottles_of_beer_on_the_wall,$number_of_bottles_of_beer_on_the_wall,                  );

if( $number_of_bottles_of_beer_on_the_wall > 1 ) {$number_of_bottles_of_beer_on_the_wall -= 1;
printf( "Take one down and pass it around, %d bottles of beer on the wall.\n\n",
$number_of_bottles_of_beer_on_the_wall, ); } else { printf( "Go to the store and buy some more, %d bottles of beer on the wall\n", 99 ); last LOOP; } }  - Why not /usr/bin/env perl? – nyuszika7h Dec 28 '14 at 8:41 @nyuszika7h Insightful critique! ;) – Daniel Standage Dec 30 '14 at 0:36 # JavaScript (216228 215) for(a=99,c=" on the wall";a;)document.write((d=eval(b="(a||99)+' bottle'+(a-1?'s':'')+' of beer'"))+c+", "+d+".<br>"+(--a?"Take one down and pass it around, ":"Go to the store and buy some more, ")+eval(b)+c+".<p>")  Edit: Had a single "1 bottles of beer" in initial version, 3rd version is completely rewritten, notice cool tricks like (a||99) to get 99 in the last line, (a-1?'s':'') making plural for every case but a==1 though without need for the wasteful ==, and setting the value of b inside a statement where it is used. - It looks like your bottle/bottles optimization is costing you more characters than it saves. – Yahel Jan 28 '11 at 13:26 I'm not sure what you mean, what exactly would you change? – aaaaaaaaaaaa Jan 29 '11 at 0:22 This one stops one verse too early. Last verse should go "no more bottles of beer on the wall, no more bottles..." -- See: 99-bottles-of-beer.net/lyrics.html – Már Örlygsson Oct 7 '14 at 0:41 BTW, I managed a full, correct version in 233 bytes: for(o,e,n=100,t=" on the wall";n-->-1;)o=e+t+", "+e+".<br>"+(n>-1?"Take one down, pass it around, ":"Go to the store and buy some more, ")+(e=(0>n?99:n||"no more")+" bottle"+(1!=n?"s":"")+" of beer")+t+".<p>",99>n&&document.write(o) – Már Örlygsson Oct 7 '14 at 0:42 @MárÖrlygsson Welcome to the site. The lyrics for this challenge are defined in the opening post. – aaaaaaaaaaaa Oct 7 '14 at 11:08 C I must have missed this question, so here's a version I posted as an answer elsewhere. It's a C quine based version. Compile and run to get next line of song. Repeat until bored. If code says "Time to go..." then enter number of beers next time you run as a command line argument. // Time to go to the shop and get some beer // // // // // #####.#####.#####.#####.#####.#####.##### // ##.#####.#####.#####.#####.#####.#####.## // #####.#####.#####.#####.#####.#####.##### // ##.#####.#####.#####.#####.#####.#####.## char *z [] = { "void l(char *s,int b){int i;printf(\"// \");for(i=0;i<b;++i)printf(s);", "printf(\"\\n\");}\nint main(int argc, char *argv[]){\nint i,j,k,x=%d;", "char*p;\nif(!x&&argc==2)x=atoi(argv[1]);\nif(!x){printf(\"// Time to ", "go to the shop and get some beer\\n//\\n//\\n//\\n//\\n\");k=7;\n", "}else{printf(\"// %%d bottles of beer on the wall, %%d bottles of beer", ".\\n\",x,x);printf(\"// Take one down and pass it round, \");\n", "if(x>1)printf(\"%%d bottles of beer on the wall.\\n//\\n\",x-1);\n", "else printf(\"no more bottles of beer on the wall.\\n//\\n\");\n", "k=x>2?x:2;l(\" ^ \",x);l(\" / \\\\ \",x);l(\"/ \\\\ \",x);", "l(\"| | \",x);l(\"|Duf| \",x);l(\"| | \",x);l(\"----- \",x);}\n", "for(i=0;i<4;++i){\nprintf(\"// %%s\", i&1 ? \"##.\" : \"\");\n", "for(j=i&1;j<k;++j)\nprintf(\"%%s#####\",j!=(i&1)?\".\":\"\");\n", "printf(\"%%s\\n\",i&1?\".##\":\"\");}\nprintf(\"\\nchar *z [] = {\\n\");\n", "for(i=0;i<sizeof z/sizeof z[0];++i){\nprintf(\"\\\"\");\n", "for(p=z[i];*p;++p)\nswitch (*p){\ncase '\\n':printf(\"\\\\n\");break;\n", "case '\\\\':printf(\"%%c%%c\",92,92);break;\n", "case '%%':printf(\"%%c\",37);break;\ncase '\"':printf(\"%%c%%c\",92,'\"');break;\n", "default:printf(\"%%c\", *p);break;}\nprintf(\"\\\",\\n\");}\n", "printf(\"};\\n\");\nfor(i=0;i<sizeof z/sizeof z[0];++i)\n", "printf(z[i],x?x-1:0);}\n", }; void l(char *s,int b){int i;printf("// ");for(i=0;i<b;++i)printf(s);printf("\n");} int main(int argc, char *argv[]){ int i,j,k,x=0;char*p; if(!x&&argc==2)x=atoi(argv[1]); if(!x){printf("// Time to go to the shop and get some beer\n//\n//\n//\n//\n");k=7; }else{printf("// %d bottles of beer on the wall, %d bottles of beer.\n",x,x);printf("// Take one down and pass it round, "); if(x>1)printf("%d bottles of beer on the wall.\n//\n",x-1); else printf("no more bottles of beer on the wall.\n//\n"); k=x>2?x:2;l(" ^ ",x);l(" / \\ ",x);l("/ \\ ",x);l("| | ",x);l("|Duf| ",x);l("| | ",x);l("----- ",x);} for(i=0;i<4;++i){ printf("// %s", i&1 ? "##." : ""); for(j=i&1;j<k;++j) printf("%s#####",j!=(i&1)?".":""); printf("%s\n",i&1?".##":"");} printf("\nchar *z [] = {\n"); for(i=0;i<sizeof z/sizeof z[0];++i){ printf("\""); for(p=z[i];*p;++p) switch (*p){ case '\n':printf("\\n");break; case '\\':printf("%c%c",92,92);break; case '%':printf("%c",37);break; case '"':printf("%c%c",92,'"');break; default:printf("%c", *p);break;} printf("\",\n");} printf("};\n"); for(i=0;i<sizeof z/sizeof z[0];++i) printf(z[i],x?x-1:0);}  - @DreamWarrior in regards to your proposed edit, have you considered putting your code in pastebin so that you could post it as a comment? – nderscore May 29 '14 at 21:03 # Javascript (285) This assumes there is a function called print, to output a string. b=' of beer on the wall';n=100;while(--n>1)if(n>1)print(n+" bottles"+b+', '+n+" bottles of beer.\nTake one down and pass it around, "+(n-1)+' bottle'+(n-1>1?'s':'')+b+'.\n\n');print("1 bottle"+b+", 1 bottle of beer.\nGo to the store and buy some more, 99 bottles of beer on the wall.")  - I'm not sure that assumed functions are fair. For example, my program could be b();. Assuming there is a function b() that prints 99 bottles of beer on the wall. :) – Chris Laplante Jan 27 '11 at 21:37 Javascript doesn't provide any standard way to output a string, if you are running it in a browser, it doesn't have a print function, if you are running it in rhino, you do. – user11 Jan 27 '11 at 21:39 document.writeln works. – Chris Laplante Jan 27 '11 at 21:44 ... for browsers – user11 Jan 27 '11 at 21:50 JavaScript has IO with: alert as output, prompt as variable input and confirm as boolean input. They suck as far as UI goes, but they are the standard blocking IO functions. alert and print are the same length, so your code should be about equal. – zzzzBov May 14 '11 at 20:09 # Scheme (270) No whitespace: (let l((i 99))(let((b" bottle")(c" on the wall")(d"Take one down and pass it around,")(e".\n")(f", ")(g" of beer"))(if(= i 1)(map display(1,b,g,c,f,1,b,g,e"Go to the store and buy some more, 99",b,c,e))(begin(map display(,i,b,g,c,f,i,b,e,d,i,b,c,e"\n"))(l(-1+ i))))))  With whitespace:  (let l ((i 99)) (let ((b" bottle") (c" on the wall") (d"Take one down and pass it around, ") (e".\n") (f", ") (g" of beer")) (if (= i 1) (map display(1 ,b ,g ,c ,f ,1 ,b ,g ,e "Go to the store and buy some more, 99" ,b ,c ,e)) (begin (map display (,i ,b ,g ,c ,f ,i ,b ,e ,d ,i ,b ,c ,e "\n")) (l (-1+ i))))))  - +1, I enjoyed reading this – ixtmixilix Aug 18 '11 at 10:54 # Python - a lot Amidoinitrite? print"""99 bottles of beer on the wall, 99 bottles of beer. Take one down and pass it around, 98 bottles of beer on the wall. 98 bottles of beer on the wall, 98 bottles of beer. Take one down and pass it around, 97 bottles of beer on the wall. 97 bottles of beer on the wall, 97 bottles of beer. Take one down and pass it around, 96 bottles of beer on the wall. 96 bottles of beer on the wall, 96 bottles of beer. Take one down and pass it around, 95 bottles of beer on the wall. 95 bottles of beer on the wall, 95 bottles of beer. Take one down and pass it around, 94 bottles of beer on the wall. .... Ok, this is stupid. First of all, what the brainfuck are the bottles doing on the wall? They're not spiders nor picture frames. And how are they sitting on the wall? 94 bottles of beer on the wall, 9.. oops, they fell down. 94 bottles of beer on the floor, 94 bottles of beer. Second.. who the HQ9+ wants to keep track? I think I lost count after drinking the 2nd one... Take one ... um... up, and pass it around, ..... er.. a lot of bottles of beer still on the floor. Fourthly, what's with this passing around scheme? They're not j..I mean letters, yeah, or boxes of chocolate. We all can just take one and drink it. It's healthier too. A pile of bottles of beer on the floor, a pile of bottles of beer. Everyone take one up and drink it, still a whole bunch of bottles of beer on the floor. Um.. seventhly, are we really that many in this assembly that we can finish 200 or however many bottles we had in the beginning? Without passing out? Go to the store and buy some more Yeah and who's gonna pay for it? Definitely not me. And how are you going to bring 300 bottles back from the store? In your car? Buddy, you're so drunk, you can't even C anything. Go home dude, go home. Take a cab."""  Additional reference (helped me a lot with the code): http://www.youtube.com/watch?v=Y0Z0raWIHXk - ## Python (318) I found this way of making a Python program shorter :) exec'eJxtjrFqwzAQQHd/xVVgLCVqSbq5RHO2TtlcgyX7Qk3luyAphP59ZA0thGzi9O7es0bUERyn5DE/+AwOMdTxi0TljLeLmyzQB4GlaaCBg/hkWDigqMb/76aZz0CHHaCPCLaWTpLSTWw2kl7MXmkBTJC+EW7Wey3U9hmzzqU42R/MNMLEt6KFi40R5gQ28JUmndO0ODIkLhdjyjWFc9dfiLxg6Vsx1ZExu36Vddn2miVD2w59R4d9/6d+f8h7Wze3Y+GrS5gpwSjbVlV3Y1BZCg=='.decode('base64').decode('zip')  - this .decode.decode stuff seemed stupid to me the first time i saw it, but i'm now using for practical purposes (to plop python code into my .bashrc as functions in an unobtrusive way), so thanks. – ixtmixilix Sep 6 '12 at 22:50 I count that the uncompressed code has 300 chars. Why compress it then? – Johannes Kuhn May 6 '13 at 11:47 ## Rebmu — 167 characters M N 99 Bdz[cb[n{ bottle}egN 1{s}{}{ of beer}]]loN[cb[b W{ on the wall}C{, }b P{.}lfEZ--n[Nm{Go to the store and buy some more}]{Take one down and pass it around}cBwPlf]] Could probably shave a few characters off, this was just a first try. :) Here's equivalent Rebol which has the shorthand boiled out. Still pretty competitive especially considering the clarity: m: n: 99 b: does [ combine [n { bottle} either n > 1 {s} {} { of beer}] ] loop n [ print combine [ b w: { on the wall} c: {, } b p: {.} newline either 0 == -- n [ n: m {Go to the store and buy some more} ] [ {Take one down, and pass it around} ] c b w p newline ] ]  Commented source code available on GitHub - ## PHP: 285240233 231 Characters $i=99;$b=" bottles of beer";$o=" bottle of beer";$c=" on the wall";while($i>1){echo"$i$b$c,$i$b.\nTake one down and pass it around, ".--$i.(($i>1)?$b:$o).$c.".\n\n";}echo"$i$o$c,$i$o.\nGo to the store and buy some more, 99$b$c.";  Output here: http://ideone.com/5fQmcd - ## Python, 241 chars s="" i=99 b="%d bottl%s of beer" w=" on the wall" t="Take one down and pass it around, " p=q="es" while i:s+=b%(i,p)+w+", "+b%(i,p)+".\n";i-=1;p=p[:i];s+=t+b%(i,p)+w+".\n\n" print s[:-64]+"Go to the store and buy some more, "+b%(99,q)+w+"."  - ## Ruby, 274 bytes Still pretty new to Ruby, really just playing around o =" bottles of beer";w=" on the wall";t="Take one down and pass it around, ";s=" bottle of beer" 99.downto(3){|b|puts"#{b}#{o+w}, #{b}#{o}.\n#{t}#{b-1}#{o+w}.\n\n"} puts"2 #{o+w}, 2 #{o}.\n#{t}1#{s}#{w}.\n\n1#{s+w}, 1#{s}.\nGo to the store and buy some more, 99#{o+w}."  - # C# (299 characters) using System;class D{static void Main(){string a="s",z="",w=" on the wall",q=", ",p=".\n",b=" bottle",c=" of beer";for(int O=99;O>=1;)Console.WriteLine(O+b+(O>1?a:z)+c+w+q+O+b+(O>1?a:z)+c+p+(--O>0?"Take one down and pass it around, "+O:"Go to the store and buy some more, 99")+b+(O==1?z:a)+c+w+p);}}  - Your final line displays "99 bottle" instead of "99 bottles", and you have your loop starting from 19 instead of 99 (though that's probably just an oversight). – Nellius Jan 28 '11 at 10:22 @Nellius ~ Corrected ~ and thanks to your competitive code I revisited mine and removed some single insert blocks and reduced some preexisting constants in my own code. Now down to under 300 smoothly. – jcolebrand Jan 29 '11 at 6:37 You can get it down to 293 by dropping "using System;" and changing "Console.WriteLine" to "System.Console.WriteLine" – Tester101 May 13 '11 at 12:26 @Tester101 ~ Good call. Hadn't considered that! – jcolebrand May 13 '11 at 14:17 ## JavaScript (7 functions) Not golfed. This is intended as a (mostly) functional implementation of the song. function firstUpper(s) { return s.slice(0, 1).toUpperCase() + s.slice(1); } function bottles(x) { return (x || "no more") + " " + (x == 1 ? "bottle" : "bottles") + " of beer"; } function wall(x) { return bottles(x) + " on the wall"; } function line1(x) { return wall(x) + ", " + bottles(x) + "."; } function line2(x, max) { return (x ? "take one down and pass it around, " + wall(x - 1) : "go to the store and buy some more, " + wall(max)) + "."; } function verse(x, max) { return [line1(x), line2(x, max)].map(firstUpper).join("\n") + "\n\n"; } function song(max) { var text = ""; for(var x = max; x >= 0; x--) { text += verse(x, max); } return text; } print(song(99));  - # Go (263) package main import "fmt" func main(){b,i,e,r:=fmt.Println,99,"bottles","of beer on the wall" for i>0{b(i,e,r+",",i,e,r[:7]+".") if i--;i<2{e=e[:6]} if i>0{b("Take one down and pass it around,",i,e,r+. )}} b("Go to the store and buy some more,",99,e+"s",r+".")}  - ## PHP - 252 bytes $a=" bottles of beer";$b=str_replace("s","",$a);$c=" on the wall";for($i=98;$i;)echo($j=$i+1).$a.$c.", ".$j.$a.". Take one down and pass it around, ".$i.($i-->1?$a:$b).$c.".

";echo"1".$b.$c.", 1".$b.". Go to the store and buy some more, 99".$a.\$c.".";


I hope I'll compress some more tomorrow.

-

## Ruby 1.9.2p136 : 223

I'm no coward, you can read mine ;p

b="%d bottle%s of beer"
w=' on the wall'
99.downto(1){|z|s=b%[z,z>1?'s':'']
puts s+w+", "+s+".
"+(z>1?"Take one down and pass it around, "+b%[z-1,z>2?'s':'']+w+".

" :'Go to the store and buy some more, '+b%[99,'s']+w+".")}

-

# (Oracle) SQL

No character count, I didn't golf it. Just found this a fun way to do it.

WITH
bottles AS (
SELECT LEVEL - 1 AS bottle
FROM dual
CONNECT BY LEVEL <= &number_of_bottles + 1
),
fragments AS (
SELECT
'no more ' AS none,
'bottles of beer' AS supply,
' on the wall' AS wall,
'Take one down and pass it around' AS drink,
'Go to the store and buy some more' AS refill,
CHR(13) || CHR(10) AS newline
FROM dual
),
combined AS (
SELECT
b.bottle,
DECODE(
b.bottle,
1, b.bottle || ' ' || REPLACE(f.supply, 's'),
0, f.none || f.supply,
b.bottle || ' ' || f.supply
) AS supply
FROM bottles b
CROSS JOIN fragments f

),
two_lines AS (
SELECT LEVEL AS line
FROM dual
CONNECT BY LEVEL <= 2
)
SELECT
CASE l.line
WHEN 1 THEN REPLACE(c1.supply, 'n', 'N') || f.wall || ', ' || c1.supply || '.'
WHEN 2 THEN DECODE(b.bottle, 0, f.refill, f.drink) || ', '  || c2.supply || f.wall || '.'
END AS song
FROM bottles b
LEFT JOIN combined c1 ON (c1.bottle = b.bottle)
LEFT JOIN combined c2 ON (c2.bottle = DECODE(b.bottle - 1, -1, &number_of_bottles, b.bottle - 1))
CROSS JOIN two_lines l
CROSS JOIN fragments f
ORDER BY
b.bottle DESC,
l.line;

-
+1 for doing it in Oracle, way to go! – WallyWest Feb 3 '14 at 3:14
{"extraction_info": {"found_math": true, "script_math_tex": 0, "script_math_asciimath": 0, "math_annotations": 0, "math_alttext": 0, "mathml": 0, "mathjax_tag": 0, "mathjax_inline_tex": 1, "mathjax_display_tex": 0, "mathjax_asciimath": 1, "img_math": 0, "codecogs_latex": 0, "wp_latex": 0, "mimetex.cgi": 0, "/images/math/codecogs": 0, "mathtex.cgi": 0, "katex": 0, "math-container": 0, "wp-katex-eq": 0, "align": 0, "equation": 0, "x-ck12": 0, "texerror": 0, "math_score": 0.15253932774066925, "perplexity": 15672.564470107622}, "config": {"markdown_headings": true, "markdown_code": true, "boilerplate_config": {"ratio_threshold": 0.18, "absolute_threshold": 10, "end_threshold": 15, "enable": true}, "remove_buttons": true, "remove_image_figures": true, "remove_link_clusters": true, "table_config": {"min_rows": 2, "min_cols": 3, "format": "plain"}, "remove_chinese": true, "remove_edit_buttons": true, "extract_latex": true}, "warc_path": "s3://commoncrawl/crawl-data/CC-MAIN-2016-18/segments/1461860112727.96/warc/CC-MAIN-20160428161512-00191-ip-10-239-7-51.ec2.internal.warc.gz"}