48

ในขณะที่พยายาม (และล้มเหลว) ชักชวนให้ลูกชายทารกกินอาหารเย็นของฉันฉันพยายามร้องเพลงให้เขา ผ่านกลางเพลงนี้ฉันรู้ว่าโครงสร้าง formulaic อาจให้ยืมตัวเองได้ดีในการตีกอล์ฟ!

ภารกิจคือการเขียนโปรแกรมหรือฟังก์ชั่นที่ไม่รับอินพุตและสร้างข้อความต่อไปนี้:

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

คล้ายกับมีหญิงชรา (ความท้าทายที่คล้ายกันอื่น ๆเช่นนี้ถูกปิดเป็นรายการที่ซ้ำกันแม้ว่าฉันไม่คิดว่าพวกเขาควรจะจำเป็น)

— Jonathan Allan

6

Ho, ro, บึง rattlin, ชะงักลงในหุบเขา -o

— fəˈnɛtɪk

4

สำหรับการเปรียบเทียบ (ไม่ใช่ภาษาการเขียนโปรแกรม) gzip -5บีบอัดมันเป็น 186 ไบต์ ( bzip2และxzดูเหมือนว่าจะแย่ลง)

— Daniel Schepler

2

ขอแสดงความยินดีจากผู้พัฒนาหลักคนอื่น :)

— AJFaraday

1

ฉันต้องการที่จะปรับเพลงนี้เป็น 05AB1E ... "มีช่องใน oh-five-ay-bee-one-ee!"

— Magic Octopus 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

— dzaima
แหล่งที่มา

14

แต่ .... แต่อย่างไร

— SomeShinyObject

8

เหลือเชื่อ อย่างไร

— Austin Burk

1

HNQ นัดอีกครั้ง! : \

— Shaggy

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

เรียกใช้และแก้ไขข้อบกพร่อง

คลายกล่อง ungolfed และแสดงความคิดเห็นว่ามีลักษณะเช่นนี้

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

เรียกใช้อันนี้

— recursive
แหล่งที่มา

2

คุณจะช่วยเพิ่มคำอธิบายได้ไหม? อยากรู้ว่ามันทำงานอย่างไร

— Kevin Cruijssen

ฉันจะ แต่ฉันยังคงรู้สึกว่าวิธีการที่แตกต่างกันโดยสิ้นเชิงจะทำได้ดีกว่า หลังจากฉันประสบความสำเร็จหรือล้มเหลวฉันจะอธิบายสิ่งที่เหลืออยู่

— เรียกซ้ำ

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 ไบต์

— Nahuel Fouilleul
แหล่งที่มา

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 ไบต์

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 ไบต์

Bash, 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 (โหนดบาเบล) 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 ไบต์