बीयर की 99 बोतलें [बंद]

65

'दीवार पर बियर की 99 बोतलें फिर से बनाएं'।

वांछित उत्पादन यह है:

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.

मुझे दिखाएं कि आप अपनी पसंदीदा प्रोग्रामिंग भाषा के साथ इसे कैसे हल करेंगे। किसी भाषा का अधिकांश रचनात्मक उपयोग जीत जाता है।

popularity-contest  kolmogorov-complexity 
— निक बेर्दी
स्रोत
30
"सबसे रचनात्मक उपयोग" एक एसई साइट के लिए बहुत व्यक्तिपरक है, मुझे लगता है। हमें "सबसे छोटा कोड" जैसे उद्देश्य मानदंड का उपयोग करने का लक्ष्य रखना चाहिए।
— क्रिस जस्टर-यंग
5
हालांकि अभी भी एक अच्छा सवाल है
— क्रिस लैपलेंट
3
क्या इसे असीम रूप से चलाना चाहिए? मैंने मान लिया। इसके अलावा कोडगॉल्फ में बीयर की 99 बोतलें नहीं होती हैं, इसलिए इसका चर्चा करने का कोई कारण नहीं है।
1
@ क्रिस - यह इस एसई साइट का सबसे कठिन हिस्सा होने जा रहा है, क्योंकि पूरी बात रचनात्मकता पर आधारित है, क्योंकि यह प्रोग्रामिंग पहेली का आधा मज़ा है। सबसे रचनात्मक समाधान हमेशा सबसे कुशल या छोटा नहीं होता है।
— निक बेर्डी
2
@ निक: मैं तुम्हें सुनता हूं। मैं सिर्फ यह जानना चाहता हूं कि कोई व्यक्ति यह कैसे निर्धारित कर सकता है कि समाधान कितना रचनात्मक है --- आपके अपने निर्णय के आधार पर? मतदाताओं के आधार पर '? न तो विशेष रूप से विश्वसनीय है (कोई अपराध नहीं)। संक्षिप्तता जैसा कुछ निर्विवाद है --- उदाहरण के लिए, कोई भी 1-बाइट स्टैक ओवरफ़्लो कोड गोल्फ समाधान की "अच्छाई" का विवाद नहीं कर सकता है।
— क्रिस जस्टर-यंग

जवाबों:

70

पर्ल (410 वर्ण)

नहीं है पहले से ही समर्पित वेबसाइट इस प्रतियोगिता के लिए:

पर्ल के समाधान में से एक रचनात्मकता के मामले में हराना बहुत कठिन होगा, यह पढ़ता है:

[Bottles.pl]

         $ A =
        "cpuu
       \ bmft पी
       \ bg cff
       \ Bs "; $ ख
       = "पो उई
       \ bf xbm
      \ बी.एम. "; $ ग ="
      Ypv ublf p
     \ bof epxo qb
   \ btt जू bspvoe ";
  $ a = ~ s / \ n //; $ a = ~
  s / \ s + / / जी; $ बी = ~
  s / \ n //; $ बी = ~
  s / \ s + / / g; $ c = ~
  s / \ n //; $ c = ~
  s / \ s + / / g; $ a = ~
  y / bz / az /; $ b = ~
  tr / bz / az /; $ c = ~
  tr / bz / az /; के लिये(
  $ D = 100; $ d> 0; $ d -) {
  "$ d $ a $ b $ d" प्रिंट करें
  , "$ a, \ n $ c," प्रिंट करें
  ; प्रिंट ($ d-1), प्रिंट
  "$ a $ b। \ n";} $ x =
  "CJC"; $ Y = "dobbz";
  $ Z = "com"; प्रिंट "\ n"
  ; प्रिंट "- $ x \ @ $ y।"
   ; प्रिंट "$ z \ n \ n";

यहां मूल फ़ाइल का लिंक दिया गया है ।

— रबड़ के जूते
स्रोत
1
अच्छी प्रस्तुति, लेकिन यह अनुरोध से मेल नहीं खाता है !!
— एफ। हौरी
एक 'रोट 1' सिफर, जो मैंने देखा है, उसमें सबसे अच्छा प्रयास नहीं है। के उपयोग \b'हटाने' अवांछित पात्रों को भी थोड़ा निराशाजनक है।
— प्रिमो
100

ब्रेनफ *** (1,509)

मुझे लगा कि मैं 1 के बजाय 9 बीयर की बोतलें बनाकर, बल्कि केवल 7 अलग-अलग पात्रों का उपयोग करके इस उत्तर को ट्रम्प कर सकता हूं ।

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

मुझे स्वीकार करना होगा हालांकि, कोड में एक बग है (शायद आप यह पता लगा सकते हैं कि इसे मेरे लिए कैसे ठीक किया जाए?) और यह अंतिम वाक्य को प्रिंट नहीं करता है, Go to the store and buy some more, 99 bottles of beer on the wall.लेकिन इसके अलावा, यह बस के रूप में अच्छी तरह से किसी भी कार्य करता है उन बहिन प्रोग्रामिंग भाषाओं में किए गए कार्यक्रमों को हर कोई उपयोग करना पसंद करता है।

— पीटर ओल्सन
स्रोत
9
आपके पास केवल 9 बोतलें हैं। आपको 90 और चाहिए!
— जो जेड
याचिका: इस भाषा का नाम बदलें braindrunk?
— साइओस
99

funciton

मैंने इसे दूसरे दिन ही लिखा था। :) (स्क्रीनशॉट: शुरू और खत्म )

चूंकि यह अतिरिक्त पंक्ति रिक्ति के कारण StackExchange में बदसूरत दिखता है, इसे ठीक करने के लिए अपने ब्राउज़र के जावास्क्रिप्ट कंसोल में निम्नलिखित कोड चलाने पर विचार करें: $('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
स्रोत
1
प्लस एक, यह कमाल है
— ज्यूरिस
1
वह भाषा अद्भुत है, बहुत बढ़िया है!
— काउंटरक्लाविस
1
मैंने Esolang.org पर इसे देखा और इसका लुक पसंद किया।
— ML
56

jQuery + फायरबग कंसोल

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

;)

— powtac
स्रोत
2
eval($($('code')[8]).text().replace(/print/g,'console.log'))<Del> (aka। चोरी) </ del> जैसी किसी चीज़ के बारे में क्या ? यह गाने के पूरे बोल को प्रिंट करता है। : P
— JiminP
2
क्रोम के जावास्क्रिप्ट कंसोल पर भी काम करता है।
— स्पोइक
शैतानी चालाक।
— मैक्सएम
1
@JiminP दुर्भाग्य से, यह एक स्थिर चयनकर्ता नहीं है जो यह बताता है कि उत्तर क्रम समय के साथ कैसे बदल सकता है (वास्तव में, यह अब काम नहीं करता है)।
— मुहाद
2
@Muhd अभी भी तब तक काम करता है जब तक सवाल बदला नहीं जाता है - पहला कोड ब्लॉक प्रश्न में एक है।
— बॉब
24

HQ9 + (1 वर्ण)

9

बेशक इसकी एक ट्यूरिंग पूरी भाषा नहीं है, लेकिन यह अभी भी मायने रखता है

— tobyodavies
स्रोत
13
आप HQ9 B का उपयोग क्यों नहीं करते ? यह पूरा हो रहा है।
— मतीन उल्हाक
1
@muntoo मुझे यकीन नहीं है कि HQ9 + B पूरी तरह से ट्यूरिंग कर रहा है .. कमांड B कीबोर्ड इनपुट को पोल करता है और मूल्यांकन करता है कि brainfuck के रूप में इसलिए यह HQ9 + एक ऑप्टोनल ब्रेनफैक दुभाषिया के साथ है। जब तक यह हो जाता है तब तक HQ9 + B में प्रोग्राम "B" स्टड को पोल करेगा! (या EOF) और व्याख्या करें कि ब्रेनफक के रूप में ..
— सिल्वेस्टर
20

किसने कहा कि C # का बहुत अधिक समारोह था? जो कोई भी था, वे कभी इतने सही नहीं थे।

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);
            }
         }
    }
}
— रॉब व्हाइट
स्रोत
11
+1 पर्ल के सागर में एक और सी-शैली बलिदान मेमने होने के लिए।
— ग्लेन नेल्सन
जिसे काफी हद तक कम किया जा सकता है।
— नेलियस
2
@Nellius तुम भी क्या पढ़ा क्या ilivewithianअपने कोड से पहले कहा?
— डैनियल स्टैंडेज
1
@ डैनियल हाँ, और इसका अर्थ है कि वह सोचता है कि उसके कोड में सब कुछ आवश्यक है। अगर मजाक के रूप में इसका मतलब है, तो इसे ज्यादा वोट नहीं दिया जाना चाहिए। यह छोटा, रचनात्मक, कुशल या थोड़ा चालाक नहीं है।
— नेलियस
@ नेलियस यह एक गंभीर दावेदार के रूप में नहीं था, किसी भी स्तर पर यह अच्छा कोड नहीं है। मुझे यकीन है कि इसे कम किया जा सकता है, अधिक कुशल बनाया गया है और आम तौर पर काफी सुधार हुआ है।
— रोब व्हाइट
18

सी

यह कार्यक्रम प्रीप्रोसेसर का उपयोग करके एकल गीत के रूप में पूरा गीत पाठ उत्पन्न कर रहा है। वास्तविक C कोड इस प्रकार निर्मित स्ट्रिंग को आउटपुट करता है। stringsउत्पन्न निष्पादन योग्य पर कॉल करने से निष्पादन योग्य में पूरा गीत पाठ प्रकट होगा।

#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
स्रोत
1
संभवतः इनमें से सबसे कुशल और सबसे तेज़ समाधान।
— टॉम पूजरेक
1
@tomp कुशल समय सारिणी, निष्पादन योग्य फ़ाइल आकार में बहुत अक्षम है :)
— 14'14
14

C # ( 312 310 304 वर्ण)

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
स्रोत
1
मुझे विश्वास नहीं हो रहा है कि आप इसे मुझसे कम उम्र में पा गए हैं। मैं प्रसन्न हूँ। मुझे विकल्पों के बेहतर सेट के लिए अध्ययन करना होगा
— jcolebrand
और अब मैं इसके लिए अध्ययन किया है, मैं 300 के तहत करने के लिए नीचे हूँ;)
— jcolebrand
12

सी#

कम होने का इरादा नहीं है, लेकिन शायद यह रचनात्मक के रूप में गिना जाता है?

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

ध्यान दें कि यह केवल एक एकल विवरण है :)

— Timwi
स्रोत
11

निश्चित रूप से रचनात्मक के रूप में योग्य नहीं है, लेकिन यह कमांड लाइन से एकल कमांड के साथ किया जाता है।

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");'
— डैनियल स्टैंडेज
स्रोत
11

हास्केल, 272 , 250 , 243 वर्ण

(&)=(++)
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]
— जोनाथन स्टर्नबर्ग
स्रोत
11

विंडोज पॉवरशेल (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."

काफी सरल।

मैं बीयर की बोतलों के लिए एक फिल्टर का उपयोग कर रहा हूं, क्योंकि functionलंबे समय तक और आह्वान को किसी भी मामले में कोष्ठक की आवश्यकता होती है। बहुवचन का पता लगाने ( !!--$_) पहले बोतलों की संख्या को एक से घटाता है (इसलिए बहुवचन कुछ भी शून्य नहीं होता है), इसे बूलियन को कास्ट करता है और पहले !से इसे नकारता है और फिर से नकारता है इसलिए अब हमें बूलियन का वर्णन करना है कि क्या संख्या को बहुवचन की आवश्यकता है या नहीं। यह तब स्ट्रिंग को गुणा करते समय एक पूर्णांक में निहित होता है।

इनलाइन लाइन ब्रेक मजेदार हैं।

जरूरत से ज्यादा पंक्तियां पैदा करना और बाद में भी काटना।

— एक छोटा सा सिक्का
स्रोत
निश्चित रूप से कम है, और यह एक बार कोशिश करते हैं और नीचे जाने के लिए सेट है !!! हालांकि मेरे दृष्टिकोण से, 196 जैसी "मैजिक नंबर" की उपस्थिति उन चीजों की श्रेणी में थी जिनसे मुझे बचने की उम्मीद है क्योंकि यह कैप्चर करता है (99 * 2) - 2. एक उत्तर के लिए जहां आप बोतल को बदल सकते हैं एक स्थान पर गिनती करें :) codegolf.stackexchange.com/questions/2/99-bottles-of-beer/…
— डॉ। रिब्मू
आप "दीवार पर" याद कर रहे हैं। आउटपुट की अंतिम पंक्ति में और उसके बाद हर बोतल को नीचे ले जाया जाता है।
— इज़ी
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."ठीक करता है। कुल 199 वर्ण। ( $wइससे पहले एक लाइन ब्रेक जोड़ें ")
— इज़्ज़ी
ठीक करने के लिए धन्यवाद। वहाँ भी एक शानदार जगह थी, इसलिए गिनती 198 के बजाय है।
— जोए
10

कर्ल 19 अक्षर

(इंटरनेट कनेक्शन की आवश्यकता है)

curl -L j.mp/eGv9K5
— एलेक्ज़ेंड्रु
स्रोत
7
मैं इसे बहुत दूर तक खींचता हूं।
— marcog
8
मैं इसे एक मजाक मानता हूं। एक वेब सर्वर के लिए क्वेरी के पीछे कई समाधान छिपाए जा सकते हैं।
— अलेक्जेंड्रू
3
मुझे यह पसंद है।
— pimvdb
1
यदि उद्देश्य सबसे छोटा कोड था, तो मैं आपको चतुराई के लिए एक बिंदु दूंगा।
— नील
9

उबेर-उत्सुक नए सी प्रोग्रामर से लगभग-सही गोल्फ जो पर्ल सीख रहा है?

#!/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;
  }
}
— डैनियल स्टैंडेज
स्रोत
क्यों नहीं /usr/bin/env perl?
— nyuszika7h
1
@ nyuszika7h व्यावहारिक आलोचक! ;)
— डैनियल स्टैंडेज
8

जावास्क्रिप्ट ( 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>")

संपादित करें: प्रारंभिक संस्करण में एक एकल "1 बोतल बीयर" था, 3 जी संस्करण पूरी तरह से फिर से लिखा गया है, शांत चाल को नोटिस करें जैसे (a||99)कि अंतिम पंक्ति में 99 प्राप्त (a-1?'s':'')करना, हर मामले के लिए बहुवचन बनाना, लेकिन a==1हालांकि बेकार की आवश्यकता के बिना ==, और मूल्य निर्धारित करना bएक बयान के अंदर जहां यह प्रयोग किया जाता है।

— aaaaaaaaaaaa
स्रोत
ऐसा लगता है कि आपकी बोतल / बोतलों का अनुकूलन आपको बचाने वाले पात्रों की तुलना में अधिक महंगा है।
— याहल
मुझे यकीन नहीं है कि आपका क्या मतलब है, आप वास्तव में क्या बदलेंगे?
— आआआआआआआ आआआआआआआआ
यह एक कविता को बहुत जल्दी रोक देता है। अंतिम कविता को जाना चाहिए "no more bottles of beer on the wall, no more bottles..." - देखें: 99-bottles-of-beer.net/lyrics.html
— मेरा 7rlygsson
BTW, मैंने 233 बाइट्स में एक पूर्ण, सही संस्करण का प्रबंधन किया: 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)
— मेर gsrlygsson
@ Már .rlygsson साइट पर आपका स्वागत है। इस चुनौती के लिए गीत प्रारंभिक पोस्ट में परिभाषित किए गए हैं।
— आआआआआआआआआ आआआआआ
7

सी

मुझे यह सवाल याद आ गया होगा, इसलिए यहाँ एक संस्करण है जो मैंने उत्तर के रूप में पोस्ट किया है। यह एक सी क्वीन आधारित संस्करण है। संकलित करें और गीत की अगली पंक्ति प्राप्त करने के लिए चलाएं। ऊब तक दोहराएं। अगर कोड कहता है "टाइम टू गो ..." तो कमांड लाइन तर्क के रूप में अगली बार बियर की संख्या दर्ज करें।

// 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
स्रोत
@DreamWarrior आपके प्रस्तावित संपादन के संबंध में, क्या आपने अपना कोड pastebin में रखने पर विचार किया है ताकि आप इसे टिप्पणी के रूप में पोस्ट कर सकें?
— 14'14
6

जावास्क्रिप्ट (285)

यह मानता है कि स्ट्रिंग को आउटपुट करने के लिए प्रिंट नामक एक फ़ंक्शन होता है।

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.")
8
मुझे यकीन नहीं है कि ग्रहण किए गए कार्य उचित हैं। उदाहरण के लिए, मेरा कार्यक्रम हो सकता है b();। मान लें b()कि एक फ़ंक्शन है जो दीवार पर 99 बोतल बीयर प्रिंट करता है। :)
— क्रिस लाप्लांट
10
जावास्क्रिप्ट एक स्ट्रिंग को आउटपुट करने के लिए कोई मानक तरीका प्रदान नहीं करता है, यदि आप इसे एक ब्राउज़र में चला रहे हैं, तो इसमें प्रिंट फ़ंक्शन नहीं है, यदि आप इसे राइनो में चला रहे हैं, तो आप करते हैं।
2
document.writelnकाम करता है।
— क्रिस लैपलेंट
4
... ब्राउज़र के लिए
5
जावास्क्रिप्ट में IO है: alertआउटपुट के promptरूप में , चर इनपुट के confirmरूप में और बूलियन इनपुट के रूप में। जहां तक ​​यूआई जाता है, वे चूसते हैं, लेकिन वे मानक अवरुद्ध IO फ़ंक्शन हैं। alertऔर printसमान लंबाई हैं, इसलिए आपका कोड लगभग बराबर होना चाहिए।
— zzzzBov
6

स्कीम (270)

कोई व्हाट्सएप नहीं: 

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

व्हॉट्सएप के साथ: 

    (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))))))
— होआ लॉन्ग टैम
स्रोत
6

अजगर - बहुत कुछ

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

अतिरिक्त संदर्भ (कोड के साथ मेरी बहुत मदद की): http://www.youtube.com/watch?v=Y0Z0raWIHXk

— aditsu
स्रोत
5

पायथन (318)

मुझे पायथन प्रोग्राम को छोटा बनाने का यह तरीका मिला :)

exec'eJxtjrFqwzAQQHd/xVVgLCVqSbq5RHO2TtlcgyX7Qk3luyAphP59ZA0thGzi9O7es0bUERyn5DE/+AwOMdTxi0TljLeLmyzQB4GlaaCBg/hkWDigqMb/76aZz0CHHaCPCLaWTpLSTWw2kl7MXmkBTJC+EW7Wey3U9hmzzqU42R/MNMLEt6KFi40R5gQ28JUmndO0ODIkLhdjyjWFc9dfiLxg6Vsx1ZExu36Vddn2miVD2w59R4d9/6d+f8h7Wze3Y+GrS5gpwSjbVlV3Y1BZCg=='.decode('base64').decode('zip')
— मारीनस
स्रोत
यह। dDC.decode सामान मुझे पहली बार बेवकूफ लगा, जब मैंने इसे देखा, लेकिन मैं अब व्यावहारिक उद्देश्यों के लिए उपयोग कर रहा हूं (मेरे विस्मयकारी तरीके से कार्य के रूप में मेरे .bashrc में कोड को प्लॉप करने के लिए), इसलिए धन्यवाद।
— ixtmixilix
5
मुझे लगता है कि असम्पीडित कोड में 300 वर्ण हैं। फिर इसे संकुचित क्यों करें?
— जोहान्स कुह्न
5

रेम्बु - 167 वर्ण

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

शायद कुछ पात्रों का मुंडन कर सकता है, यह सिर्फ पहली कोशिश थी। :)

यहाँ समतुल्य रेबोल है जिसे शॉर्टहैंड उबला हुआ है। अभी भी विशेष रूप से स्पष्टता को देखते हुए प्रतिस्पर्धी:

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

GitHub पर उपलब्ध स्रोत कोड टिप्पणी

— डॉ। रीबमू
स्रोत
5

PHP: 285 240 233 231 वर्ण

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

यहाँ आउटपुट: http://ideone.com/5fQmcd

— याहेल
स्रोत
4

पायथन, 241 वर्ण

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+"."
— कीथ रान्डेल
स्रोत
4

रूबी, 274 बाइट्स

रूबी के लिए अभी भी बहुत नया है, वास्तव में सिर्फ खेल रहा है

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
स्रोत
4

C # (299 वर्ण)

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
स्रोत
1
आपकी अंतिम पंक्ति "99 बोतल" के बजाय "99 बोतल" प्रदर्शित करती है, और आपके पास अपना लूप 99 के बजाय 19 से शुरू होता है (हालांकि यह शायद सिर्फ एक निरीक्षण है)।
— नेलियस
@ नेलियस ~ सही ~ और अपने प्रतिस्पर्धी कोड के लिए धन्यवाद, मैंने अपना फिर से आना और कुछ एकल सम्मिलित ब्लॉकों को हटा दिया और अपने स्वयं के कोड में कुछ preexisting स्थिरांक कम कर दिए। अब नीचे 300 सुचारू रूप से करने के लिए।
— jcolebrand
आप इसे "सिस्टम का उपयोग कर;" और "Console.WriteLine" को "System.Console.WriteLine" में
— बदलना
@ Tester101 ~ अच्छी कॉल। माना जाता है कि नहीं था!
— jcolebrand
4

जावास्क्रिप्ट (7 कार्य)

गोल्फ नहीं है। यह गीत के एक (अधिकतर) कार्यात्मक कार्यान्वयन के रूप में करना है।

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));
— कृपया उठो
स्रोत
4

गो (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
स्रोत
3

PHP - 252 बाइट्स

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

मुझे उम्मीद है कि मैं कल कुछ और सेक करूंगा।

— ऑरेल बेली
स्रोत
3

रूबी 1.9.2p136: 223

मैं कोई कायर नहीं हूँ, तुम मेरा पढ़ सकते हो;

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

(ओरेकल) एसक्यूएल

कोई वर्ण गणना नहीं, मैंने इसे गोल्फ नहीं किया। बस इसे करने का एक मजेदार तरीका मिला। 

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
स्रोत
हमारी साइट का प्रयोग करके, आप स्वीकार करते हैं कि आपने हमारी Cookie Policy और निजता नीति को पढ़ और समझा लिया है।
Licensed under cc by-sa 3.0 with attribution required.