48

Während ich versuchte (und versagte), meinen kleinen Sohn zum Abendessen zu überreden, versuchte ich, ihm etwas vorzusingen. Auf halbem Weg durch dieses Lied wurde mir klar, dass sich die Formelstruktur gut zum Code-Golfen eignet!

Die Aufgabe besteht darin, ein Programm oder eine Funktion zu schreiben, die keine Eingabe akzeptiert und den folgenden Text erzeugt:

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

Herausforderungsregeln:

Der Text kann ausgedruckt oder als Funktionsausgabe zurückgegeben werden
Jeder Vers wird durch eine einzelne Leerzeile getrennt
Das nachgestellte Leerzeichen ist in Ordnung, solange das Layout nicht geändert wird (also kein führendes Leerzeichen oder zusätzliche Leerzeichen zwischen Wörtern).
Nachgestellte Zeilenumbrüche sind ebenfalls in Ordnung.
Keine führenden Zeilenumbrüche.
Alle Sprachen sind willkommen, und das ist Code-Golf , also gewinnt die kürzeste Antwort in Bytes für jede Sprache!

code-golf kolmogorov-complexity

— Sok
quelle

6

Ähnlich wie Es gab eine alte Dame (andere ähnliche Herausforderungen, z. B. diese wurden als Duplikate geschlossen, obwohl ich nicht denke, dass sie unbedingt sollten.)

— Jonathan Allan

6

Ho, ro, das Klappermoor, das Moor unten im Tal.

— 30.

4

Zum Vergleich (obwohl keine Programmiersprache) gzip -5komprimiert es auf 186 Bytes ( bzip2und xzscheint es noch schlimmer zu machen).

— Daniel Schepler

2

Herzlichen Glückwunsch von einem anderen Entwickler Eltern :)

— AJFaraday

1

Ich möchte dieses Lied an 05AB1E anpassen ... "Es gibt ein Loch in oh-five-ay-bee-one-ee!"

— Magic Octopus Urn

23

SOGL , 103 94 93 Bytes

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

Probieren Sie es hier aus!

...‘                 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
quelle

14

Aber ... aber wie?

— SomeShinyObject

8

Unglaublich. Wie auch ...

— Austin Burk

1

HNQ schlägt wieder zu! : \

— Shaggy

4

Würde es Ihnen etwas ausmachen, eine Erklärung hinzuzufügen? Neugierig, wie es funktioniert.

— Kevin Cruijssen

@ KevinCruijssen hinzugefügt

— dzaima

19

Stax , 90 87 75 Bytes

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

Führen Sie es aus und debuggen Sie es

Ausgepackt, ungolfed und kommentiert sieht es so aus.

`;$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

Führen Sie dieses aus

— rekursiv
quelle

2

Würde es Ihnen etwas ausmachen, eine Erklärung hinzuzufügen? Neugierig, wie es funktioniert.

— Kevin Cruijssen

Ich werde es tun, aber ich habe immer noch das Gefühl, dass ein völlig anderer Ansatz es besser machen wird. Wenn mir das gelingt oder nicht gelingt, erkläre ich, was noch übrig ist.

— rekursiver

1

@ KevinCruijssen: Ich hatte das Gefühl, dass es einen viel besseren Ansatz gibt. Klar, ich habe es komplett neu geschrieben und weitere 12 Bytes an Aufblähung gespart. Ich habe auch eine Erklärung hinzugefügt.

— rekursiver

16

Perl 5, 158 154 Bytes

$_="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 Bytes

158 Bytes

— Nahuel Fouilleul
quelle

5

There's a bottom of the sea. Die Fakten überprüfen, +1

— Jo King

:), es gibt auch diese Variante beginnend mit, There's a seaaber es ist länger

— Nahuel Fouilleul

13

Python 2 , 202 190 187 185 183 182 181 Bytes

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

Da ist ein Loch im Meeresboden

SOGL , 103 94 93 Bytes

Stax , 90 87 75 Bytes

Perl 5, 158 154 Bytes

Python 2 , 202 190 187 185 183 182 181 Bytes

C (gcc) , 261 246 236 Bytes

05AB1E , 103 100 99 97 96 93 92 Bytes

PowerShell , 194 188 185 180 174 Byte

JavaScript (ES6), 201 194 189 188 187 Bytes

JavaScript (ES6), 235 Byte

Bash, 168 160 Bytes

Japt -Rx, 126 116 113 112 111 109 107 Bytes

XML, 719 673 603 514 493 486 Byte

Retina 0,8,2 , 150 Bytes

R , 237 231 Bytes

PHP, 180 178 Bytes

C (gcc) , 334 328 307 299 Bytes

Perl 6 , 166 Bytes

Japt -R , 142 Bytes

Batch, 267 Bytes

Ruby , 173-170 Bytes

Haskell , 243 215 Bytes

JavaScript (Babel Node) , 239 Bytes

Python 3 , 213 206 198 193 Bytes

Sauber , 267 Bytes

cQuents , 238 219 Bytes

Erläuterung

Perl 5 , 194 Bytes

Charcoal , 115 106 Bytes

V , 184-170 Bytes

Erläuterung:

/// 216 Bytes

LaTeX, 265 268 Zeichen

C # (Visual C # Interactive Compiler) , 220 Byte

Japt `-Rx`, 126 116 113 112 111 109 107 Bytes

Japt `-R` , 142 Bytes