48

Sementara berusaha (dan gagal) telah membujuk putra bayi saya untuk makan malam, saya mencoba menyanyi untuknya. Pertengahan jalan melalui lagu ini saya menyadari struktur formula mungkin cocok untuk kode golf!

Tugasnya adalah menulis program atau fungsi yang tidak menerima input dan menghasilkan teks berikut:

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

Aturan tantangan:

Teks dapat dicetak atau dikembalikan sebagai keluaran fungsi
Setiap ayat dipisahkan oleh satu baris kosong
Trailing whitespace OK selama tidak mengubah tata letak (jadi tidak ada spasi putih terkemuka atau spasi ekstra di antara kata-kata)
Mengejar baris baru juga OK.
Tidak ada baris baru.
Semua bahasa disambut, dan ini adalah kode-golf , jadi jawaban terpendek dalam byte untuk setiap bahasa menang!

code-golf kolmogorov-complexity

— Sok
sumber

6

Mirip dengan There Was Old Lady (tantangan serupa lainnya misalnya ini telah ditutup sebagai duplikat, meskipun saya pikir mereka tidak seharusnya melakukannya.)

— Jonathan Allan

6

Ho, ro, rattlin 'rog, rawa di lembah-o.

— fəˈnɛtɪk

4

Sebagai perbandingan (meskipun bukan bahasa pemrograman) gzip -5kompres ke 186 byte (dan bzip2dan xztampaknya lebih buruk).

— Daniel Schepler

2

Selamat, dari induk pengembang lain :)

— AJFaraday

1

Saya ingin mengadaptasi lagu ini menjadi 05AB1E ... "Ada lubang di oh-five-ay-bee-one-ee!"

— Guci Gurita Ajaib

23

SOGL , 103 94 93 byte

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

Coba di sini!

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

14

Tapi .... tapi bagaimana caranya?

— SomeShinyObject

8

Luar biasa. How even--

— Austin Burk

1

HNQ menyerang lagi! : \

— Shaggy

4

Maukah Anda menambahkan penjelasan? Penasaran ingin melihat cara kerjanya.

— Kevin Cruijssen

@KevinCruijssen menambahkan

— dzaima

19

Stax , 90 87 75 byte

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

Jalankan dan debug itu

Membongkar, tidak diserang, dan berkomentar sepertinya ini.

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

Jalankan yang ini

— rekursif
sumber

2

Maukah Anda menambahkan penjelasan? Penasaran ingin melihat cara kerjanya.

— Kevin Cruijssen

Saya akan tetapi saya masih merasa bahwa pendekatan yang sama sekali berbeda akan lebih baik. Setelah saya berhasil atau gagal dalam hal itu saya akan menjelaskan apa yang tersisa.

— Rekursif

1

@KevinCruijssen: Saya merasa ada pendekatan yang jauh lebih baik. Benar saja, saya benar-benar menulis ulang, dan menyelamatkan 12 byte dari mengasapi. Saya menambahkan beberapa penjelasan juga.

— Rekursif

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
sumber

5

There's a bottom of the sea. Fakta-fakta memeriksa, +1

— Jo King

:), ada juga variasi ini dimulai dengan There's a seatetapi lebih lama

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

Ada lubang di dasar laut

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

Retina 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

Batch, 267 byte

Ruby , 173 170 byte

Haskell , 243 215 byte

JavaScript (Babel Node) , 239 byte

Python 3 , 213 206 198 193 byte

Bersih , 267 byte

cQuents , 238 219 byte

Penjelasan

Perl 5 , 194 byte

Arang , 115 106 byte

V , 184 170 byte

Penjelasan:

/// , 216 byte

LaTeX, 265 268 karakter

C # (Visual C # Interactive Compiler) , 220 byte

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

Japt `-R` , 142 byte