„Baby Shark” to piosenka dla dzieci o rodzinie rekinów. Od dawna popularna jako piosenka przy ognisku, została spopularyzowana od połowy 2000 roku przez media społecznościowe, wideo online i radio. - Wikipedia

Napisz program, który nie przyjmuje danych wejściowych i zapisuje następujący tekst na standardowym wyjściu lub w dowolnym pliku:

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!

To jest kod golfowy - wygrywa najkrótszy kod.

Znalazłem to na Reddit ^ 1 ^ 2 i wydaje się to ciekawym wyzwaniem dla golfa.

Aktualizacje:

Brak nowego wiersza między zwrotkami, co sprawia, że ​​jest to zbyt łatwe :)

Wiodące / końcowe znaki nowej linii są w porządku.

SOGL , 40 bajtów

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

Wypróbuj tutaj!

Emojicode, 292 bajtów (140 znaków)

🏁🍇🔤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🔤!🔤🍪❗️🍉🍉

Uruchom

Rozszerzony:

🏁🍇
  🔤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🔤!🔤🍪❗️
  🍉
🍉

Wyjaśnione (zgodnie z dokumentem Emojicode ):

🍇🍉

To samo co a {i }(np. Blok kodu)

🏁

„Uruchomienie programu” (np. int main())

🔤Baby🔤 ➡️ b

Zmienne przypisanie (np. const char* b = "Baby";)

🍨b y o g a🍆➡️f

Mówi, stwórz listę wartości między 🍨 i 🍆 i przypisz (➡️) do f(np. const char* f[] = {b,y,o,g,a};)

🔂m f🍇 ... 🍉

Ta linia mówi o zapętleniu elementów przy fużyciu aliasu m, gdzie ...jest kodem między 🍇 a 🍉.

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

Ta linia mówi, że ...zapętla się w zakresie [0,3), gdzie jest kodem między 🍇 i 🍉.

😀🍪 ... 🍪️❗️

Ta linia mówi, aby wydrukować format określony w ...(np. printf("%s\n");)

Kod przetłumaczony na C:

#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;
}

Następnie oryginalny kod (zamieszczony poniżej dla potomności) miał pewne problemy; przede wszystkim, że blok 🏁🍇🍉 nie został uwzględniony dla tych, którzy chcą go uruchomić, a emoji nie zostały właściwie usunięte, oto faktyczna działająca wersja tego kodu:

Oryginał zmodyfikowany do uruchomienia: Emojicode, 224 bajty (67 znaków)

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

Rozszerzony:

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

Co daje wynik:

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

Uruchom

Gdzie w tobie są poszczególne emoji reprezentujące słowa:

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

Oryginał: Emojicode, 138 bajtów (47 znaków)

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

Rozszerzony:

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

IBM PC DOS, zestaw 8088, 115 114 109 108 bajtów

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

Niezmontowane:

    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,'$'

Wynik

Pobierz SHARK.COM!

• -5 bajtów dzięki @Deadcode

Python 2 , 93 bajty

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

Wypróbuj online!

94 bajty

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

Wypróbuj online!

05AB1E , 50 41 bajtów

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

Ostatnią część v4FN3Qiy'!«ë…doo6иyšðý},można zdecydowanie trochę pograć w golfa. I miałem rację, -9 bajtów dzięki @Emigna (nawet więcej, niż się spodziewałem).

Wypróbuj online.

Wyjaśnienie:

“‡ÍÊТ×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)

Zobacz moją wskazówkę 05AB1E (sekcja Jak korzystać ze słownika? ), Aby zrozumieć, dlaczego “‡ÍÊТ×myîºpaîºma“jest "baby daddy mommy grandpa grandma"i 'ã¢jest "shark".

PowerShell, 88 86 85 80 79 76 bajtów

-5 bajtów dzięki @mazzy
-1 bajt dzięki @Joey
-3 bajty dzięki @AdmBorkBork

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

Wypróbuj online!

Z pewnością przeszliśmy długą drogę.

PowerShell (z zamianą tekstu na mowę), 156 bajtów

NIE jest to zgodne ze specyfikacją, ale jest trochę zabawne. Dzięki @rkeet za pomysł!

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

.NET Wymowa na mowę jest ... cóż ... interesująca. Pamiętaj o tym podczas słuchania. Cieszyć się!

Java (JDK) , 135 bajtów

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

Wypróbuj online!

Retina 0.8.2 , 77 75 74 bajtów

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

Wypróbuj online! Wyjaśnienie:

Baby¶Daddy¶MommyGpaGma
G
¶Grand

Wstaw relacje w osobnych wierszach.

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

Rozwiń na cztery linie.

s
S6$*O¶
O
 doo
S
 Shark

Rozwiń symbole zastępcze.

69 68 bajtów w Retina 1:

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

Wypróbuj online! Wyjaśnienie:

Baby¶Daddy¶MommyGpaGma
G
¶Grand

Wstaw relacje w osobnych wierszach.

.+
$& Shark

Dołącz Shark do każdego.

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

Rozwiń całe wersety.

Python 3, 105 97 96 bajtów

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

Wypróbuj online!

Proste rozwiązanie Python 3. (9 bajtów zapisanych przez Jo King i Quintec)

Haskell , 122 113 108 106 104 bajtów

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

Wypróbuj online!

• "aaa">>xpowiela się x3 razy, podobnie jak "aaa"ma długość 3.

• s>>" doo"powiela się " doo"6 razy, podobnie jak " Shark"długość 6!

• 2 bajty zapisane dzięki @Fox

• 2 bajty zapisane dzięki @Laikoni

Perl 6 , 79 78 bajtów

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

Wypróbuj online!

Dość proste.

Wyjaśnienie:

 <...>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 bajty

Więcej golfa do naśladowania.

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

Wypróbuj online!

bash, 78 bajtów

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

TIO

73 bajty, jeśli dozwolone jest końcowe miejsce

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

/// , 124 bajty

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

Wypróbuj online!

> <> , 158 115 bajtów

Zaoszczędź dużo bajtów dzięki Jo Kingowi

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

Wypróbuj online! Możesz także wkleić kod w fishlanguage.com , gdzie możesz zobaczyć animację pływania .

PostgreSQL, 162 156 138 bajtów

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

Nie golfił

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

Zaoszczędzono 6 24 bajtów dzięki @Nahuel Fouilleul!

• użyj ||zamiastconcat()
• użyj unnest('{foo,bar}'::text[])zamiastregexp_split_to_table('foo,bar')

Skrzypce DB <>

Haskell , 97 bajtów

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

Wypróbuj online!

Jest to optymalizacja rozwiązania Haskell przez gwiazdy i spirale . Nowa sztuczka polega na iteracji w rzędach każdej zwrotki za pomocą wewnętrznej pętli i łączeniu linii za pomocą unlines, oszczędzając konieczności jawnego wstawiania nowych linii.

Sufiksy czterech linii to [a,a,a,"!"], gdzie ajest " doo"replikowany 6 razy a=s>>" doo", w których gwiazdy i kręgi sprytnie wykorzystują długość sześciu znaków s=" Shark". Pisanie [a,a,a,...]wygląda trochę głupio, ale nie widzę krótszej drogi.

Wersja list-monad ma tę samą długość, ale wygląda świetnie.

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

Wypróbuj online!

Rubinowy , 82 bajty

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

Wypróbuj online!

R , 131 122 120 bajtów

-9 bajtów dzięki Giuseppe

-2 więcej bajtów, także Giuseppe

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

Wypróbuj online!

W rzeczywistości jestem z tego dość dumny, zwłaszcza że R jest raczej kiepski w posługiwaniu się łańcuchami. Zacząłem używać cat(sapply(...)), ale uświadomiłem sobie, że pętla for goli kilka bajtów.

Nadużywanie "?"=cznacznie zmniejsza liczbę potrzebnych nawiasów.

Próbowałem także "*"=reppowtórzyć poszczególne wiersze zwrotek i „doos”, ale to nie usunęło żadnych bajtów.

111 bajtów

Alternatywne (i lepsze) rozwiązanie Giuseppe i ASCII-only, które rozwiązuje niektóre problemy z odstępami.

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

Wypróbuj online!

PHP, 104 bajty

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

Uruchom php -nr '<code>'lub wypróbuj online .

C # (interaktywny kompilator Visual C #) , 153 131 bajtów

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");}

Dzięki @Destrogio za oszczędność 30 bajtów!

Wypróbuj online!

R , 126 125 bajtów

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

Nie wydaje się to tak „sprytne”, jak odpowiedzi CT Halla lub Sumnera18 , ale dzięki uniknięciu narzutu związanego z definiowaniem zmiennych wydaje się mniejszy.

Wypróbuj online!

Edycja: Zapisano 1 bajt, używając znaku powrotu karetki, zgodnie z komentarzem Jonathana Frecha

R , 139 138 137 bajtów

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='
')

Prawdopodobnie jest lepszy sposób na zrobienie „doo”, ale nie byłem w stanie go zdobyć.

Edycja:
zastąpiono „\ n” rzeczywistą nową linią według sugestii JDL;
Usunięto końcowy znak nowej linii według sugestii Giuseppe.

Wypróbuj online

C (gcc) , 123 122 bajtów

-1 bajt dzięki pułapkowi cat

#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:"!");}

Wypróbuj online!

cQuents , 93 89 bajtów

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

Wypróbuj online!

Pamiętaj, że od momentu opublikowania TIO nie jest aktualizowane do najnowszej wersji, więc łącze TIO może nie działać.

Wyjaśnienie

|                               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 bajty

Prawdopodobnie bardzo zdolny do gry w golfa. Generuje wiersz „doo doo”, a następnie tworzy trzy z nich za pomocą „!” wiersz po i powtarza to dla każdego rekina.

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)

Wypróbuj online!

jq, 87 znaków

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

Przykładowy przebieg:

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!

Wypróbuj online!

whenyouaccidentallylose100endorsementsinnationstates - 123.065 123.716 113.695 100.889 98.554 bajtów

Program

Zagram w to później. Gotowy.

Zagram w to więcej (później) Gotowe.

Zagram w to jeszcze bardziej później. GOTOWY.

Później liczę bajtów na 5 cyfr. TAK

Liczę bajtów na 4 cyfry (nie wiem, czy jest to możliwe, ale wiem, że przy obecnym podejściu niemożliwe jest uzyskanie 3 cyfr).

Zwykły TeX, 147 bajtów

\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

Raczej rozczarowujące, ale od wieków nie opublikowałem odpowiedzi na TeX. Pętle są bardzo szczegółowe w teX (a zapętlanie ciągów nie jest nawet wbudowane, więc nawet to jest trochę rozciągnięte)

PHP , 153 147 bajtów

<?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";}

Dzięki @manatwork za zapisanie 6 bajtów przez wskazanie str_pad('',23'doo ');jest krótszy niżrtrim(str_repeat('doo ',6));

Wypróbuj online!