48

Trong khi cố gắng (và thất bại) đã thuyết phục con trai sơ sinh của tôi ăn bữa tối của mình, tôi đã thử hát cho nó nghe. Giữa chừng bài hát này tôi nhận ra cấu trúc công thức có thể tự cho mình chơi golf!

Nhiệm vụ là viết một chương trình hoặc chức năng chấp nhận không có đầu vào và tạo ra văn bản sau:

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

Quy tắc thử thách:

Văn bản có thể được in hoặc trả lại dưới dạng đầu ra chức năng
Mỗi câu được phân tách bằng một dòng trống duy nhất
Trailing khoảng trắng là OK miễn là nó không thay đổi bố cục (vì vậy không có khoảng trắng hàng đầu hoặc khoảng trắng thừa giữa các từ)
Trailing newlines cũng OK.
Không có dòng mới hàng đầu.
Tất cả các ngôn ngữ đều được hoan nghênh và đây là môn đánh gôn , vì vậy câu trả lời ngắn nhất tính theo byte cho mỗi ngôn ngữ sẽ thắng!

code-golf kolmogorov-complexity

— Sok
nguồn

6

Tương tự như Có một bà già (những thử thách tương tự khác, ví dụ như điều này đã bị đóng cửa như là bản sao, mặc dù tôi không nghĩ họ nhất thiết phải như vậy.)

— Jonathan Allan

6

Ho, ro, boglin 'bog, bog down in the thung lũng-o.

— fnɛtɪk

4

Để so sánh (mặc dù không phải là ngôn ngữ lập trình) gzip -5nén nó thành 186 byte ( bzip2và xzdường như còn tệ hơn).

— Daniel Schepler

2

Xin chúc mừng, từ một phụ huynh phát triển khác :)

— AJFaraday

1

Tôi muốn chuyển thể bài hát này thành 05AB1E ... "Có một lỗ hổng trong oh-five-ay-bee-one-ee!"

— Bạch tuộc ma thuật Urn

23

SOGL , 103 94 93 byte

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

Hãy thử nó ở đây!

...‘                 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
nguồn

14

Nhưng .... nhưng thế nào?

— Một sốShinyObject

8

Đáng kinh ngạc. Làm thế nào thậm chí--

— Austin Burk

1

HNQ đình công một lần nữa! : \

— Xù xì

4

Bạn có phiền thêm một lời giải thích? Tò mò để xem làm thế nào nó hoạt động.

— Kevin Cruijssen

@KevinCruijssen đã thêm

— dzaima

19

Stax , 90 87 75 byte

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

Chạy và gỡ lỗi nó

Giải nén, không được chỉnh sửa và nhận xét nó trông như thế này.

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

Chạy cái này

— đệ quy
nguồn

2

Bạn có phiền thêm một lời giải thích? Tò mò để xem làm thế nào nó hoạt động.

— Kevin Cruijssen

Tôi sẽ nhưng tôi vẫn có cảm giác rằng một cách tiếp cận hoàn toàn khác sẽ làm tốt hơn. Sau khi tôi thành công hay thất bại, tôi sẽ giải thích mọi thứ còn lại.

— đệ quy

1

@KevinCruijssen: Tôi có cảm giác rằng có một cách tiếp cận tốt hơn nhiều. Chắc chắn, tôi hoàn toàn viết lại nó, và lưu thêm 12 byte phình to. Tôi đã thêm một số lời giải thích là tốt.

— đệ quy

16

Perl 5, 158 154 byte

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

158 byte

— Nahuel Fouilleul
nguồn

5

There's a bottom of the sea. Kiểm tra thực tế, +1

— Jo King

:), cũng có biến thể này bắt đầu từ There's a seanhưng nó còn dài hơn

— Nahuel Fouilleul

13

Python 2 , 202 190 187 185 183 182 181 byte

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

Có một cái lỗ dưới đáy biển

SOGL , 103 94 93 byte

Stax , 90 87 75 byte

Perl 5, 158 154 byte

Python 2 , 202 190 187 185 183 182 181 byte

C (gcc) , 261 246 236 byte

05AB1E , 103 100 99 97 96 93 92 byte

PowerShell , 194 188 185 180 174 byte

JavaScript (ES6), 201 194 189 188 187 byte

JavaScript (ES6), 235 byte

Bash, 168 160 byte

Japt -Rx, 126 116 113 112 111 109 107 byte

XML, 719 673 603 514 493 486 byte

Võng mạc 0.8.2 , 150 byte

R , 237 231 byte

PHP, 180 178 byte

C (gcc) , 334 328 307 299 byte

Perl 6 , 166 byte

Japt -R , 142 byte

Mẻ, 267 byte

Ruby , 173 170 byte

Haskell , 243 215 byte

JavaScript (Nút Babel) , 239 byte

Python 3 , 213 206 198 193 byte

Sạch sẽ , 267 byte

cQuents , 238 219 byte

Giải trình

Perl 5 , 194 byte

Than , 115 106 byte

V , 184 170 byte

Giải trình:

/// , 216 byte

LaTeX, 265 268 ký tự

C # (Trình biên dịch tương tác Visual C #) , 220 byte

Japt `-Rx`, 126 116 113 112 111 109 107 byte

Japt `-R` , 142 byte