48

जब भी कोशिश की (और असफल) मेरे शिशु बेटे को अपना खाना खाने के लिए मना लिया, मैंने उसे गाने की कोशिश की। इस गीत के माध्यम से मध्य मार्ग मुझे एहसास हुआ कि फार्मूलाबद्ध संरचना गोल्फ कोडिंग के लिए अच्छी तरह से उधार दे सकती है!

कार्य एक प्रोग्राम या फ़ंक्शन लिखना है जो बिना इनपुट के स्वीकार करता है और निम्नलिखित पाठ का उत्पादन करता है:

There's a hole in the bottom of the sea
There's a hole in the bottom of the sea
There's a hole, there's a hole
There's a hole in the bottom of the sea

There's a log in the hole in the bottom of the sea
There's a log in the hole in the bottom of the sea
There's a hole, there's a hole
There's a hole in the bottom of the sea

There's a bump on the log in the hole in the bottom of the sea
There's a bump on the log in the hole in the bottom of the sea
There's a hole, there's a hole
There's a hole in the bottom of the sea

There's a frog on the bump on the log in the hole in the bottom of the sea
There's a frog on the bump on the log in the hole in the bottom of the sea
There's a hole, there's a hole
There's a hole in the bottom of the sea

There's a wart on the frog on the bump on the log in the hole in the bottom of the sea
There's a wart on the frog on the bump on the log in the hole in the bottom of the sea
There's a hole, there's a hole
There's a hole in the bottom of the sea

There's a hair on the wart on the frog on the bump on the log in the hole in the bottom of the sea
There's a hair on the wart on the frog on the bump on the log in the hole in the bottom of the sea
There's a hole, there's a hole
There's a hole in the bottom of the sea

There's a fly on the hair on the wart on the frog on the bump on the log in the hole in the bottom of the sea
There's a fly on the hair on the wart on the frog on the bump on the log in the hole in the bottom of the sea
There's a hole, there's a hole
There's a hole in the bottom of the sea

There's a flea on the fly on the hair on the wart on the frog on the bump on the log in the hole in the bottom of the sea
There's a flea on the fly on the hair on the wart on the frog on the bump on the log in the hole in the bottom of the sea
There's a hole, there's a hole
There's a hole in the bottom of the sea

There's a smile on the flea on the fly on the hair on the wart on the frog on the bump on the log in the hole in the bottom of the sea
There's a smile on the flea on the fly on the hair on the wart on the frog on the bump on the log in the hole in the bottom of the sea
There's a hole, there's a hole
There's a hole in the bottom of the sea

चुनौती नियम:

पाठ को फ़ंक्शन आउटपुट के रूप में मुद्रित या लौटाया जा सकता है
प्रत्येक कविता को एक खाली लाइन द्वारा अलग किया जाता है
व्हाट्सएप को पीछे छोड़ना तब तक ठीक है, जब तक कि यह लेआउट में बदलाव न करे (इसलिए शब्दों के बीच कोई अग्रणी व्हाट्सएप या अतिरिक्त स्थान नहीं)
अनुगामी newlines भी ठीक हैं।
कोई नई बात नहीं।
सभी भाषाओं ने स्वागत किया, और यह कोड-गोल्फ है , इसलिए प्रत्येक भाषा की जीत के लिए बाइट्स में सबसे छोटा उत्तर है!

code-golf kolmogorov-complexity

— सोक
स्रोत

6

इसी के लिए वहाँ था एक बूढ़ी औरत (अन्य इसी तरह की चुनौतियों का इस जैसे डुप्लिकेट के रूप में बंद कर दिया गया है, हालांकि मुझे नहीं लगता कि वे आवश्यक रूप से करना चाहिए।)

— जोनाथन एलन

6

हो, आरओ, रटलिन 'बोग, द वैली डाउन द वैली-ओ।

— f --n .tɪk

4

तुलना के लिए (हालांकि एक प्रोग्रामिंग भाषा नहीं) gzip -5इसे 186 बाइट्स तक संपीड़ित करता है ( bzip2और xzलगता है कि यह और भी बदतर है)।

— डैनियल शेपलर

2

बधाई, एक और डेवलपर माता-पिता से :)

— AJFaraday

1

मैं इस गीत को 05AB1E में बदलना चाहता हूं ... "ओह-फाइव-ए-बी-वन-ई में एक छेद है!"

— मैजिक ऑक्टोपस Urn

23

एसओजीएल , 103 94 93 बाइट्स

Ψ ~Δ№Q‘η¦»vζh‛←&M⁶╥7[P≈╔6≡⁸(φΔ\⅔Σ‚>≡ā⁷⁽○¹‘Ξ⁵K4s³‘⁽Bθ2n{@∑" the ”+Κ:bΚē‽:C}TPb"n@²‘+Tō, upcPøP

यहाँ कोशिश करो!

...‘                 push "bottom of the sea" - kept for the loop, here for 
    ...‘             push "hole in log in bump on frog on wart on hair on fly on flea on smile on"
        ...‘         push "there's a "
            ⁽        uppercase the 1st letter of that
             B       save "There's a " in B
              θ      split the long data string on spaces
               2n    split in arrays of length 2

{                     for each of those:
 @∑                   join the current array with spaces - e.g. "hole in"
   " the ”+           append " the " to it
           Κ          prepend that to "bottom of the sea" (or whatever it is now)
            :         create a copy
             bΚ       prepend B to it - finishes current line
               ē‽:C}  if (E++), save a copy of that in C (for the last line)

TP                   print the current line twice
  b"...‘+            B + "hole" - "There's a hole"
         T           output that, keeping item
          ō,         output ", "
             up      print the kept item lowercased
               cP    print the contents of C
                 øP  print an empty line

— dzaima
स्रोत

14

लेकिन .... लेकिन कैसे?

— SomeShinyObject

8

अतुल्य। कैसे भी--

— ऑस्टिन बुर्क

1

HNQ ने फिर किया हमला! : \

— झबरा

4

क्या आप एक स्पष्टीकरण जोड़ना चाहेंगे? यह देखने के लिए उत्सुक है कि यह कैसे काम करता है।

— केविन क्रूज़सेन

@KevinCruijssen ने कहा

— द्विजिमा

19

स्टैक्स , 90 87 75 बाइट्स

¥▌▼h4█☻■Ω1gçΔ¶Zjµ│☺X▄)/╞▄╒)¥jêLqα╧ñu┌⌂½╧ûⁿ↕O◘╔╪kl<æàbπïfuσ♪╫qΓ╪ûQ├╘Te♥Æó♣ƒE

इसे चलाएं और डीबग करें

अनपैक्ड, अनगोल्डेड और टिप्पणी की गई यह इस तरह दिखता है।

`;$w]i"50h1&V~OP>F$`            compressed literal for "There's a hole in the bottom of the sea"
X                               store in register X without popping
zG                              push an empty string and jump to the target (trailing }) 
`hfUiVx}.|j~vG12])Bxk?v zF`j    split "log bump frog wart hair fly flea smile" into array of words
F                               for each word, execute the following
  i. o. i?                      (i ? " o" : " i") where i is the 0-based iteration index
  +                             concatenate to the word
  `_o9!`+                       concatenate "n the "
  G                             jump to target below, resume next foreach iteration when finished
}                               this is the target of `G`, execution resumes when finished
  As|@                          insert substring at position 10
  QQ                            peek and print with newlines twice
  x14(                          trim string to leftmost 14 characters
  q                             peek and print without newlines
  ., p                          print ", " without newline
  vP                            lowercase 14 characters and print with newline
  xP                            push value of register X, then print with newline
  zP                            print blank line

इसको चलाओ

— पुनरावर्ती
स्रोत

2

क्या आप एक स्पष्टीकरण जोड़ना चाहेंगे? यह देखने के लिए उत्सुक है कि यह कैसे काम करता है।

— केविन क्रूज़सेन

मैं करूंगा लेकिन मुझे अभी भी यह एहसास है कि एक अलग दृष्टिकोण बेहतर होगा। इसमें सफल होने या असफल होने के बाद जो कुछ भी बचा है मैं उसे समझाऊंगा।

— पुनरावर्ती

1

@ केविनक्रूजसेन: मुझे इस बात का अहसास था कि बहुत बेहतर दृष्टिकोण था। निश्चित रूप से पर्याप्त है, मैंने इसे पूरी तरह से फिर से लिखा, और ब्लोट के एक और 12 बाइट्स को बचाया। मैंने कुछ स्पष्टीकरण भी जोड़ा।

— पुनरावर्ती

16

पर्ल 5, 158 154 बाइट्स

$_="There's a bottom of the sea
";for$,(<{{hole,log}" i",{bump,frog,wart,hair,fly,flea,smile}" o"}>){s/a/a $,n the/;say$_.$_.($t||=s/.{14}/$&, \l$&
$&/r)}

154 बाइट्स

158 बाइट्स

— नहुएल फौलीउल
स्रोत

5

There's a bottom of the sea। तथ्यों की जाँच करें, +1

— जो राजा

:), वहाँ भी इस भिन्नता के साथ शुरू होता है, There's a seaलेकिन यह लंबे समय तक है

— नहुएल फौइउल

13

पायथन 2 , 202 190 187 185 183 182 181 बाइट्स

s="bottom of the sea\n"
a="There's a "
for w in'hole log bump frog wart hair fly flea smile'.split():s=w+" %sn the "%'io'['g'in s]+s;print(a+s)*2+a+"hole, t%shole\n"%a[1:]+a+s[-30:]

समुद्र के तल में एक छेद है

एसओजीएल , 103 94 93 बाइट्स

स्टैक्स , 90 87 75 बाइट्स

पर्ल 5, 158 154 बाइट्स

पायथन 2 , 202 190 187 185 183 182 181 बाइट्स

सी (जीसीसी) , 261 246 236 बाइट्स

05AB1E , 103 100 99 97 96 93 92 बाइट्स

पॉवरशेल , 194 188 185 180 174 बाइट्स

जावास्क्रिप्ट (ईएस 6), 201 194 189 188 187 बाइट्स

जावास्क्रिप्ट (ईएस 6), 235 बाइट्स

बैश, 168 160 बाइट्स

जाप्ट -Rx, 126 116 113 112 111 109 107 बाइट्स

एक्सएमएल, 719 673 603 514 493 486 बाइट्स

रेटिना 0.8.2 , 150 बाइट्स

आर , 237 231 बाइट्स

PHP, 180 178 बाइट्स

C (gcc) , 334 328 307 299 बाइट्स

पर्ल 6 , 166 बाइट्स

जाप -R , 142 बाइट्स

बैच, 267 बाइट्स

रूबी , 173 170 बाइट्स

हास्केल , 243 215 बाइट्स

जावास्क्रिप्ट (बैबेल नोड) , 239 बाइट्स

पायथन 3 , 213 206 198 193 बाइट्स

साफ , 267 बाइट्स

CQuents , 238 219 बाइट्स

व्याख्या

पर्ल 5 , 194 बाइट्स

चारकोल , 115 106 बाइट्स

वी , 184 170 बाइट्स

स्पष्टीकरण:

/// , 216 बाइट्स

लाटेक्स, 265 268 अक्षर

सी # (विजुअल सी # इंटरएक्टिव कंपाइलर) , 220 बाइट्स

जाप्ट `-Rx`, 126 116 113 112 111 109 107 बाइट्स

जाप `-R` , 142 बाइट्स