48

Enquanto tentava (e falhei) convencer meu filho a comer o jantar, tentei cantar para ele. No meio dessa música, eu percebi que a estrutura da fórmula poderia se dar bem no código do golfe!

A tarefa é escrever um programa ou função que não aceita entrada e produz o seguinte texto:

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

Regras do desafio:

O texto pode ser impresso ou retornado como saída de função
Cada verso é separado por uma única linha vazia
O espaço em branco à direita é aceitável, desde que não mude o layout (portanto, não há espaço em branco à esquerda nem espaços extras entre as palavras)
As novas linhas à direita também são boas.
Não há novas linhas principais.
Todos os idiomas são bem-vindos, e isso é código-golfe ; portanto, a resposta mais curta em bytes para cada idioma vence!

code-golf kolmogorov-complexity

— Sok
fonte

6

Semelhante a Havia uma velha senhora (outros desafios semelhantes, por exemplo , foram fechados como duplicatas, embora eu ache que não devam necessariamente).

— Jonathan Allan

6

Ho, ro, o pântano, o pântano no vale.

— fəˈnɛtɪk 30/01

4

Para comparação (embora não seja uma linguagem de programação), a gzip -5compacta em 186 bytes ( bzip2e xzparece piorar).

— Daniel Schepler 30/01

2

Parabéns, de outro pai desenvolvedor :)

— AJFaraday 31/01

1

Eu quero adaptar essa música para 05AB1E ... "Há um buraco no oh-cinco-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

Experimente aqui!

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

Mas .... mas como?

— SomeShinyObject

8

Incrível. Como até--

— Austin Burk

1

HNQ ataca novamente! : \

— Shaggy

4

Você se importaria de adicionar uma explicação? Curioso para ver como funciona.

— Kevin Cruijssen

@KevinCruijssen adicionou

— dzaima

19

Stax , 90 87 75 bytes

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

Execute e depure

Descompactado, não jogado e comentou que é assim.

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

Execute este

— recursivo
fonte

2

Você se importaria de adicionar uma explicação? Curioso para ver como funciona.

— Kevin Cruijssen

Eu vou, mas ainda tenho a sensação de que uma abordagem totalmente diferente fará melhor. Depois que eu tiver sucesso ou falhar, explicarei o que resta.

— recursivo em

1

@KevinCruijssen: Tive a sensação de que havia uma abordagem muito melhor. Com certeza, eu reescrevi totalmente e salvei outros 12 bytes de inchaço. Eu adicionei algumas explicações também.

— recursivo

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
fonte

5

There's a bottom of the sea. Os fatos confirmam, +1

— Jo King

:), há também esta variação começando com There's a seamas é mais

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

Há um buraco no fundo do mar

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 bytes

JavaScript (ES6), 201 194 189 188 187 bytes

JavaScript (ES6), 235 bytes

Bash, 168 160 bytes

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

XML, 719 673 603 514 493 486 bytes

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

Japonês -R , 142 bytes

Lote, 267 bytes

Ruby , 173 170 bytes

Haskell , 243 215 bytes

JavaScript (Nó Babel) , 239 bytes

Python 3 , 213 206 198 193 bytes

Limpo , 267 bytes

cQuents , 238 219 bytes

Explicação

Perl 5 , 194 bytes

Carvão , 115 106 bytes

V , 184 170 bytes

Explicação:

/// , 216 bytes

LaTeX, 265 268 caracteres

C # (compilador interativo do Visual C #) , 220 bytes

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

Japonês `-R` , 142 bytes