48

Mentre provavo (e fallivo) hanno persuaso mio figlio a mangiare la sua cena, ho provato a cantare con lui. A metà di questa canzone ho capito che la struttura formulaica poteva prestarsi bene al golf del codice!

Il compito è scrivere un programma o una funzione che non accetta input e produce il seguente testo:

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

Regole della sfida:

Il testo può essere stampato o restituito come output della funzione
Ogni verso è separato da una singola riga vuota
Lo spazio bianco finale è OK purché non cambi il layout (quindi nessuno spazio bianco iniziale o spazi extra tra le parole)
Anche le nuove righe finali vanno bene.
Nessuna nuova linea principale.
Sono benvenute tutte le lingue, e questo è code-golf , quindi vince la risposta più breve in byte per ogni lingua!

code-golf kolmogorov-complexity

— Sok
fonte

6

Simile a C'era una vecchia signora (altre sfide simili, ad esempio, sono state chiuse come duplicati, anche se non credo che debbano necessariamente farlo.)

— Jonathan Allan,

6

Ho, ro, la torbiera del rattlin, la torbiera giù nella valle-o.

— fəˈnɛtɪk,

4

Per confronto (anche se non un linguaggio di programmazione) lo gzip -5comprime a 186 byte ( bzip2e xzsembra che faccia peggio).

— Daniel Schepler,

2

Complimenti, da un altro genitore sviluppatore :)

— AJFaraday

1

Voglio adattare questa canzone a 05AB1E ... "C'è un buco in oh-five-ay-bee-one-ee!"

— Magic Octopus Urn

23

SOGL , 103 94 93 byte

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

Provalo qui!

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

14

Ma .... ma come?

— SomeShinyMonica

8

Incredibile. Come ...

— Austin Burk, il

1

HNQ colpisce ancora! : \

— Shaggy

4

Ti dispiacerebbe aggiungere una spiegazione? Curioso di vedere come funziona.

— Kevin Cruijssen,

@KevinCruijssen ha aggiunto

— dzaima il

19

Stax , 90 87 75 byte

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

Esegui ed esegui il debug

Disimballato, ungolfed e commentato sembra così.

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

Esegui questo

— ricorsivo
fonte

2

Ti dispiacerebbe aggiungere una spiegazione? Curioso di vedere come funziona.

— Kevin Cruijssen,

Lo farò ma ho ancora la sensazione che un approccio totalmente diverso farà meglio. Dopo che avrò successo o meno, spiegherò tutto ciò che è rimasto.

— ricorsivo

1

@KevinCruijssen: ho avuto la sensazione che ci fosse un approccio molto migliore. Abbastanza sicuro, l'ho completamente riscritto e ho salvato altri 12 byte di gonfiaggio. Ho aggiunto anche qualche spiegazione.

— ricorsivo il

16

Perl 5, 158 154 byte

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

158 byte

— Nahuel Fouilleul
fonte

5

There's a bottom of the sea. I fatti controllano, +1

— Jo King

:), c'è anche questa variazione a partire There's a seama è più lunga

— Nahuel Fouilleul

13

Python 2 , 202 190 187 185 183 182 181 byte

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

C'è un buco nel fondo del mare

SOGL , 103 94 93 byte

Stax , 90 87 75 byte

Perl 5, 158 154 byte

Python 2 , 202 190 187 185 183 182 181 byte

C (gcc) , 261 246 236 byte

05AB1E , 103 100 99 97 96 93 92 byte

PowerShell , 194 188 185 180 174 byte

JavaScript (ES6), 201 194 189 188 187 byte

JavaScript (ES6), 235 byte

Bash, 168 160 byte

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

XML, 719 673 603 514 493 486 byte

Retina 0.8.2 , 150 byte

R , 237 231 byte

PHP, 180 178 byte

C (gcc) , 334 328 307 299 byte

Perl 6 , 166 byte

Japt -R , 142 byte

Lotto, 267 byte

Rubino , 173 170 byte

Haskell , 243 215 byte

JavaScript (nodo Babele) , 239 byte

Python 3 , 213 206 198 193 byte

Pulito , 267 byte

cQuents , 238 219 byte

Spiegazione

Perl 5 , 194 byte

Carbone , 115 106 byte

V , 184 170 byte

Spiegazione:

/// , 216 byte

LaTeX, 265 268 caratteri

C # (compilatore interattivo Visual C #) , 220 byte

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

Japt `-R` , 142 byte