Pamiętasz grę dla dzieci „Kaczka, Kaczka, Gęś” ? Nie? Ja też nie.

Wyzwanie

• Drukuj słowo „kaczka” na poszczególnych liniach w nieokreślonej liczbie razy.
• Wydrukuj słowo „gęś”.
• Twój program się kończy.

Zasady

• Spróbuj zagrać w jak najmniej bajtów.
• Musi być co najmniej jedna kaczka.
• Na końcu listy musi znajdować się dokładnie jedna gęś.
• W każdej linii musi znajdować się dokładnie jeden ptak. Brak pustych linii.
• Przypadek wyprowadzanych ciągów jest nieistotny.
• Białe znaki w linii są w porządku.
• Twój program musi się zakończyć.
• Twój program nie może konsekwentnie wytwarzać tej samej liczby kaczek.

Baw się dobrze!

Uwaga: To pytanie nie jest duplikatem najkrótszego kodu w celu uzyskania niedeterministycznych danych wyjściowych

Powody obejmują:

• Związek z grą dla dzieci
• Zdefiniowane wymagania początkowe i końcowe ciągu wynikowego. W innym wyzwaniu nie ma określonego wyniku.
• Odpowiedzi W przypadku drugiego niedopowielonego wyzwania jest to jednocyfrowa liczba bajtów. Średnia dla tego wynosi około 30 lub mniej więcej.
• Ze względu na stopień pokrywania się tego wyzwania z tym, każde pytanie w golfa kodu, w tym tag „losowy”, jest duplikatem. Czy powinniśmy je wszystkie usunąć?
• Odpowiedzi kodu dla tego wyzwania byłyby zgodne z innym wyzwaniem (w absurdalnie rozdęty sposób), ale odpowiedzi na to wyzwanie nie pasowałyby do tego.

Galaretka , 13 bajtów

2X“¢;ÆS»ẋ“ʋ¢»

Wypróbuj online!

Wyjaśnienie:

2X“¢;ÆS»ẋ“ʋ¢»

2X             Random number (1 or 2)
  “¢;ÆS»       Compressed string equivalent to "duck\n"
        ẋ      Repeat the "duck\n" that random number of times
         “ʋ¢»  Compresses string equivalent to "goose"
               Implicitly concatenated and returned

Bardziej czytelna wersja: Wypróbuj online!

Zawsze zwróci 1 lub 2 kaczki.

Operacyjny język skryptowy Flashpoint , 48 bajtów

f={s="duck\n";s+([s,""]select random 1)+"goose"}

Zawsze drukuje jedną lub dwie kaczki.

random 1zwraca liczbę (zmiennoprzecinkową) z zakresu od 0 do 1. Liczba ta jest przekazywana jako argument selectwraz z tablicą [s,""]. Liczba losowa jest następnie zaokrąglana do najbliższej liczby całkowitej (0 lub 1), a element tablicy o tym indeksie jest wybierany z tablicy.

Zadzwoń z:

hint call f

Wynik:

Alternatywna wersja 56 bajtów:

f={s="duck\n";format[s+"%1goose",[s,""]select random 1]}

World of Warcraft 81 bajtów

Oto makro, które możesz uruchomić w World of Warcraft.

/run for x=1,random(1,9) do SendChatMessage("Duck") end; SendChatMessage("Goose")

Minecraft <1,13, 72 54 bajtów

Przepraszam, musiałem.

Instrukcje:

• Utwórz nowy świat Minecraft w trybie kreatywnym
• Znajdź folder zapisu dla tego świata i umieść w nim następujący kod data/functions/minecraft/ddg.mcfunction
• Uruchom /function ddgw konsoli do gier

Jak to działa:

Zwraca słowo „kaczka” dla każdego bytu na świecie, a następnie słowo „gęś”. Ponieważ istoty stale się odradzają i znikają, liczba „kaczek” nie będzie stała. Użyłem tellrawzamiast znacznie krótszego, sayponieważ saywypisuje nazwę bytu, a tellrawwypisuje dokładnie to, co mu powiedziano.

execute @e ~ ~ ~ tellraw @a "duck"
tellraw @a "goose"

Zrzut ekranu

Edycja: Zmieniono {„text”: „duck”} na po prostu „duck” (i to samo z „gęsią”)

JavaScript, 45 44 42 39 37 bajtów

Może powodować błąd przepełnienia.

f=_=>`duck
${new Date%2?f():`goose`}`

Sprawdź to

o.innerText=(
f=_=>`duck
${new Date%2?f():`goose`}`
)()

<pre id=o></pre>

Oktawa , 38 33 bajtów

To nie jest najkrótszy (36 bajtów), ale jest moim ulubionym. Wyjaśnienie znajduje się na dole.

disp(['duck '+~(1:1/rand)';'goose'])

Wypróbuj online!

Kilka krótszych odmian:

Działa to w zasadzie (33 bajty), ale limit czasu dla tłumaczy internetowych:

disp(['duck '+~(1:now)';'goose'])

Dodanie niektórych bajtów w celu skrócenia wyjścia powoduje, że ma on 35 lub 36 bajtów:

disp(['duck '+~(7e5:now)';'goose'])   % Works on octave-online.net
disp(['duck '+~(7.3e5:now)';'goose']) % Works on tio.run

Wyjaśnienie:

Wyjaśnię tylko ostatnią przypadkową. Pozostałe są podobne, ale wykorzystują liczbę dni od 1 stycznia 0000 do dziś.

randzwraca losową liczbę z przedziału (0, 1) . W ten sposób 1/randzwraca liczbę większą niż 1 . Ponieważ zakres 1:f, gdzie flosowa liczba zmienna większa niż 1 jest identyczna 1:floor(f), 1:1/randtworzy zakres 1 .. x , gdzie x> = 1 .

Spróbuję wyjaśnić to tak, jakby Octave był językiem stosowym.

      'duck '                           % Push the string 'duck ' to the stack
               (1:1/rand)               % Push a vector 1... floor(1/rand)
              ~(1:1/rand)'              % Negate the vector (making it all zeros)
                                        % and transpose it.
             +                          % Add 'duck ' with the vertical vector of zeros
                                        % to implicitly duplicate the string r times
     [                    ;'goose']     % Push the string 'goose' and concatenate
                                        % vertically with the rest
disp(                              )    % Display it all.

Perl 5 , 20 bajtów

Najpierw praktyczne 26 bajtów:

Kaczki 1 do 9 razy przed gęsią skórką.

say"Duck
"x(1+$^T%9),Goose

Wypróbuj online!

Ale jeśli masz dużo pamięci i czasu, ta 20-bajtowa wersja (jak sugeruje Chris ) również działa:

say"Duck
"x$^T,Goose

Zakłada to również, że problem roku 2038 zostanie rozwiązany dla Perla 5 , w przeciwnym razie będzie nieważny przez 1 sekundę 20 lat.

Python 2 , 36 34 bajtów

print"duck\n"*((id(id)%5)+1),"goose"

Wypróbuj online!

Sugestia Kevina Cruijssena prowadzi do 34 bajtów:

print"duck\n"*-~(id(id)%5),"goose"

Z Shell (+ wget i Netpbm), 168 160 150 148 145 135 120 bajtów

d(){wget -O- bit.ly/$1|jpegtopnm|pamscale -w 64 -h 64};d DckDkGo|pnmtile 64 $[(RANDOM&7+1)*64]|pnmcat -tb - <(d g005eGG)

Nie jest to najkrótsze rozwiązanie, ale miałem ochotę nadać temu wyzwaniu trochę innego rodzaju (zainspirowane rozwiązaniem @ AlexG innego problemu ).

Ten skrypt generuje obraz PPM zawierający od 1 do 8 zdjęć kaczek i zdjęcie gęsi u dołu na standardowym wyjściu. Pobiera dwa zdjęcia źródłowe z Wikipedii, więc dostęp do Internetu jest niezbędny do działania.

Przykładowe dane wyjściowe przekonwertowane na JPEG przez pnmtojpeg :

R , 35 bajtów

cat(rep("duck
",rexp(1)+1),"goose")

Wypróbuj online!

rexp()tworzy losową liczbę z wykładniczej funkcji rozpadu. +1aby zapewnić co najmniej jedną kaczkę. Wszystkie wiersze po pierwszej zawierają spację wiodącą (która jest domyślnym separatorem dla cat), ale jest to dozwolone.

Bash , 39 38 37 bajtów

sed s/[0-9]/duck\\n/g<<<$RANDOM\goose

Wypróbuj online!

Drukuje liczbę kaczek równą liczbie cyfr w liczbie całkowitej równomiernie rozłożonej na [0,32767] (czyli częściej pięć kaczek (duża liczba kaczek)).

-1 bajt każdy dzięki @Chris i @sch wskazując pary cytatów, które nie pociągały za sobą.

Pure Bash (bez narzędzi zewnętrznych), 25

Na podstawie odpowiedzi @ SophiaLechner drukuje również dużą liczbę kaczek .

@ Pomysł OlivieraDulaca na użycie PID powłoki skryptu zapisanej w $parametrze pozwala zaoszczędzić 5 bajtów.

echo "${$//?/duck
}"goose

Wypróbuj online .

Rubinowy , 30 bajtów

puts"duck
"*rand(1..9)+"goose"

Wypróbuj online!

Uwaga: naprawdę 31 bajtów bez \noszukiwania.

Bash + Coreutils, 36 27 bajtów

yes duck|sed $$q;echo goose

Drukuje zbyt wiele kaczek (między 2 a cat /proc/sys/kernel/pid_max), a następnie jedną gęś.

Zaoszczędzono dziewięć bajtów dzięki Digital Trauma i Olivier Dulac.

Wypróbuj online! (ale pamiętaj, że czasami może zostać obcięty)

Ta sama długość, ale bez echo:

yes duck|sed $${agoose'
q}'

Wypróbuj online!

ato komenda append w sedi qkończy działanie. Oba działają tylko na linii $$, która odpowiada PID.

PowerShell , 35 30 28 bajtów

,"duck"*((Random)+1)
"goose"

Wypróbuj online! (zmodyfikowana wersja)

Generuje tablicę Get-Randomliczby elementów. To może chwilę potrwać. Dodaje to, +1aby upewnić się, że otrzymamy co najmniej jeden duck. Zmodyfikowana wersja zawiera również -maflagę ximum, 5dzięki czemu można zobaczyć, że program działa zgodnie z oczekiwaniami (zmodyfikowana wersja wydrukuje 1, 2, 3 lub 4 ducks przed goose).

Tablica i samotny gooseciąg są pozostawione w potoku, a domniemane Write-Outputdaje nam wartości rozdzielone znakiem nowej linii za darmo.

Nie wiesz, jak trudno mi było nie zmienić ostatniej linii na „szara kaczka” ...

Python 2 , 54 bajty

from random import*
print"duck\n"*randint(1,9)+"goose"

Wypróbuj online!

C # (interaktywny kompilator Visual C #) , 55 bajtów

Write("{"+new Random().Next(2)+"}{0}goose","duck\n","")

Wypróbuj online!

Brachylog , 24 21 bajtów

-3 bajty dzięki Erikowi Outgolferowi

"duck"ẉ4ṙ0∧"goose"w∨↰

Wypróbuj online!

Z okazji Języka miesiąca , mój pierwszy post brachylog. Kontrola w tym języku jest fajna.

Jak to działa:

"duck"ẉ4ṙ0∧"goose"w∨↰
"duck"ẉ                 print duck with a new line
       4ṙ               choose a random number in the range is [0, 4]
         0              verify it equals zero
          ∧             and (short circuits)
           "goose"w     print goose without a newline
                   ∨    or (if it did not equal zero)
                    ↰   repeat the procedure

Geometry Dash World 2.2 Editor - 4 obiekty

Wyjaśnienie:

Wyzwalacz BG jest losowym wyzwalaczem obecnego 2.2, więc albo przełącza identyfikator grupy 1 lub 2.

Pierwszy „KACZKA” ma identyfikator grupy wynoszący 1, co sprawia, że ​​ma 50% szans na usunięcie lub nie (przełączenie).

Na tym poziomie nie ma obiektu o identyfikatorze grupy 2, więc istnieje 50% szans na wyświetlenie 2 „KACZEK”.

Jak to odtworzyć:

Pierwszy „KACZKA” ma identyfikator grupy 1.

Gęś i druga kaczka nie mają identyfikatora grupy

Wewnątrz losowego wyzwalacza.

05AB1E , 15 14 bajtów

'Ðœ₁Ωи`.•zíΘ•»

Wypróbuj online!

Wydrukuje 2, 5 lub 6 kaczek, a następnie gęś.

-1 bajt dzięki @Emigna używającej 'dla pojedynczego skompresowanego słowa (kaczka)

APL (Dyalog) , 22 bajty

1 bajt zapisany dzięki @EriktheOutgolfer

'Goose'⍪⍨(?9)5⍴'Duck '

Wypróbuj online!

Siatkówka , 17 bajtów

?\\K`duck
K`goose

Wypróbuj online!

Wypróbuj online!

Drukuje 1 lub 2 kaczki, z jednakowym prawdopodobieństwem.

Wyjaśnienie

?\\K`duck

Ustaw ciąg roboczy ducki wydrukuj go za pomocą końcowego wiersza linefeed ( \). Następnie jest to pakowane w inny stopień wyjściowy, ale ten ma na sobie losową flagę ( ?), więc drukuje tylko z prawdopodobieństwem 50%.

K`goose

Wymień ducksię goose, który jest drukowany domyślnie na końcu programu.

Oto zabawna alternatywa, która drukuje 1 kaczkę z 50% prawdopodobieństwem, 2 kaczki z 25%, 3 kaczki z 12,5% ...:

\K`duck
?+\G`
K`goose

Vim (skrypt) w systemie Linux, 46 43 bajty (4946 z :na początku linii)

.!date +0\%N\%s6
s/6.*/goose
s/\d/duck\r/g

Wykonany jako vim -S filenamelub wklejone do prowadzenia vimz :przed każdym wierszu.

> <> , 31 22 bajtów

"duck"a>x
r"esoog"<>o<

Wypróbuj online!

-9 bajtów na podstawie wersji innej niż drzewo

Befunge 98 , 38 30 25 bajtów

"esooG"v>:#,_@
"Duck"a<?<

Wypróbuj online!

• Dzięki @JoKing za zdjęcie bezużytecznej trampoliny
• Zmiana na Befunge 98 na krótszą nową linię - teraz Duckmieści się w jednym ciągu

T-SQL , 70 44 43 bajty (wiele kaczek)

while rand()<.9print'duck'print'duck
goose'

Dzięki @Zac Faragher!

Wersja poprawiona, 54 43 40 bajtów (1 lub 2 kaczki)

Dzięki @BradC!

if rand()<.5print'duck'print'duck
goose'

Nie wydaje mi się, aby działał poprawnie w SQL Fiddle , ale działa dobrze w LINQPad i SSMS.

Nie jestem pewien, czy jest to znane ograniczenie SQL Fiddle, czy po prostu robię coś złego

PowerShell - 31 30 bajtów

Ostrzeżenie : najprawdopodobniej skończysz z dużą ilością kaczek. Randomzawiera wartości 0, Int32.MaxValuewięc w zależności od tego, jak losowa jest twoja liczba, może to być kwakanie.

1..(Random)|%{"Duck"};"Goose"

Rozszczepienie , 24 19 bajtów

R"duck"N#
"goose"*[

Wypróbuj online!

-5 bajtów dzięki Martinowi Enderowi

Brachylog , 21 bajtów

1ṙ+₁;"Duck
"j₍,"Goose

Wypróbuj online!

Hej, język miesiąca staje się nieaktywny, zacznijmy trochę!

Befunge

57 35 bajtów (obwód całego pola to 19x3 17x2 charachters) Dzięki karhell za ulepszenie.

55+"kcud",,,,,#v?
  @,,,,,"goose"<

Druga linia umieszcza kaczkę i nową linię na stosie (do tyłu) i wyprowadza ją jako ciąg. Po tym 75% szansy na powrót do początku i wydrukowanie kaczki ponownie, 25% (gdy znak zapytania decyduje się zejść), aby wydrukować gęś i zatrzymać.