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 이므로 각 언어에 대한 가장 짧은 바이트 단위 답변이 이깁니다!

code-golf kolmogorov-complexity

— 속여
소스

6

유사에 할머니가 있었다 (다른 유사한 문제는 이것은 예를 들어, 나는 그들이 반드시해야한다고 생각하지는 않지만, 중복으로 폐쇄되어있다.)

— 조나단 앨런

6

Ho, ro, rattlin 'bog, 계곡의 늪지.

— fəˈnɛtɪk

4

비교를 위해 (비록이 아닌 프로그래밍 언어)는 gzip -5186 바이트로 압축 (와 bzip2와 xz더 할 것 같다).

— 다니엘 Schepler

2

다른 개발자의 부모님으로부터 축하드립니다 :)

— AJFaraday

1

이 노래를 05AB1E에 적용하고 싶습니다. "오오오-오-오-일-비-오-이-이에 구멍이 있습니다!"

— 매직 문어 Urn

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

놀랄 만한.

— Austin Burk

1

HNQ가 다시 파업! : \

— 얽히고 설킨

4

설명을 추가 하시겠습니까? 그것이 어떻게 작동하는지 궁금합니다.

— Kevin Cruijssen

@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

설명을 추가 하시겠습니까? 그것이 어떻게 작동하는지 궁금합니다.

— Kevin Cruijssen

그러나 나는 여전히 완전히 다른 접근법이 더 나아질 것이라는 느낌을 가지고 있습니다. 내가 성공하거나 실패한 후에 남은 것은 무엇이든 설명하겠습니다.

— 재귀

1

@ KevinCruijssen : 훨씬 더 나은 접근 방식이 있다는 느낌이 들었습니다. 확실히, 나는 그것을 완전히 다시 쓰고 12 바이트의 추가 팽창을 저장했습니다. 나는 또한 약간의 설명을 추가했다.

— 재귀

16

Perl 5, 158154 바이트

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

파이썬 (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 바이트

Stax , 90 87 75 바이트

Perl 5, 158154 바이트

파이썬 (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 바이트

자바 스크립트 (ES6) 201 194 189 188 187 바이트

자바 스크립트 (ES6), 235 바이트

배쉬, 168160 바이트

JAPT -Rx, 126 116 113 112 111 109 107 바이트

XML, 719 673 603 514 493 486 바이트

레티 나 0.8.2 , 150 바이트

R , 237231 바이트

PHP, 180 178 바이트

C (GCC) , 334 (328) 307 299 바이트

펄 6 , 166 바이트

apt -R , 142 바이트

배치, 267 바이트

루비 , 173170 바이트

하스켈 , 243215 바이트

자바 스크립트 (Babel Node) , 239 바이트

파이썬 (3) , 213 (206) 198 (193) 바이트

클린 , 267 바이트

cQuents , 238 219 바이트

설명

펄 5 , 194 바이트

숯 , 115106 바이트

V , 184 170 바이트

설명:

/// , 216 바이트

유액, 265 268 자

C # (Visual C # Interactive Compiler) , 220 바이트

JAPT `-Rx`, 126 116 113 112 111 109 107 바이트

apt `-R` , 142 바이트