48

Podczas gdy próbowałem (i nie udawało mi się) przekonać mojego małego syna do zjedzenia obiadu, próbowałem mu śpiewać. W połowie tej piosenki zdałem sobie sprawę, że ta formuła może się dobrze przydać do gry w golfa!

Zadanie polega na napisaniu programu lub funkcji, która nie przyjmuje danych wejściowych i generuje następujący tekst:

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

Zasady konkursu:

Tekst można wydrukować lub zwrócić jako wynik funkcji
Każdy werset jest oddzielony pojedynczą pustą linią
Końcowe białe znaki są OK, o ile nie zmieniają układu (więc nie ma wiodących białych znaków ani dodatkowych spacji między słowami)
Znaki końcowe również są w porządku.
Brak wiodących nowych linii.
Wszystkie języki są mile widziane, a to jest golf golfowy , więc wygrywa najkrótsza odpowiedź w bajtach dla każdego języka!

code-golf kolmogorov-complexity

— Sok
źródło

6

Podobne do „ Była tam stara dama” (inne podobne wyzwania, np. Zostały zamknięte jako duplikaty, choć nie sądzę, że powinny).

— Jonathan Allan

6

Ho, ro, trzęsawisko, torfowisko w dolinie-o.

— fəˈnɛtɪk

4

Dla porównania (choć nie język programowania) gzip -5kompresuje go do 186 bajtów ( bzip2i xzwydaje się, że gorzej).

— Daniel Schepler

2

Gratulacje, od innego rodzica programisty :)

— AJFaraday

1

Chcę dostosować tę piosenkę do 05AB1E ... „Jest dziura w och-pięć-ay-bee-one-ee!”

— Magic Octopus Urn

23

SOGL , 103 94 93 bajty

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

Wypróbuj tutaj!

...‘                 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
źródło

14

Ale .... ale jak?

— SomeShinyObject

8

Niesamowite. Jak nawet--

— Austin Burk

1

HNQ uderza ponownie! : \

— Shaggy

4

Czy mógłbyś dodać wyjaśnienie? Ciekawe, jak to działa.

— Kevin Cruijssen

@KevinCruijssen dodaje

— dzaima

19

Stax , 90 87 75 bajtów

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

Uruchom i debuguj

Rozpakowane, niepolowane i skomentowane to wygląda tak.

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

Uruchom ten

— rekurencyjny
źródło

2

Czy mógłbyś dodać wyjaśnienie? Ciekawe, jak to działa.

— Kevin Cruijssen

Będę, ale nadal mam wrażenie, że zupełnie inne podejście da radę. Po tym, jak mi się uda lub nie, wyjaśnię ci, co pozostało.

— rekurencyjny

1

@KevinCruijssen: Miałem wrażenie, że istnieje znacznie lepsze podejście. Rzeczywiście, całkowicie go przepisałem i zapisałem kolejne 12 bajtów wzdęcia. Dodałem również wyjaśnienie.

— rekurencyjny

16

Perl 5, 158 154 bajtów

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

158 bajtów

— Nahuel Fouilleul
źródło

5

There's a bottom of the sea. Fakty sprawdź, +1

— Jo King

:), jest też ta odmiana, zaczynająca się od, There's a seaale jest dłuższa

— Nahuel Fouilleul

13

Python 2 , 202 190 187 185 183 182 181 bajtów

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

Na dnie morza jest dziura

SOGL , 103 94 93 bajty

Stax , 90 87 75 bajtów

Perl 5, 158 154 bajtów

Python 2 , 202 190 187 185 183 182 181 bajtów

C (gcc) , 261 246 236 bajtów

05AB1E , 103 100 99 97 96 93 92 bajty

PowerShell , 194 188 185 180 174 bajtów

JavaScript (ES6), 201 194 189 188 187 bajtów

JavaScript (ES6), 235 bajtów

Bash, 168 160 bajtów

Japt -Rx, 126 116 113 112 111 109 107 bajtów

XML, 719 673 603 514 493 486 bajtów

Siatkówka 0.8.2 , 150 bajtów

R , 237 231 bajtów

PHP, 180 178 bajtów

C (gcc) , 334 328 307 299 bajtów

Perl 6 , 166 bajtów

Japt -R , 142 bajty

Partia, 267 bajtów

Rubinowy , 173 170 bajtów

Haskell , 243 215 bajtów

JavaScript (węzeł Babel) , 239 bajtów

Python 3 , 213 206 198 193 bajtów

Czysty , 267 bajtów

cQuents , 238 219 bajtów

Wyjaśnienie

Perl 5 , 194 bajtów

Węgiel drzewny , 115 106 bajtów

V , 184 170 bajtów

Wyjaśnienie:

/// , 216 bajtów

LaTeX, 265 268 znaków

C # (interaktywny kompilator Visual C #) , 220 bajtów

Japt `-Rx`, 126 116 113 112 111 109 107 bajtów

Japt `-R` , 142 bajty