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

— Sok
источник

6

Похоже на « Там была старая леди» (другие подобные проблемы, например, это были закрыты как дубликаты, хотя я не думаю, что они обязательно должны.)

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

6

Хо, ро, гремучее болото, болото в долине.

— fəˈnɛt 22:k

4

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

— Даниэль Шеплер

2

Поздравляю, от другого родителя разработчика :)

— AJFaraday

1

Я хочу адаптировать эту песню к 05AB1E ... "В 5-ой-ой-пчел-одной-ее" есть дыра! "

— Волшебная Урна Осьминога

23

СОГЛ , 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

— dzaima
источник

14

Но .... но как?

— SomeShinyMonica

8

Невероятный. Как даже ...

— Остин Берк

1

HNQ бьет снова! : \

— Лохматый

4

Не могли бы вы добавить объяснение? Любопытно посмотреть, как это работает.

— Кевин Круйссен

@KevinCruijssen добавил

— dzaima

19

Stax , 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

— Джо Кинг

:), есть также этот вариант, начиная с, There's a seaно он длиннее

— Науэль Фуий

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

На дне моря дыра

СОГЛ , 103 94 93 байта

Stax , 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 #) , 220 байт

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

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