"Bebek Köpekbalığı", köpekbalığı ailesi ile ilgili bir çocuk şarkısıdır. Uzun zamandır kamp ateşi şarkısı olarak popüler olan bu reklam, 2000'li yılların ortasından beri sosyal medya, çevrimiçi video ve radyo ile popüler hale geldi. - Wikipedia

Girdi almayan bir program yazın ve aşağıdaki metni standart çıktıya veya rastgele bir dosyaya yazar:

Baby Shark doo doo doo doo doo doo
Baby Shark doo doo doo doo doo doo
Baby Shark doo doo doo doo doo doo
Baby Shark!
Daddy Shark doo doo doo doo doo doo
Daddy Shark doo doo doo doo doo doo
Daddy Shark doo doo doo doo doo doo
Daddy Shark!
Mommy Shark doo doo doo doo doo doo
Mommy Shark doo doo doo doo doo doo
Mommy Shark doo doo doo doo doo doo
Mommy Shark!
Grandpa Shark doo doo doo doo doo doo
Grandpa Shark doo doo doo doo doo doo
Grandpa Shark doo doo doo doo doo doo
Grandpa Shark!
Grandma Shark doo doo doo doo doo doo
Grandma Shark doo doo doo doo doo doo
Grandma Shark doo doo doo doo doo doo
Grandma Shark!

Bu kod golf - en kısa kod kazanır.

Bunu Reddit ^ 1 ^ 2'de buldum ve golf oynamak için ilginç bir mücadele gibi görünüyor.

Güncellemeler:

Stanzalar arasında yeni bir çizgi yok, bu da onu çok kolaylaştırıyor :)

Önde gelen / takip eden yeni satırlar tamam.

SOGL , 40 bayt

o⅝ηvΒvPΝ┘÷ΖnΨ‘θ{"nOe;‘+ū:" doo”6*+TTPPļ!

Burada dene!

Emojicode, 292 bayt (140 karakter)

🏁🍇🔤Baby🔤➡️b🔤Daddy🔤➡️y🔤Mommy🔤➡️o🔤Grandpa🔤➡️g🔤Grandma🔤➡️a🔤 Shark🔤➡️s🔤 doo🔤➡️d🍨b y o g a🍆➡️f🔂m f🍇🔂i🆕⏩⏩0 3❗️🍇😀🍪m s d d d d d d🍪️❗️🍉😀🍪m s🔤!🔤🍪❗️🍉🍉

Koş

Genişletilmiş:

🏁🍇
  🔤Baby🔤 ➡️ b
  🔤Daddy🔤 ➡️ y
  🔤Mommy🔤 ➡️ o
  🔤Grandpa🔤 ➡️ g
  🔤Grandma🔤 ➡️ a
  🔤 Shark🔤 ➡️ s
  🔤 doo🔤 ➡️ d
  🍨b y o g a🍆➡️f
  🔂m f🍇
    🔂i🆕⏩⏩0 3❗️🍇
      😀🍪m s d d d d d d🍪️❗️
    🍉
    😀🍪m s🔤!🔤🍪❗️
  🍉
🍉

Açıklanan ( Emojicode dokümanı başına ):

🍇🍉

A {ve }(örneğin bir kod bloğu) ile aynı

🏁

"Program başlangıcı" (örneğin int main())

🔤Baby🔤 ➡️ b

Değişken atama (örneğin const char* b = "Baby";)

🍨b y o g a🍆➡️f

Diyelim ki between ve 🍆 arasında bir değerler listesi oluşturun ve (➡️) 'a f(örneğin const char* f[] = {b,y,o,g,a};) ata

🔂m f🍇 ... 🍉

Bu çizgi öğeler boyunca döngü diyor ftakma adını kullanarak m, ...🍇 ve 🍉 arasındaki kodudur.

🔂 i 🆕⏩⏩ 0 3❗️🍇 ... 🍉

Bu satır ..., 0, ve 🍉 arasındaki kodun olduğu [0,3) aralığında dönmeye devam ettiğini söylüyor .

😀🍪 ... 🍪️❗️

Bu satır, ...(örn. printf("%s\n");) 'De belirtilen formatta yazdırılacağını söylüyor.

C'ye çevrilmiş kod:

#include <stdio.h>

int main() {
  const char* b = "Baby";
  const char* y = "Daddy";
  const char* o = "Mommy";
  const char* g = "Grandpa";
  const char* a = "Grandma";
  const char* s = " Shark";
  const char* d = " doo";
  const char* f[] = {b,y,o,g,a};
  int m = 0, i = 0;
  for (; m < 5; ++m) {
    for (i = 0; i < 3; ++i) {
      printf("%s%s%s%s%s%s%s%s\n", f[m], s, d, d, d, d, d, d);
    }
    printf("%s%s!\n", f[m], s);
  }
  return 0;
}

Bunu takiben, asıl kodun (gelecek için aşağıya gönderildi) bazı sorunları vardı; çoğunlukla 🏁🍇🍉 bloğunu çalıştırmak isteyenler için dahil edilmedi ve emoji'ler aslında doğru bir şekilde kaçamadılardı, işte bu kodun asıl çalışan versiyonu:

Orijinal çalışması için değiştirildi: Emojicode, 224 bytes (67 karakter)

🏁🍇🍨🔤👶🔤🔤👨🔤🔤🤱🔤🔤👴🔤🔤👵🔤🍆➡️f🔂m f🍇🔂i🆕⏩⏩0 3❗️🍇😀🍪m🔤🦈💩💩💩💩💩💩🔤🍪️❗️🍉😀🍪m🔤🦈!🔤🍪❗️🍉🍉

Genişletilmiş:

🏁🍇
  🍨
    🔤👶🔤
    🔤👨🔤
    🔤🤱🔤
    🔤👴🔤
    🔤👵🔤
  🍆 ➡️ f
  🔂 m f 🍇
    🔂 i 🆕⏩⏩ 0 3❗️🍇
      😀🍪m🔤🦈💩💩💩💩💩💩🔤🍪️❗️
    🍉
    😀🍪m🔤🦈!🔤🍪❗️
  🍉
🍉

Hangi çıktıyı üretir:

👶🦈💩💩💩💩💩💩
👶🦈💩💩💩💩💩💩
👶🦈💩💩💩💩💩💩
👶🦈!
👨🦈💩💩💩💩💩💩
👨🦈💩💩💩💩💩💩
👨🦈💩💩💩💩💩💩
👨🦈!
🤱🦈💩💩💩💩💩💩
🤱🦈💩💩💩💩💩💩
🤱🦈💩💩💩💩💩💩
🤱🦈!
👴🦈💩💩💩💩💩💩
👴🦈💩💩💩💩💩💩
👴🦈💩💩💩💩💩💩
👴🦈!
👵🦈💩💩💩💩💩💩
👵🦈💩💩💩💩💩💩
👵🦈💩💩💩💩💩💩
👵🦈!

Koş

Bireysel emojilerin kelimeleri temsil ettiği yerde:

👶 -> Baby
👨 -> Daddy
🤱 -> Mommy
👴 -> Grandpa
👵 -> Grandma
🦈 -> Shark
💩 -> doo

Orijinal: Emojicode, 138 bayt (47 karakter)

🍨👶👨🤱👴👵🍆➡️f🔂m f🍇🔂i🆕⏩⏩0 3❗️🍇😀m🦈💩💩💩💩💩💩❗️🍉😀m🦈!❗️🍉

Genişletilmiş:

🍨👶👨🤱👴👵🍆➡️f
🔂m f🍇
  🔂 i 🆕⏩⏩ 0 3❗️🍇
    😀 m 🦈💩💩💩💩💩💩❗️
  🍉
  😀 m 🦈!❗️
🍉

IBM PC DOS, 8088 derlemesi, 115 114 109 108 bayt

bd43 01e8 1600 bd48 01e8 1000 bd4e 01e8 0a00 bd54 01e8 0400 c646 056d b409 b103
8bd5 cd21 ba5c 01cd 21e3 1249 b306 ba63 01cd 214b 75fb ba69 01cd 21eb e3ba 6801
cd21 c342 6162 7924 4461 6464 7924 4d6f 6d6d 7924 4772 616e 6470 6124 2053 6861
726b 2420 646f 6f24 210d 0a24

unassembled:

    MOV  BP, OFFSET BABY        ; Baby Shark
    CALL VERSE
    MOV  BP, OFFSET DADDY       ; Daddy Shark
    CALL VERSE
    MOV  BP, OFFSET MOMMY       ; Mommy Shark
    CALL VERSE
    MOV  BP, OFFSET GRAND       ; Grandpa/ma Shark
    CALL VERSE
    MOV  BYTE PTR [BP+5], 'm'   ; change 'p' to 'm'                 
                                ; fall through for last VERSE                               

; display a shark verse
; input: BP: address of shark name string
; output: display full verse for shark
VERSE   PROC
        MOV  AH, 9              ; DOS API display string function
        MOV  CL, 3              ; loop verse three times
LOOP_VERSE:
        MOV  DX, BP             ; load shark name from BP
        INT  21H                ; display shark name
        MOV  DX, OFFSET SHARK   ; load 'Shark'
        INT  21H                ; display 'Shark'
        JCXZ LAST_VERSE         ; if last verse, skip to !
        DEC  CX                 ; decrement verse count
        MOV  BL, 6              ; loop 'doo' 6 times
        MOV  DX, OFFSET DOO     ; load 'doo' string
LOOP_DOO:
        INT  21H                ; display 'doo'
        DEC  BX                 ; decrement doo count
        JNZ  LOOP_DOO           ; if not zero, start again
        MOV  DX, OFFSET CRLF    ; load CRLF string
        INT  21H                ; display CRLF
        JMP  LOOP_VERSE
LAST_VERSE:
        MOV  DX, OFFSET BANG    ; display !, CRLF
        INT  21H
        RET
VERSE   ENDP

BABY    DB  'Baby$'
DADDY   DB  'Daddy$'
MOMMY   DB  'Mommy$'
GRAND   DB  'Grand'
PA      DB  'pa$'
SHARK   DB  ' Shark$'
DOO     DB  ' doo$'
BANG    DB  '!'
CRLF    DB  0DH,0AH,'$'

Çıktı

SHARK.COM'u indirin!

• @Deadcode sayesinde -5 bayt

Python 2 , 93 bayt

for w in"Baby Daddy Mommy Grandpa Grandma".split():w+=" Shark";print(w+" doo"*6+"\n")*3+w+"!"

Çevrimiçi deneyin!

94 bayt

for w in"Baby Daddy Mommy Grandpa Grandma".split():print((" doo"*6+"\n%s Shark"%w)*4)[25:]+"!"

Çevrimiçi deneyin!

05AB1E , 50 41 bayt

“‡ÍÊТ×myîºpaîºma“#ð«'㢫™v…doo6иyšÐy'!«»

Son kısım v4FN3Qiy'!«ë…doo6иyšðý},kesinlikle biraz golf oynayabilir .. Ve haklıydım, @Emigna sayesinde -9 bayt (beklediğimden bile fazla).

Çevrimiçi deneyin.

Açıklama:

“‡ÍÊТ×myîºpaîºma“ # Push dictionary string "baby daddy mommy grandpa grandma"
 #                 # Split by spaces: ["baby","daddy","mommy","grandpa","grandma"]
  ð«               # Append a space to each
    '㢫          '# Append dictionary string "shark" to each
        ™          # Title-case each word
v                  # Loop `y` over these strings
 …doo              #  Push string "doo"
     6и            #  Repeat it 6 times as list
       yš          #  Prepend the string `y` at the front of the list
         Ð         #  Triplicate this list
 y'!«             '#  Push string `y`, concatted with a "!"
 »                 #  Join everything on the stack by newlines
                   #  (and each list implicitly by spaces)
                   # (and after the loop, output the result implicitly)

Benim bu 05AB1E ucu bakın (bölüm nasıl sözlüğü kullanılır? ) Anlamak için “‡ÍÊТ×myîºpaîºma“ise "baby daddy mommy grandpa grandma"ve 'ã¢olup "shark".

PowerShell, 88 86 85 80 79 76 bayt

@AdzyBorkBork sayesinde @mazzy
-1 bayt sayesinde @Joey
-3 bayt sayesinde -5 bayt

echo Baby Daddy Mommy Grandpa Grandma|%{,(($a="$_ Shark")+" doo"*6)*3;"$a!"}

Çevrimiçi deneyin!

Kesinlikle çok yol kat ettik.

PowerShell (Metinden Konuşmaya), 156 bayt

Bu spesifik değil, ama biraz eğlenceli. Fikir için @ rkeet'e teşekkürler!

Add-Type -a System.Speech;echo Baby Daddy Mommy Grandpa Grandma|%{(New-Object Speech.Synthesis.SpeechSynthesizer).Speak((($a="$_ Shark")+" doo"*6)*3+" $a")}

.NET Konuşma telaffuz metni ... şey ... ilginç. Dinlerken bunu aklınızda bulundurun. Keyfini çıkarın!

Java (JDK) , 135 bayt

v->{for(var s:"Baby Daddy Mommy Grandpa Grandma".split(" "))System.out.println(((s+=" Shark")+" doo".repeat(6)+"\n").repeat(3)+s+"!");}

Çevrimiçi deneyin!

Retina 0.8.2 , 77 75 74 bayt

Baby¶Daddy¶MommyGpaGma
G
¶Grand
.+
$&s$&s$&s$&S!
s
S6$*O¶
O
 doo
S
 Shark

Çevrimiçi deneyin! Açıklama:

Baby¶Daddy¶MommyGpaGma
G
¶Grand

İlişkileri ayrı satırlara yerleştirin.

.+
$&s$&s$&s$&S!¶

Dört satıra genişletin.

s
S6$*O¶
O
 doo
S
 Shark

Yer tutucuları genişletin.

Retina 1'de 69 68 bayt :

Baby¶Daddy¶MommyGpaGma
G
¶Grand
.+
$& Shark
.+
3*$($&6*$( doo)¶)$&!

Çevrimiçi deneyin! Açıklama:

Baby¶Daddy¶MommyGpaGma
G
¶Grand

İlişkileri ayrı satırlara yerleştirin.

.+
$& Shark

Her birine Köpekbalığı ekleyin.

.+
3*$($&6*$( doo)¶)$&!

Bütün ayetler içine genişletin.

Python 3, 105 97 96 bayt

for x in"Baby","Daddy","Mommy","Grandpa","Grandma":z=x+' Shark';print((z+' doo'*6+"\n")*3+z+"!")

Çevrimiçi deneyin!

Basit bir Python 3 çözümü. (Jo King ve Quintec tarafından kaydedilen 9 bayt)

Haskell , 122 113 108 106 104 bayt

s=" Shark";m=do x<-words"Baby Daddy Mommy Grandpa Grandma";("aaa">>x++s++(s>>" doo")++"\n")++x++s++"!\n"

Çevrimiçi deneyin!

• "aaa">>xuzunluğu 3 xolduğu gibi 3 kez çoğalır "aaa".

• s>>" doo"uzunluğu 6 " doo"olduğu gibi 6 kez çoğaltır " Shark"!

• @Fox sayesinde 2 bayt kaydedildi

• @Laikoni sayesinde 2 bayt kaydedildi

Perl 6 , 79 78 bayt

(<Baby Daddy Mommmy Grandpa Grandma>X~" Shark"X~ |((" doo"x 6)xx 3),'!')>>.say

Çevrimiçi deneyin!

Oldukça basit.

Açıklama:

 <...>X~                                  # Combine family members
        " Shark"X~                        # With "Shark" and
                   |((" doo"x 6)xx 3)     # doo repeated 6 times then 3 times
                                     ,'!' # Then !
(                                        )>>.say  # And print each line

JavaScript, 104 bayt

İzlenecek daha fazla golf.

_=>`Baby
Daddy
Mommy
Grandpa
Grandma`.replace(/.+/g,x=>(s=(x+=` Shark`)+` doo`.repeat(6)+`
`)+s+s+x+`!`)

Çevrimiçi Deneyin!

bash, 78 bayt

printf %s\\n {Baby,Daddy,Mommy,Grand{p,m}a}\ Shark{" `echo doo{,,}{,}`"{,,},!}

TIO

İzleyen alana izin verilirse 73 bayt

echo '
'{Baby,Daddy,Mommy,Grand{p,m}a}\ Shark{" `echo doo{,,}{,}`"{,,},!}

/// , 124 bayt

/*/$!
//)/Grand//(/Baby//'/Mommy//&/Daddy//%/ doo//$/ Shark//#/a")//"/$%%%%%%
/("("("(*&"&"&"&*'"'"'"'*)p#p#p#pa*)m#m#m#ma$!

Çevrimiçi deneyin!

> <> , 158 115 bayt

Jo King sayesinde çok sayıda bayt kurtarıldı

>4>1-&0'krahS '0l3-.
~ ^oa~<
ooo:?!/1-'ood 'o
\ao'!'^?$6:&~
\!?:o
^'ybaB'
^'yddaD'
^'ymmoM'
^'apdnarG'
^'amdnarG'
;

Çevrimiçi deneyin! Aşağıdaki adreste kodu yapıştırın isteyebilirsiniz fishlanguage.com bunu animasyonunu görebilirsiniz yüzme çalışan.

PostgreSQL, 162 156 138 bayt

select a||' Shark'||replace(b,'1',repeat(' doo',6))from unnest('{Baby,Daddy,Mommy,Grandpa,Grandma}'::text[])a,unnest('{1,1,1,!}'::text[])b

Ungolfed

select 
    a || ' Shark' || replace(b,'1',repeat(' doo',6))
from unnest('{Baby,Daddy,Mommy,Grandpa,Grandma}'::text[]) a
    ,unnest('{1,1,1,!}'::text[]) b

Sayesinde 6 24 bayt kaydedildi @Nahuel Fouilleul!

• ||yerine kullanmakconcat()
• unnest('{foo,bar}'::text[])yerine kullanmakregexp_split_to_table('foo,bar')

DB <> keman

Haskell , 97 bayt

unlines[x++s++p|x<-words"Baby Daddy Mommy Grandpa Grandma",p<-[a,a,a,"!"]]
s=" Shark"
a=s>>" doo"

Çevrimiçi deneyin!

Bu Haskell çözümünün starsandspirals tarafından optimizasyonu . Yeni numara, her stanza'nın sıralarını bir iç döngü ile yinelemektir ve kullanarak satırları birleştirerek unlinesaçıkça yeni satırlar eklemeye gerek kalmadan tasarruf etmektir.

Dört satır ekleri olan [a,a,a,"!"]yerde, abir " doo"ile 6 defa tekrarlanır a=s>>" doo"starsandspirals akıllıca altı karakterli boyu yeniden kullanır burada, s=" Shark". Yazma [a,a,a,...]biraz saçma görünüyor, ama daha kısa bir yol göremiyorum.

Bir liste monad sürümü aynı uzunluktadır, ancak güzel görünüyor.

unlines$(++).(++s)<$>words"Baby Daddy Mommy Grandpa Grandma"<*>[a,a,a,"!"]
s=" Shark"
a=s>>" doo"

Çevrimiçi deneyin!

Ruby , 82 bayt

%w(Baby Daddy Mommy Grandpa Grandma).map{|a|puts [a+" Shark"]*4*(" doo"*6+?\n)+?!}

Çevrimiçi deneyin!

R , 131 122 120 bayt

Giuseppe sayesinde -9 bayt

-2 bayt daha, ayrıca Giuseppe

`?`=c
s="Shark"
for(x in "Baby"?"Daddy"?"Mommy"?"Grandpa"?"Grandma")cat(rep("
"?x?s?rep("doo",6),3)?"
"?x?paste0(s,"!"))

Çevrimiçi deneyin!

Bununla gerçekten gurur duyuyorum, özellikle de R'nin iplerle başa çıkmada oldukça fakir olması. Kullanmaya başladım cat(sapply(...)), ancak bir for byte tıraşının birkaç bayttan oluştuğunu fark ettim.

Kötüye kullanılması, "?"=cgerekli parantez miktarını önemli ölçüde azaltmıştır.

Ayrıca "*"=rep, stanzaların ve "doos" un bireysel çizgilerini tekrarlamaya çalıştım , ama bu baytları tıraş etmedi.

111 bayt

Giuseppe ve ASCII-only'ın bazı aralıklandırma sorunlarını gideren alternatif, (ve daha iyi) çözümü.

write(paste0(rep(c("Baby","Daddy","Mommy","Grandpa","Grandma"),,,4)," Shark",c(rep(strrep(" doo",6),3),"!")),1)

Çevrimiçi deneyin!

PHP, 104 bayt

foreach([Baby,Daddy,Mommy,Grandpa,Grandma]as$s)echo$t=$s.str_pad($u=" Shark",30," doo"),"
$t
$t
$s$u!
";

Çevrimiçi olarak çalıştırın php -nr '<code>'veya deneyin .

C # (Visual C # Etkileşimli Derleyici) , 153 131 bayt

foreach(var i in"Baby Daddy Mommy Grandpa Grandma".Split()){var a=i+" Shark doo doo doo doo doo doo\n";Write(a+a+a+i+" Shark!\n");}

30 byte tasarruf için @Destrogio teşekkürler!

Çevrimiçi deneyin!

R , 126 125 bayt

cat(paste(rep(c("Baby","Daddy","Mommy","Grandpa","Grandma"),,,4),c(rep("Shark doo doo doo doo doo doo",3),"Shark!")),sep="
")

Bu, CT Hall ya da Sumner18'in cevapları kadar 'zeki' hissetmez , ancak değişkenleri tanımlamanın ek yükünden kaçınarak küçük hale gelir.

Çevrimiçi deneyin!

Düzenleme: Jonathan Frech yorumuna göre satır başı kullanarak 1 bayt kaydedildi

R , 139 138 137 bayt

s='Shark';d='doo';cat(paste(rep(c('Baby','Daddy','Mommy','Grandpa','Grandma'),e=4),c(rep(paste(s,d,d,d,d,d,d),3),paste0(s,'!'))),sep='
')

Muhtemelen yapılacak doo yapmanın daha iyi bir yolu var, ama alamadım.

Düzenleme:
'\ n', JDL'nin önerisindeki yeni satırla değiştirildi;
Giuseppe'nin önerisinde kaldırılan son satır kaldırıldı.

Çevrimiçi deneyin

ne zaman kazara ölürsünol 100endorsementsinnationstates - 123,065 121,716 113,695 100,889 98,554 bayt

Program

Bunu sonra golf oynarım. Bitti.

Bunu daha sonra golf oynayacağım (daha sonra) Yapıldı.

Bunu daha sonra golf oynayacağım. YAPILAN.

Bayt sayısını 5 basamağa getireceğim. YUPPİ.

Bayt sayısını 4 basamağa alacağım (bunun mümkün olup olmadığını bilmiyorum, ancak şu anki yaklaşımımla 3 basamak almanın imkansız olduğunu biliyorum).

C (gcc) , 123 122 bayt

Ceilingcat sayesinde -1 bayt

#define A" doo doo"
f(i){for(i=20;i--;)printf("%.7s Shark%s\n","GrandmaGrandpaMommy\0 Daddy\0 Baby"+i/4*7,i%4?A A A:"!");}

Çevrimiçi deneyin!

cQuents , 93 89 bayt

|
#20&bk)~" Shark"~(" doo"6,Z,Z,bk)~" Shark!"
:"Baby","Daddy","Mommy","Grandpa","Grandma"

Çevrimiçi deneyin!

TIO gönderimden itibaren en son sürüme güncellenmediğinden, TIO bağlantısının çalışmayabileceğini unutmayın.

açıklama

|                               Set delimiter to newline
#20                             n = 20
   &                            Output first n terms in sequence
                                k = 1
                                First term is
    bk)~" Shark"                 kth term from the third line concatenated to " Shark"
                ~(" doo"6,        concatenated to " doo" repeated 6 times
Z,Z,                            Second and third terms equal the first term
    bk)~" Shark!"               Fourth term is the kth term from the third line concatenated to " Shark!"
                                k += 1, restart

Third line                      5 terms, each a string

JavaScript (Node.js) , 132 bayt

Muhtemelen çok golf yapabiliyor. "Doo doo" satırını oluşturur, daha sonra "!" İle üç tanesini oluşturur. sonra satır ve her köpekbalığı için bunu tekrarlar.

a=""
c=" doo"
for(b of["Baby","Daddy","Mommy","Grandpa","Grandma"]){b+=" Shark"
t=b+c+c+c+c+c+c+"\n"
a+=t+t+t+b+"!\n"}console.log(a)

Çevrimiçi deneyin!

jq, 87 karakter

" Shark"as$s|("Baby Daddy Mommy Grandpa Grandma"/" ")[]|(.+$s+" doo"*6+"\n")*3+.+$s+"!"

Örnek çalışma:

bash-4.4$ jq -nr '" Shark"as$s|("Baby Daddy Mommy Grandpa Grandma"/" ")[]|(.+$s+" doo"*6+"\n")*3+.+$s+"!"'
Baby Shark doo doo doo doo doo doo
Baby Shark doo doo doo doo doo doo
Baby Shark doo doo doo doo doo doo
Baby Shark!
Daddy Shark doo doo doo doo doo doo
Daddy Shark doo doo doo doo doo doo
Daddy Shark doo doo doo doo doo doo
Daddy Shark!
Mommy Shark doo doo doo doo doo doo
Mommy Shark doo doo doo doo doo doo
Mommy Shark doo doo doo doo doo doo
Mommy Shark!
Grandpa Shark doo doo doo doo doo doo
Grandpa Shark doo doo doo doo doo doo
Grandpa Shark doo doo doo doo doo doo
Grandpa Shark!
Grandma Shark doo doo doo doo doo doo
Grandma Shark doo doo doo doo doo doo
Grandma Shark doo doo doo doo doo doo
Grandma Shark!

Çevrimiçi deneyin!

Düz TeX, 147 Bayt

\input pgffor\def\D{doo~}\def\d{\D\D\D\D\D\D}\def\S{Shark}\def\y{\x~\S~\d\par}\foreach\x in{Baby,Mommy,Daddy,Grandma,Grandpa}{\y\y\y\x~\S!\par}\bye

Oldukça hayal kırıklığı yaratıyor, ancak çok uzun zamandır bir TeX mesajı göndermedim. Döngüler teX'te çok ayrıntılıdır (ve dizgelerin üzerinden döngü bile yerleşik değildir, bu yüzden bu biraz gergindir)

PHP , 153 147 bayt

<?php $s='Shark';$d=str_pad('',23,'doo ');foreach(explode(' ','Baby Daddy Mommy Grandpa Grandma')as$a){echo str_repeat("$a $s $d\n",3),"$a $s!\n";}

6 bayt tasarruf için @manatwork teşekkürler işaret ederek str_pad('',23'doo ');kısartrim(str_repeat('doo ',6));

Çevrimiçi deneyin!