ビール99本

「99 Bottles of Beer」または「100 Bottles of Pop on the Wall」は、米国とカナダの伝統的な逆数え歌です。この歌は、覚えやすく、全曲を歌うと長い時間がかかる非常に反復的な形式であるため、ドライブ中に歌うのに人気があります。特に、この歌は、クラスの遠足などの長いスクールバス旅行や、スカウトやガールガイドの遠足で子供たちによく歌われます。99 Bottles of Beerの歌詞は、通常のプログラミング言語または難解なプログラミング言語で印刷できます。

この歌は、19世紀の大学生の歌「49本の青い瓶が壁に掛かっている」あるいは単に「49本の瓶が壁に掛かっている」のバリエーションである。^[1]メロディーと歌詞は1890年の大学の歌集に次のように記録されている。 ^{[2] [検証に失敗した]}

1898年までに、現代のボトル数である99本とビール瓶として指定されたボトルのバリエーションが存在しました。^{[3] [検証に失敗]}

ビール99本

最初の詩のピアノ録音

---

このファイルの再生に問題がありますか?メディアヘルプを参照してください。

歌詞は以下の通りで、n=99から始まります。^{[4] [5]}

^[6]

同じ詩が繰り返され、そのたびにボトルが 1 本ずつ減り、ついにはボトルがなくなるまで続きます。最後のボトルがなくなると、最後の詩のバリエーションとして次のような行があります。

または：

他の代替行は次のとおりです。

または：

または、歌は最後の「1」または「0」のビール瓶で止まらず、「-1 (マイナス 1) 本のビール瓶を壁から取り出して回し、-2 (マイナス 2) 本のビール瓶を壁から取り出して回し、...」と負の数までカウントを続けます。

すべての詩を歌うのには非常に長い時間がかかります。アメリカのコメディアン、アンディ・カウフマンはキャリアの初期に、コメディ効果のためにこれを利用しました。彼は実際に100の詩すべてを歌いました。^[7]

テネシー州ノックスビル出身のバンド、アティカスは、スコットランドのグラスゴー・キャットハウスで、この曲の13分半のライブバージョンを全曲録音した。この曲は2001年のアルバム『フィグメント』に収録されている。リッチ・スチュワート（別名ホームブリュー・スチュ）は、翌年、モダン・ドランクアード・マガジンの記事で、この曲を86曲中ナンバーワンの飲酒ソングとして挙げた。 ^[8]

ドナルド・バードは、数学的概念に触発され、彼自身や他の人によって書かれた数十の変種を収集しました。 ^[9] （彼のコレクションのサブセットは出版されています。^[10]）バードは、コレクションには娯楽的価値だけでなく教育的価値もあると主張しています。彼の変種には次のものがあります。

• 「壁には無数のビール瓶が並んでいる」。1 本の瓶を下ろしても、壁には無数のビール瓶が残っている (つまり、「終わらない歌」のように終わりのないシーケンスが生まれる)。
  • 「壁にアレフゼロのビール瓶」。アレフゼロはすべての自然数の集合の大きさであり、最小の無限大であり、唯一可算な無限大です。したがって、たとえアレフゼロの無限の瓶が落ちても、同じ量が残ります。
  • 「アレフ - 壁にビール瓶が 1 本 / 2 本 / 3 本 / など」。アレフ - 1、2、3 本などは、可算な数よりも大きい、可算でない無限集合です。したがって、可算な無限数の瓶だけが落ちた場合、不可算な数が残ります。

バードのコレクションの他のバージョンには、等比数列、微分、オイラーの恒等式、 複素数、和の表記法、カントール集合、フィボナッチ数列、連続体仮説などの概念が含まれています。

コンピュータ科学者の ドナルド・クヌースは、彼の内部ジョーク記事「歌の複雑さ」の中で、この歌が複雑であることを証明した。^[11]${\displaystyle O(\log N)}$

曲の歌詞を出力するコンピュータ プログラムは数多く存在します。これは、ループを追加した「Hello, World!」プログラムに似ています。「Hello, World!」と同様に、これはコンピュータ プログラミングを学習する人にとっては練習問題になるだけでなく、ループ構造を扱うさまざまなプログラミング パラダイムや、パラダイム内のプログラミング言語間の構文の違いを示すものにもなります。

このプログラムは1,500以上の異なるプログラミング言語で書かれています。^[12]

#include <stdio.h> 

int main ( void ) {  
  ( size_t i = 99 ; i > 0 ; i -- )の場合{         
    printf ( "壁にはビールの%zuボトル%s、ビールの%zuボトル%s。\n 1本取り出して回しなさい。これで" ,
           i , ( i == 1 ? "" : "s" )、i , ( i == 1 ? "" : "s" ));               

    printf (( i > 1 ) ? "壁には%zuのビール瓶%sがあります\n "    
                   : 「壁にビール瓶はもうありません! \n " , 
           i - 1 、i == 2 ? "" : "s" );   
  }
}

 メイン関数（）{ 
    i が( 3 .. 100 )の場合。rev () {    
        println! ( "壁にはビールが {i} 本、ビールが {i} 本。\n 1 本取り出して回しなさい。これで壁にはビールが {} 本増えた!" , ( i - 1 ));   
    }
    println! ( "壁にビールが 2 本、ビールが 2 本。\n 1 本外して回しなさい。これで壁にビールが 1 本増えた!" , ); 
    println! ( "壁にビールが 1 本、ビールが 1 本。\n 1 本外して回してください。壁にビールはもうありません!" );
}

詩:: [文字列]  
詩= 
    「壁にビールが 1 本、ビールが 1 本。 1 本外して回しましょう。壁にビールはもうありません!」
    : 「壁にビールが 2 本、ビールが 2 本。1 本外して回しなさい。これで壁にビールが 1 本増えたわ！」 
    : map ( \ n -> show n     
        ++ 「壁にビール瓶が並んでいる」  
        ++表示n  
        ++ " ビールのボトル。\n 1本取り出して回すと、" 
        ++表示( n - 1 )  
        ++ 「壁にビール瓶がもっとあるよ！」) [ 3 .. ]  

メイン:: IO ()   
main = mapM_ putStrLn (リバース$ 99節を取る)        

 i が 範囲( 99 , 0 , - 1 )の 場合:
  print ( i , "壁にビール瓶が置いてある" , , i , "ビール瓶が置いてある。" )
  
   i  !=  1 の場合:
    print ( "1 本取り出して回しなさい。これで、壁には" , i - 1 , "ビールの瓶がさらに 1 本あるよ!" )

  それ以外：
    print ( "1 本取り出して回してください。壁にはビール瓶がもうありません!" )

• 「Potje meets vet」 – 同じスタイルで歌われた伝統的なオランダの歌
• 「テン・グリーン・ボトルズ」 – イギリスで人気の似た歌