48

Хоча намагання (і невдачі) переконали мого немовляти сина з'їсти його вечерю, я спробував співати йому. На середині шляху через цю пісню я зрозумів, що формулярна структура може добре піддаватися коду гольфу!

Завдання полягає в тому, щоб написати програму або функцію, яка не приймає жодних даних і створює такий текст:

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

Правила виклику:

Текст може бути надрукований або повернутий як вихідний текст
Кожен вірш відокремлений одним порожнім рядком
Пробіл пробілів добре, доки він не змінить макет (тому немає провідних пробілів або зайвих пробілів між словами)
Очеретні нові рядки теж добре.
Немає провідних новинок.
Всі мови вітаються, і це код-гольф , тому найкоротша відповідь у байтах для кожної мови виграє!

code-golf kolmogorov-complexity

— Сок
джерело

6

Схоже на Там була стара леді (інші подібні виклики, наприклад, це було закрито як копії, хоча я не думаю, що вони обов'язково повинні.)

— Джонатан Алан

6

Хо, ро, брязкальце, болото в долині.

— fəˈnɛtɪk

4

Для порівняння (хоча це не мова програмування) gzip -5стискає його до 186 байт ( bzip2і, xzздається, робить гірше).

— Даніель Шеплер

2

З

— повагою

1

Я хочу адаптувати цю пісню до 05AB1E ... "Там є отвір у" о-п'ять-ай-бджола-один-е-е! "

— Чарівний восьминога Урна

23

SOGL , 103 94 93 байт

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

Спробуйте тут!

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

— дзайма
джерело

14

Але .... але як?

— SomeShinyObject

8

Неймовірно. Як навіть--

— Остін Берк

1

HNQ б'є знову! : \

— Кудлатий

4

Ви б не хотіли додати пояснення? Цікаво подивитися, як це працює.

— Кевін Круїссен

@KevinCruijssen додав

— dzaima

19

Стакс , 90 87 75 байт

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

Запустіть і налагоджуйте його

Розпакувавшись, не розібравшись та коментуючи, це виглядає приблизно так.

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

Виконати цей

— рекурсивний
джерело

2

Ви б не хотіли додати пояснення? Цікаво подивитися, як це працює.

— Кевін Круїссен

Буду, але я все ще маю відчуття, що зовсім інший підхід стане кращим. Коли мені це вдасться чи не вдасться, я поясню все, що залишилося

— рекурсивна

1

@KevinCruijssen: У мене було відчуття, що існує набагато кращий підхід. Звичайно, я повністю переписав це, і врятував ще 12 байтів розриву. Я також додав пояснення.

— рекурсивна

16

Perl 5, 158 154 байт

$_="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 байти

158 байт

— Нахуель Фуле
джерело

5

There's a bottom of the sea. Факти перевіряйте, +1

— Jo King

:), також є ця варіація, починаючи з, There's a seaале вона довша

— Nahuel Fouilleul

13

Python 2 , 202 190 187 185 183 182 181 байт

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

На дні моря є дірка

SOGL , 103 94 93 байт

Стакс , 90 87 75 байт

Perl 5, 158 154 байт

Python 2 , 202 190 187 185 183 182 181 байт

C (gcc) , 261 246 236 байт

05AB1E , 103 100 99 97 96 93 92 байт

PowerShell , 194 188 185 180 174 байт

JavaScript (ES6), 201 194 189 188 187 байт

JavaScript (ES6), 235 байт

Баш, 168 160 байт

Japt -Rx, 126 116 113 112 111 109 107 байт

XML, 719 673 603 514 493 486 байт

Сітківка 0,8,2 , 150 байт

R , 237 231 байт

PHP, 180 178 байт

C (gcc) , 334 328 307 299 байт

Perl 6 , 166 байт

Japt -R , 142 байти

Пакетна, 267 байт

Рубі , 173 170 байт

Haskell , 243 215 байт

JavaScript (Babel Node) , 239 байт

Python 3 , 213 206 198 193 байт

Чисто , 267 байт

cQuents , 238 219 байт

Пояснення

Perl 5 , 194 байт

Вугілля деревне , 115 106 байт

V , 184 170 байт

Пояснення:

/// , 216 байт

LaTeX, 265 268 символів

C # (Visual C # Interactive Compiler) , 220 байт

Japt `-Rx`, 126 116 113 112 111 109 107 байт

Japt `-R` , 142 байти