99 bouteilles de bière [fermé]

65

Recréez 99 bouteilles de bière sur le mur.

La sortie souhaitée est la suivante:

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.

Montrez-moi comment résoudre ce problème avec votre langage de programmation préféré. L'utilisation la plus créative d'une langue gagne.

Nick Berardi
la source
30
"L'utilisation la plus créative" est trop subjective pour un site SE, à mon avis. Nous devrions viser à utiliser des critères objectifs, tels que "le code le plus court".
Chris Jester-Young le
5
Encore une bonne question cependant
Chris Laplante
3
Est-il supposé fonctionner infiniment? Je suppose donc. De plus, Codegolf ne possède pas 99 bouteilles de bière, il n’ya donc aucune raison de le discuter.
1
@Chris - Cela va être la partie la plus difficile de ce site SE, parce que tout est basé sur la créativité, parce que c'est la moitié du plaisir de programmer des énigmes. La solution la plus créative n'est pas toujours la plus efficace ou la plus courte.
Nick Berardi
2
@ Nick: je vous entends. Je veux juste savoir comment on peut déterminer à quel point une solution est créative - basée sur votre propre jugement? Basé sur les électeurs? Ni est particulièrement fiable (aucune infraction). Quelque chose comme la brièveté est incontestable - par exemple, personne ne peut contester le "bien" de la solution de golf à code de dépassement de pile sur 1 octet.
Chris Jester-Young le

Réponses:

70

Perl (410 caractères)

Il existe déjà un site web dédié à ce concours:

Une des solutions Perl serait très très difficile à battre en termes de créativité:

[bouteilles.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 / bz / az /; $ b = ~
  tr / bz / az /; $ c = ~
  tr / bz / az /; pour(
  $ d = 100; $ d> 0; $ d -) {
  print "$ d $ a $ b $ d"
  ; print "$ a, \ n $ c,"
  ; imprimer (j-1 $); imprimer
  "$ a $ b. \ n";} $ x =
  "cjc"; $ y = "dobbz";
  $ z = "com"; imprimez "\ n"
  ; print "- $ x \ @ $ y."
   ; print "$ z \ n \ n";

Voici le lien vers le fichier d'origine .

bottes en caoutchouc
la source
1
Belle présentation, mais cela ne correspond pas à la demande !!
F. Hauri
Un chiffre 'rot1', ce n'est pas la meilleure tentative d'obscurcissement que j'ai vue. L'utilisation de \b"supprimer" les caractères indésirables est également un peu décevante.
dimanche
100

Brainf *** (1 509)

J'ai pensé que je pouvais l'emporter sur cette réponse en fabriquant non seulement 9 bouteilles de bière au lieu de 1, mais aussi en n'utilisant que 7 caractères différents dans le code.

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

Cependant, je dois admettre qu’il ya un bogue dans le code (vous pouvez peut-être trouver le moyen de le réparer pour moi?) Et qu’il n’imprime pas la phrase finale, Go to the store and buy some more, 99 bottles of beer on the wall.mais à part cela, il fonctionne aussi bien que les programmes réalisés dans ces langages de programmation sissy que tout le monde semble aimer utiliser.

Peter Olson
la source
9
Vous n'avez que 9 bouteilles ici. Vous avez besoin de 90 de plus!
Joe Z.
Pétition: renommer cette langue braindrunk?
Cyoce
99

Fonction

Je l'ai écrit juste l'autre jour. :) (Captures d'écran: début et fin )

Etant donné que cela semble laide dans StackExchange en raison de l’espacement des lignes supplémentaire, envisagez d’exécuter le code suivant dans la console JavaScript de votre navigateur pour résoudre ce problème: $('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 ║
              ╚═════╝╚═════════════════════════════════════════════════╝
Timwi
la source
1
plus un, c'est génial
jeudi
1
Cette langue est incroyable, excellent travail!
cessé de tourner dans le sens anti-horaire
1
J'ai vu cela sur Esolang.org et j'ai aimé son apparence.
ML
56

Console jQuery + FireBug

$('code:first').text()

;)

Powtac
la source
2
Qu'en est-il de quelque chose comme eval($($('code')[8]).text().replace(/print/g,'console.log'))<del> (aka. Voler) </ del>? Il imprime l'intégralité des paroles de la chanson. : P
JiminP
2
Fonctionne également sur la console JavaScript de Chrome.
Spoike
Diaboliquement intelligent.
Maxpm
1
@JiminP Malheureusement, ce n'est pas un sélecteur stable étant donné que l'ordre des réponses peut changer avec le temps (en fait, cela ne fonctionne plus).
Muhd
2
@Muhd fonctionne toujours tant que la question n'est pas modifiée - le premier bloc de code est celui de la question.
Bob
24

HQ9 + (1 caractère)

9

Certes ce n'est pas un langage complet de Turing, mais cela compte toujours

tobyodavies
la source
13
Pourquoi n'utilisez-vous pas HQ9 B ? C'est Turing complet.
Mateen Ulhaq
1
@muntoo Je ne suis pas sûr que HQ9 + B soit complet. La commande B interroge l'entrée du clavier et l'évalue comme un brainfuck. C'est donc HQ9 + avec un interpréteur Brainfuck optonal. c'est-à-dire que le programme "B" dans HQ9 + B va interroger stdin jusqu'à ce qu'il le soit! (ou EOF) et interpréter cela comme un Brainfuck ..
Sylwester
20

Qui a dit que C # avait trop de cérémonie? Peu importe qui que ce soit, ils n'ont jamais été aussi bons.

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);
            }
         }
    }
}
Rob White
la source
11
+1 Pour être un autre agneau sacrificiel de style C dans un océan de Perl.
Glenn Nelson
Cela peut être réduit considérablement.
Nellius
2
@Nellius Avez-vous même lu ce qui a été ilivewithiandit avant son code?
Daniel Standage le
1
@ Daniel Oui, et cela implique qu'il pense que tout dans son code est nécessaire. Si c'est une blague, cela ne devrait pas être voté autant. Ce n'est pas court, créatif, efficace ou même légèrement intelligent.
Nellius
@Nellius Ce n'était pas un prétendant sérieux, à aucun niveau ce bon code. Je suis sûr qu'il peut être réduit, rendu plus efficace et considérablement amélioré.
Rob White
18

C

Ce programme génère le texte complet de la chanson sous forme de chaîne unique à l'aide du préprocesseur. Le code C actuel ne fait que sortir la chaîne ainsi construite. L'appel stringsde l'exécutable généré révélera le texte complet de la chanson dans l'exécutable.

#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 BUY "Go to the store and buy some more, "
#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 LINEX BUY BOTTLES("99") 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;
}
celtschk
la source
1
Probablement la solution la plus efficace et la plus rapide.
Tom Pažourek
1
@tomp Efficace dans le temps, très inefficace dans la taille du fichier exécutable :)
seequ
14

C # ( 312 310 304 caractères)

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));}}
Nellius
la source
1
Je ne peux pas croire que tu l'aies plus court que moi. Je suis impressionné. Je vais devoir étudier pour un meilleur ensemble d'options
Jcolebrand
Et maintenant, j'ai étudié pour cela, je suis à moins de 300;)
jcolebrand
12

C #

Pas destiné à être court, mais peut-être que cela compte comme créatif?

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
        ))));
    }
}

Notez que ceci est juste une seule déclaration :)

Timwi
la source
11

Ne constitue certainement pas une création, mais cela s’effectue à partir de la ligne de commande avec une seule commande.

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");'
Daniel Standage
la source
11

Haskell, 272 , 250 , 243 caractères

(&)=(++)
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]
Jonathan Sternberg
la source
11

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."

Assez simple.

J'utilise un filtre pour les bouteilles de bière, car functionc'est plus long et l'invocation a besoin de parenthèses dans tous les cas. La détection au pluriel ( !!--$_) commence par décrémenter le nombre de bouteilles par un (si pluriel est quelque chose non nul), jette à booléens et nie avec la première !et nie à nouveau que nous avons maintenant un booléen indiquant si le nombre a besoin d' un pluriel ou pas. Ceci est ensuite implicitement converti en un entier lors de la multiplication de la chaîne.

Les sauts de ligne en ligne sont amusants.

Générer plus de lignes que nécessaire et réduire ensuite.

Joey
la source
Certainement court, et cela a mis un bar pour essayer d'aller sous !!! Bien que de mon point de vue, l’apparition d’un "nombre magique" comme 196 soit dans la classe de choses que j’espère pouvoir éviter car elle capture (99 * 2) - 2. Pour une réponse où vous pouvez changer de bouteille compter au même endroit :) voir codegolf.stackexchange.com/questions/2/99-bottles-of-beer/…
Dr. Rebmu
Vous manquez "sur le mur". dans la dernière ligne de sortie et après chaque bouteille est pris.
Iszi
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."corrige cela. Totale 199 caractères. (Ajouter un saut de ligne après $wavant ")
Iszi
Merci pour le correctif. Il y avait un espace superflu là aussi, donc le compte est 198 à la place.
Joey
10

Curl 19 personnages

(nécessite une connexion Internet)

curl -L j.mp/eGv9K5
Alexandru
la source
7
Je considère que cela va trop loin.
Marcog
8
Je considère que c'est une blague. De nombreuses solutions peuvent être cachées derrière une requête adressée à un serveur Web.
Alexandru
3
J'aime celui-ci quand même.
pimvdb
1
Si objectif était le code le plus court, je vous donnerais un point d'intelligence.
Neil
9

Anti-golf presque correct de la part du nouveau programmeur C hyper-désireux qui apprend Perl?

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

# 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;
  }
}
Daniel Standage
la source
Pourquoi ne pas /usr/bin/env perl?
nyuszika7h
1
@ nyuszika7h Critique perspicace! ;)
Daniel Standage
8

JavaScript ( 216 228 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: vous aviez un "1 bouteilles de bière" dans la version initiale, la 3ème version est complètement réécrite, remarquez des astuces sympas comme (a||99)obtenir 99 dans la dernière ligne, (a-1?'s':'')pluriel pour chaque cas mais a==1sans avoir besoin de gaspillage ==, et en définissant la valeur de l' bintérieur d'une déclaration où il est utilisé.

aaaaaaaaaaaa
la source
Il semble que l'optimisation de vos bouteilles / bouteilles vous coûte plus de caractères qu'elle n'en économise.
Yahel
Je ne suis pas sûr de ce que tu veux dire, qu'est-ce que tu changerais exactement?
aaaaaaaaaaaaa
Celui-ci arrête un vers trop tôt. Le dernier couplet devrait aller "no more bottles of beer on the wall, no more bottles..." - Voir: 99-bottles-of-beer.net/lyrics.html
Már Örlygsson
BTW, j'ai réussi une version complète et correcte dans 233 octets: 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
@ MárÖrlygsson Bienvenue sur le site. Les paroles de ce défi sont définies dans le post d’ouverture.
aaaaaaaaaaaaa
7

C

Je dois avoir manqué cette question, alors voici une version que j'ai posté comme réponse ailleurs. C'est une version basée sur C quine. Compilez et courez pour obtenir la prochaine ligne de la chanson. Répétez jusqu'à ennuyer. Si le code indique "Il est temps d'y aller ...", entrez le nombre de bières à la prochaine utilisation en tant qu'argument en ligne de commande.

// 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);}
Skizz
la source
@DreamWarrior en ce qui concerne votre modification proposée, avez-vous envisagé de mettre votre code dans pastebin afin de pouvoir le poster en tant que commentaire?
nderscore
6

Javascript (285)

Cela suppose qu’il existe une fonction appelée print pour générer une chaîne.

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.")

la source
8
Je ne suis pas sûr que les fonctions supposées soient équitables. Par exemple, mon programme pourrait être b();. En supposant qu’une fonction b()imprime 99 bouteilles de bière sur le mur. :)
Chris Laplante le
10
Javascript ne fournit aucun moyen standard de générer une chaîne. Si vous l'exécutez dans un navigateur, il ne dispose pas d'une fonction d'impression. Si vous l'exécutez dans rhino, c'est le cas.
2
document.writelntravaux.
Chris Laplante
4
... pour les navigateurs
5
JavaScript a IO avec: alerten sortie, prompten entrée variable et confirmen entrée booléenne. Ils sont nulles en ce qui concerne l'interface utilisateur, mais ce sont les fonctions IO bloquantes standard. alertet printont la même longueur, votre code devrait donc être à peu près égal.
ZzzzBov
6

Régime (270)

Aucun espace:

(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))))))

Avec des espaces:

    (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))))))
Hoa Long Tam
la source
6

Python - beaucoup

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."""

Référence supplémentaire (m'a beaucoup aidé avec le code): http://www.youtube.com/watch?v=Y0Z0raWIHXk

Aditsu
la source
5

Python (318)

J'ai trouvé cette façon de raccourcir un programme Python :)

exec'eJxtjrFqwzAQQHd/xVVgLCVqSbq5RHO2TtlcgyX7Qk3luyAphP59ZA0thGzi9O7es0bUERyn5DE/+AwOMdTxi0TljLeLmyzQB4GlaaCBg/hkWDigqMb/76aZz0CHHaCPCLaWTpLSTWw2kl7MXmkBTJC+EW7Wey3U9hmzzqU42R/MNMLEt6KFi40R5gQ28JUmndO0ODIkLhdjyjWFc9dfiLxg6Vsx1ZExu36Vddn2miVD2w59R4d9/6d+f8h7Wze3Y+GrS5gpwSjbVlV3Y1BZCg=='.decode('base64').decode('zip')
marinus
la source
ce genre de code .decode.decode m'a semblé stupide la première fois que je l'ai vu, mais je l'utilise maintenant à des fins pratiques (pour insérer du code python dans mon .bashrc en tant que fonctions de manière discrète), alors merci.
ixtmixilix
5
Je compte que le code non compressé a 300 caractères. Pourquoi le compresser alors?
Johannes Kuhn
5

Rebmu - 167 Caractères

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]]

Pourrait probablement raser quelques caractères, ce n'était qu'un premier essai. :)

Voici l'équivalent de Rebol, qui a fait résumer le raccourci. Toujours très compétitif surtout compte tenu de la clarté:

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
    ]
]

Code source commenté disponible sur GitHub

Dr. Rebmu
la source
5

PHP: 285 240 233 231 Caractères

$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.";

Sortie ici: http://ideone.com/5fQmcd

Yahel
la source
4

Python, 241 caractères

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+"."
Keith Randall
la source
4

Ruby, 274 octets

Encore assez nouveau pour Ruby, vraiment juste jouer

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}."
Derekerdmann
la source
4

C # (299 caractères)

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);}}
jcolebrand
la source
1
Votre dernière ligne affiche "99 bouteilles" au lieu de "99 bouteilles" et votre boucle commence à 19 au lieu de 99 (bien que ce ne soit probablement qu'un oubli).
Nellius
@Nellius ~ Corrigé ~ et grâce à votre code concurrentiel, j'ai revisité le mien, enlevé quelques blocs d'insert simple et réduit certaines constantes préexistantes dans mon propre code. Maintenant à moins de 300 en douceur.
Jcolebrand
Vous pouvez le réduire à 293 en supprimant "using System"; et en remplaçant "Console.WriteLine" par "System.Console.WriteLine"
Tester101,
@ Tester101 ~ Bon appel. Je n'avais pas pensé à ça!
jcolebrand
4

JavaScript (7 fonctions)

Pas de golf. Ceci est conçu comme une implémentation (principalement) fonctionnelle de la chanson.

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));
Veuillez vous lever
la source
4

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+".")}
Slitione
la source
3

PHP - 252 octets

$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.".";

J'espère que je vais compresser un peu plus demain.

Aurel Bílý
la source
3

Ruby 1.9.2p136: 223

Je ne suis pas un lâche, vous pouvez lire le mien; 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+".")}

la source
3

(Oracle) SQL

Aucun personnage ne compte, je ne l'ai pas joué au golf. Je viens de trouver cela une façon amusante de le faire.

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;
SQB
la source