48

En essayant (et en échouant) de persuader mon fils en bas âge de manger son dîner, j'ai essayé de lui chanter. Au milieu de cette chanson, j'ai réalisé que la structure de la formule pouvait se prêter au codage du golf!

La tâche consiste à écrire un programme ou une fonction qui n'accepte aucune entrée et produit le texte suivant:

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

Règles du challenge:

Le texte peut être imprimé ou retourné comme sortie de fonction
Chaque vers est séparé par une seule ligne vide
Les espaces de fin sont acceptables tant qu'ils ne modifient pas la mise en forme (donc pas d'espaces de début ni d'espaces supplémentaires entre les mots)
Les retours à la ligne sont également acceptables.
Pas de nouvelles lignes principales.
Toutes les langues sont les bienvenues. Il s’agit de code-golf . La réponse la plus courte en octets pour chaque langue est gagnante!

code-golf kolmogorov-complexity

— Sok
source

6

Semblable à Il y avait une vieille dame (d'autres défis similaires, par exemple, ceux-ci ont été fermés en double, bien que je ne pense pas qu'ils le devraient nécessairement.)

— Jonathan Allan

6

Ho, ro, la tourbière de rattlin ', la tourbière de la vallée-o.

— Fəˈnɛtɪk

4

À des fins de comparaison (bien qu’il ne gzip -5s’agisse pas d’un langage de programmation) , il est compressé à 186 octets ( bzip2et xzsemble faire pire).

— Daniel Schepler le

2

Félicitations d’un autre parent développeur :)

— AJFaraday

1

Je veux adapter cette chanson à 05AB1E ... "Il y a un trou dans oh-five-ay-bee-one-ee!"

— Urne Magique Octopus le

23

SOGL , 103 94 93 octets

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

Essayez-le ici!

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

14

Mais .... mais comment?

— SomeShinyMonica le

8

Incroyable. Comment même--

— Austin Burk le

1

HNQ frappe à nouveau! : \

— Shaggy le

4

Souhaitez-vous ajouter une explication? Curieux de voir comment cela fonctionne.

— Kevin Cruijssen le

@KevinCruijssen ajouté

— dzaima le

19

Stax , 90 87 75 octets

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

Exécuter et déboguer

Déballé, non-golfé et commenté, il ressemble à ceci.

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

Exécuter celui-ci

— récursif
source

2

Souhaitez-vous ajouter une explication? Curieux de voir comment cela fonctionne.

— Kevin Cruijssen le

Je le ferai mais j'ai toujours le sentiment qu'une approche totalement différente fera mieux. Après avoir réussi ou échoué, j'expliquerai tout ce qui reste.

— récursif le

1

@ KevinCruijssen: J'avais le sentiment qu'il y avait une bien meilleure approche. Effectivement, je l’ai totalement réécrit et j’ai sauvé 12 octets supplémentaires. J'ai ajouté une explication aussi.

— récursif le

16

Perl 5, 158 154 octets

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

158 octets

— Nahuel Fouilleul
source

5

There's a bottom of the sea. Les faits vérifier, +1

— Jo King

:), il y a aussi cette variation à partir de There's a seamais c'est plus long

— Nahuel Fouilleul

13

Python 2 , 202 190 187 185 183 183 182 181 octets

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

Il y a un trou au fond de la mer

SOGL , 103 94 93 octets

Stax , 90 87 75 octets

Perl 5, 158 154 octets

Python 2 , 202 190 187 185 183 183 182 181 octets

C (gcc) , 261 246 236 octets

05AB1E , 103 100 99 97 96 93 92 octets

PowerShell , 194 188 185 180 174 octets

JavaScript (ES6), 201 194 189 188 187 octets

JavaScript (ES6), 235 octets

Bash, 168 160 octets

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

XML, 719 673 603 514 493 486 octets

Retina 0.8.2 , 150 octets

R , 237 231 octets

PHP, 180 178 octets

C (gcc) , 334 328 307 299 octets

Perl 6 , 166 octets

Japt -R , 142 octets

Lot, 267 octets

Ruby , 173 170 octets

Haskell , 243 215 octets

JavaScript (Babel Node) , 239 octets

Python 3 , 213 206 198 193 octets

Propre , 267 octets

cQuents , 238 219 octets

Explication

Perl 5 , 194 octets

Charbon de bois , 115 106 octets

V , 184 170 octets

Explication:

/// , 216 octets

LaTeX, 265 268 caractères

C # (compilateur interactif Visual C #) , 220 octets

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

Japt `-R` , 142 octets