48

Denemek (ve başarısız olmak) küçük oğlumu akşam yemeğini yemeye ikna ederken, ben de ona şarkı söylemeye çalıştım. Bu şarkının tam ortasındaki formül yapısının golf oynamak için iyi bir ödünç verebileceğini fark ettim!

Görev, girdi kabul etmeyen ve aşağıdaki metni üreten bir program veya işlev yazmaktır:

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

Meydan okuma kuralları:

Metin, işlev çıktısı olarak yazdırılabilir veya döndürülebilir
Her ayet tek bir boş satırla ayrılır
İzleyen boşluk boşluğu, mizanpajı değiştirmediği sürece tamamdır (yani baştaki boşluk veya kelimeler arasında boşluk olmaz)
İzleyen yeni satırlar da sorun değil.
Baştaki yeni hat yok.
Tüm diller memnuniyetle karşılanır ve bu kod golftur , bu nedenle her dil için bayt cinsinden en kısa cevap kazanır!

code-golf kolmogorov-complexity

— Sok
kaynak

6

Benzer için bir yaşlı kadın oldu (diğer benzer sorunlar bu eg ı mutlaka gerektiği sanmıyorum rağmen, birbirinin aynısı gibi kapatıldı.)

— Jonathan Allan

6

Ho, ro, çıngıraklı bataklık, vadideki bataklık.

— f Jannɛtɪk

4

Karşılaştırma için (gerçi değil bir programlama dili) gzip -5186 bayt sıkıştırır (ve bzip2ve xzdaha kötü yapmak gibi).

— Daniel Schepler,

2

Tebrikler, başka bir geliştirici

— üstünden

1

Bu şarkıyı 05AB1E'ye uyarlamak istiyorum ... "oh-five-ay-bee-one-ee'de bir delik var!"

— Magic Octopus Urn

23

SOGL , 103 94 93 bayt

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

Burada dene!

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

14

Ama .... ama nasıl?

— SomeShinyObject

8

İnanılmaz. Nasıl olsa--

— Austin Burk,

1

HNQ tekrar grev! : \

— Shaggy

4

Bir açıklama ekler misiniz? Nasıl çalıştığını görmek için merak ediyorum.

— Kevin Cruijssen

@KevinCruijssen eklendi

— dzaima

19

Stax , 90 87 75 bayt

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

Koş ve hata ayıkla

Unpacked, unungolfed ve yorumuna benzer.

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

Bunu çalıştır

— özyinelemeli
kaynak

2

Bir açıklama ekler misiniz? Nasıl çalıştığını görmek için merak ediyorum.

— Kevin Cruijssen

Yapacağım ama hala tamamen farklı bir yaklaşımın daha iyi olacağı hissine sahibim. Başarılı veya başarısız olduktan sonra geriye kalanları açıklayacağım.

— yinelemeli

1

@KevinCruijssen: Çok daha iyi bir yaklaşım olduğunu hissediyorum. Tabii ki, tamamen yeniden yazdım ve 12 baytlık bir damla daha su biriktirdim. Ben de bazı açıklamalar ekledim.

— özyinelemeli

16

Perl 5, 158 154 bayt

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

158 bayt

— Nahuel Fouilleul
kaynak

5

There's a bottom of the sea. Gerçekler kontrol +1

— Jo King

:), bununla başlayan bir varyasyon da var There's a seaama daha uzun

— Nahuel Fouilleul

13

Python 2 , 202 190 187 185 183 182 181 bayt

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

Denizin dibinde bir delik var.

SOGL , 103 94 93 bayt

Stax , 90 87 75 bayt

Perl 5, 158 154 bayt

Python 2 , 202 190 187 185 183 182 181 bayt

C (gcc) , 261 246 236 bayt

05AB1E , 103 100 99 97 96 93 92 bayt

PowerShell , 194 188 185 180 174 bayt

JavaScript (ES6), 201 194 189 188 187 bayt

JavaScript (ES6), 235 bayt

Bash, 168 160 bayt

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

XML, 719 673 603 514 493 486 bayt

Retina 0.8.2 , 150 bayt

R , 237 231 bayt

PHP, 180 178 bayt

C (gcc) , 334 328 307 299 bayt

Perl 6 , 166 bayt

Japt -R , 142 bayt

Toplu iş, 267 bayt

Ruby , 173 170 bayt

Haskell , 243 215 bayt

JavaScript (Babel Düğümü) , 239 bayt

Python 3 , 213 206 198 193 bayt

Temiz , 267 bayt

cQuents , 238 219 bayt

açıklama

Perl 5 , 194 bayt

Kömür , 115 106 bayt

V , 184 170 bayt

Açıklama:

/// , 216 bayt

LaTeX, 265 268 karakter

C # (Visual C # Etkileşimli Derleyici) , 220 bayt

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

Japt `-R` , 142 bayt