99 Bottles of Beer on the Wall

From Uncyclopedia, the content-free encyclopedia.

"99 Bottles of Beer on the Wall" (RFC 99) is a network protocol devised by Nezuald Czambevich and first implemented in his opera of the same name, which has since been lost.

“{XXXX} Gold, Because Queenslanders cant spell {Beer} Gold.”

~ sydney siders on Queenslanders Beer

Contents 1 Reference Implementations 1.1 QuickBASIC 1.2 Perl 1.3 Java 1.4 FRENCH 1.5 HAIKU 1.6 HOLOCAUST 2.0

[edit] Reference Implementations

[edit] QuickBASIC

010 open "BEER99BOT.TXT" for output as #1
100 for n = 99 to 1 step -1
102   let m = n-1
105   print n
110   print #1, n; "bottle";
112   if n>1 then print #1, "s";
114   print #1, " of beer on the wall"
120   print #1, n; "bottle";
122   if n>1 then print #1, "s";
124   print #1, " of beer"
130   print #1, "take one down, pass it around,"
140   if m=0 then print #1, "no more "; else print #1, m;
142   print #1, "bottle";
144   if m>1 or m=0 then print #1, "s";
146   print #1, " of beer on the wall."
150   print #1,
190 next n
900 close #1
999 end

[edit] Perl

#!/usr/bin/perl 
    =~(         '(?{'        .('`'        |'%')        .('['        ^'-')
   .('`'        |'!')        .('`'        |',')        .'"'.        '\\$'
   .'=='        .('['        ^'+')        .('`'        |'/')        .('['
   ^'+')        .'||'        .(';'        &'=')        .(';'        &'=')
   .';-'        .'-'.        '\\$'        .'=;'        .('['        ^'(')
   .('['        ^'.')        .('`'        |'"')        .('!'        ^'+')
  .'_\\{'      .'(\\$'      .';=('.      '\\$=|'      ."\|".(      '`'^'.'
 ).(('`')|    '/').').'    .'\\"'.+(    '{'^'[').    ('`'|'"')    .('`'|'/'
).('['^'/')  .('['^'/').  ('`'|',').(  '`'|('%')).  '\\".\\"'.(  '['^('(')).
'\\"'.('['^  '#').'!!--'  .'\\$=.\\"'  .('{'^'[').  ('`'|'/').(  '`'|"\&").(
'{'^"\[").(  '`'|"\"").(  '`'|"\%").(  '`'|"\%").(  '['^(')')).  '\\").\\"'.
('{'^'[').(  '`'|"\/").(  '`'|"\.").(  '{'^"\[").(  '['^"\/").(  '`'|"\(").(
'`'|"\%").(  '{'^"\[").(  '['^"\,").(  '`'|"\!").(  '`'|"\,").(  '`'|(',')).
'\\"\\}'.+(  '['^"\+").(  '['^"\)").(  '`'|"\)").(  '`'|"\.").(  '['^('/')).
'+_,\\",'.(  '{'^('[')).  ('\\$;!').(  '!'^"\+").(  '{'^"\/").(  '`'|"\!").(
'`'|"\+").(  '`'|"\%").(  '{'^"\[").(  '`'|"\/").(  '`'|"\.").(  '`'|"\%").(
'{'^"\[").(  '`'|"\$").(  '`'|"\/").(  '['^"\,").(  '`'|('.')).  ','.(('{')^
'[').("\["^  '+').("\`"|  '!').("\["^  '(').("\["^  '(').("\{"^  '[').("\`"|
')').("\["^  '/').("\{"^  '[').("\`"|  '!').("\["^  ')').("\`"|  '/').("\["^
'.').("\`"|  '.').("\`"|  '$')."\,".(  '!'^('+')).  '\\",_,\\"'  .'!'.("\!"^
'+').("\!"^  '+').'\\"'.  ('['^',').(  '`'|"\(").(  '`'|"\)").(  '`'|"\,").(
'`'|('%')).  '++\\$="})'  );$:=('.')^  '~';$~='@'|  '(';$^=')'^  '[';$/='`';

[edit] Java

import java.awt.*;
import hsa.*;
public class 99BottlesOfBeer
{
    public static void main (String[] args)
    {
        TextOutputFile out = new TextOutputFile ("BEER99BOT.txt");
        for (int x = 99; x > 0; x--)
        {
            if (x > 1)
                out.println (x + " bottles of beer on the wall. \n" + x + " bottles of beer.");
            else
                out.println ("1 bottle of beer on the wall. \n1 bottle of beer.");
            out.println ("Take one down, pass it around, " + (x-1) + " bottles of beer on the wall.\n");
        }
        out.close();
    }
}// 99BottlesOfBeer class

[edit] FRENCH

010 "BEER99BOT.TXT" ouverts pour le rendement comme #1 
100 pour n = 99 à 1 étapes -1 
102   ont laissé m = n-1 
105   copie de l'impression n 
110   # 1, n ; "bouteille" ; 
112   si puis copie n>1 # 1, "s" ; copie 
114   # 1, " de bière sur la copie du mur" 
120   # 1, n ; "bouteille" ; 
122   si puis copie n>1 # 1, "s" ; la copie 
124   # 1, "de la copie de la bière" 
130   # 1, "prennent un vers le bas, passent lui autour," 
140   si m=0 puis copie # 1, "pas plus" ; copie d'autre # 1, m ; copie 
142   # 1, "bouteille" ; 
144   si puis copie m>1 ou m=0 # 1, "s" ; copie 
146   # 1, "de bière sur le mur." copie 
150   # 1, 
190 prochains extrémité #1 
étroite de n 900
999 fin

[edit] HAIKU

n bottles of beer
on wall they sat, 'ere I grabbed;
less beer remains now

[edit] HOLOCAUST 2.0

First, they came for the Michelobs, and I did not speak out 
because I was not a Michelob....