Çocuk oyununu hatırla, 'Ördek, Ördek, Kaz' ? Hayır? Ben de değil.

Meydan okuma

• 'Duck' kelimesini ayrı ayrı satırlara belirsiz miktarda yazdırın.
• 'Kaz' kelimesini yazdır.
• Programın bitti.

Kurallar

• Oyunu en az baytta oynamaya çalışın.
• En az bir ördek olmalı.
• Listenin sonunda, tam olarak bir kaz olmalı.
• Her satırda tam olarak bir kuş olmalı. Boş satır yok.
• Çıkarılan dizelerin durumu önemsizdir.
• Bir çizgideki beyaz boşluk gayet iyi.
• Programınız bitmeli.
• Programınız sürekli olarak aynı sayıda ördek üretmemelidir.

İyi eğlenceler!

Lütfen dikkat: Bu soru deterministik olmayan çıktılar üretmek için en kısa kodun bir kopyası değildir.

Sebepler:

• Bir çocuk oyununa dernek
• Sonuç dizesinin tanımlanmış başlangıç ​​ve bitiş gereksinimleri. Diğer mücadelede belirli bir çıktı yoktur.
• Yanıtlar Diğerleri için, yinelenmeyen meydan okuma tek basamaklı bayt sayısındadır. Bunun için ortalama 30 civarında veya orada.
• Bu meydan okuma ile bu meydan okuma arasındaki örtüşme miktarına göre, 'rastgele' etiketi de dahil olmak üzere herhangi bir kod-golf sorusu bir kopyadır. Hepsini silmeli miyiz?
• Bu mücadeleye ilişkin kod cevapları diğer mücadeleyle (saçma bir şekilde şişirilmiş şekilde) eşleşir, ancak bu mücadeleye verilen cevaplar bununla eşleşmez.

Jöle , 13 bayt

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

Çevrimiçi deneyin!

Açıklama:

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

Daha okunabilir sürüm: Çevrimiçi deneyin!

Her zaman 1 veya 2 ördek geri döner.

İşlem Flashpoint kodlama dili, 48 bayt

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

Her zaman bir veya iki ördek yazdırır.

random 10 ile 1 arasında bir (kayan nokta) sayı döndürür. Bu sayı, selectdiziyle birlikte bir argüman olarak iletilir [s,""]. Rasgele sayı daha sonra en yakın tam sayıya (0 veya 1) yuvarlanır ve bu dizindeki dizi öğesi diziden seçilir.

İle ara:

hint call f

Çıktı:

Alternatif 56 bayt sürümü:

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

World of Warcraft 81 Bayt

İşte World of Warcraft'ta çalıştırabileceğiniz bir makro.

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

Minecraft <1.13, 72 54 bayt

Üzgünüm, zorundaydım.

Talimatlar:

• Creative Mode'da yeni bir Minecraft dünyası yaratın
• Bu dünya için kaydetme klasörünü bulun ve aşağıdaki kodu data/functions/minecraft/ddg.mcfunction
• /function ddgOyun konsolunda koş

Nasıl çalışır:

Dünyadaki her varlık için "ördek" kelimesini çıkardıktan sonra "kaz" kelimesini çıkarır. Varlıklar sürekli yumurtlama ve umutsuzluk yarattığından, "ördek" lerin sayısı tutarlı olmayacaktır. Çok tellrawdaha kısa yerine kullandım , sayçünkü sayvarlığın adını çıkarırken, tellrawtam olarak ne söylendiğini çıkarır.

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

Ekran görüntüsü

Düzenleme: {"text": "duck"} sadece "ördek" olarak değiştirildi (ve "kaz" ile aynı)

JavaScript, 45 44 42 39 37 bayt

Taşma hatası üretme potansiyeli vardır.

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

Dene

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

<pre id=o></pre>

Octave , 38 33 bayt

Bu en kısa değil (36 bayt), fakat en sevdiğim. Açıklama altta.

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

Çevrimiçi deneyin!

Bazı kısa varyasyonlar:

Bu prensipte (33 bayt) çalışır, ancak çevrimiçi tercümanlar zaman aşımına uğraır:

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

Çıktıyı kısaltmak için bazı baytlar eklemek, onu 35 veya 36 bayt yapar:

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

Açıklama:

Son rastgele olanı açıklayacağım. Diğerleri benzer, ancak bugüne kadar 1 Ocak 0000’den bu yana geçen gün sayısını kullanıyor .

randaralıkta rasgele bir sayı döndürür (0, 1) . Böylece, 1'den1/rand büyük bir sayı döndürür . 1'den büyük rastgele bir düzlemin olduğu bir aralık olduğu için , 1 > x aralığını oluşturur , burada x> = 1 olur .1:ff1:floor(f)1:1/rand

Bunu Octave yığın tabanlı bir dilmiş gibi açıklamaya çalışacağım.

      '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 bayt

İlk önce pratik bir 26 bayt:

Kazlanmadan önce 1 ila 9 kez ördekler.

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

Çevrimiçi deneyin!

Ancak çok fazla hafıza ve zamana sahipseniz, bu 20 baytlık versiyon ( Chris tarafından önerilen şekilde ) da işe yarıyor:

say"Duck
"x$^T,Goose

Bu aynı zamanda, 2038 Yılı Probleminin Perl 5 için çözüleceğini , aksi takdirde 1 saniye 20 yıl boyunca geçersiz olacağını varsaymaktadır .

Python 2 , 36 34 bayt

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

Çevrimiçi Deneyin!

Kevin Cruijssen tarafından öneri bizi 34 bayta götürür :

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

Z Kabuğu (+ wget & Netpbm), 168 160 150 148 145 135 120 bayt

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

En kısa çözüm değil, ancak bu zorluğa bir tür bükülme vermek gibi hissettim ( @ AlexG'nin bu diğer soruna çözümünden esinlenerek ).

Bu komut dosyası, 1-8 arası ördek resmi ve altta standart bir çıktıyla bir kaz resmi içeren bir PPM görüntüsü oluşturur. İki kaynak resmi Wikipedia'dan indirir, bu nedenle çalışması için internet erişimi gereklidir.

Pnmtojpeg ile JPEG'e dönüştürülen örnek çıktı :

R , 35 bayt

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

Çevrimiçi deneyin!

rexp()üstel bir bozulma fonksiyonundan rastgele bir sayı üretir. +1en az bir ördek sağlamak için. İlk satırdan sonraki tüm satırlar (bunun için varsayılan ayırıcı olan cat) bir satır aralığı içerir, ancak buna izin verilir.

Bash , 39 38 37 bayt

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

Çevrimiçi deneyin!

[0,32767] 'de eşit şekilde dağıtılmış bir tamsayıdaki rakam sayısına eşit sayıda ördek yazdırır (yani, beş ördeğe (çok fazla sayıda ördek).

@Chris ve @sch sayesinde her biri -1 byte, ağırlıklarını çekmeyen tırnak çiftlerini gösteriyor.

Saf Bash (harici yardımcı program yoktur), 25

@ SophiaLechner'ın cevabına dayanarak , bu da çok sayıda ördek yazdırır .

@ OlivierDulac'ın PID betiğini kabuk $parametresinde kullanma fikri, parametre parametresinde saklandığı gibi 5 bayt kazandırır.

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

Çevrimiçi deneyin .

Yakut , 30 bayt

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

Çevrimiçi deneyin!

Not: \nHile olmadan gerçekten 31 bayt .

Bash + Coreutils, 36 27 bayt

yes duck|sed $$q;echo goose

Çok fazla ördek yazdırır (2 ile 2 arasında cat /proc/sys/kernel/pid_max), sonra bir kaz.

Digital Trauma ve Olivier Dulac sayesinde dokuz bayt kurtarıldı.

Çevrimiçi deneyin! (ama zaman zaman kesilebileceğini unutmayın)

Aynı uzunluk, ancak no echo:

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

Çevrimiçi deneyin!

aappend komutu içeri girer sedve qçıkar. Her ikisi de yalnızca PID'ye $$karşılık gelen satırda çalışır .

PowerShell , 35 , 30 28 bayt

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

Çevrimiçi deneyin! (değiştirilmiş sürüm)

Bir dizi madde üretir Get-Random. Biraz zaman alabilir. Bu +1en az bir tane aldığımızdan emin olmak için bir ekler duck. Değiştirilen sürüm ayrıca bir -max işaretini de içerir , 5böylece programın beklendiği gibi çalıştığını görebilirsiniz (değiştirilen sürüm, 1, 2, 3 veya 4 ducks'den önce basacaktır goose).

Dizi ve yalnız goosedizi, boru hattında bırakılır ve örtük Write-Output, bize newline ile ayrılmış değerleri bedava verir.

Son çizgiyi "gri ördek" olarak değiştirmemin benim için ne kadar zor olduğunu bilmiyorsun ...

Python 2 , 54 bayt

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

Çevrimiçi Deneyin!

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

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

Çevrimiçi deneyin!

Brachylog , 24 21 bayt

Outgolfer Erik sayesinde -3 bayt

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

Çevrimiçi deneyin!

Ayın dilinin kutlanmasında ilk brakilog yazısı. Bu dilde kontrol akışı harika.

Nasıl çalışır:

"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

Geometri Dash World 2.2 Editor - 4 nesneler

Açıklama:

BG tetikleyicisi mevcut 2.2'nin rastgele tetikleyicisidir, bu yüzden Grup Kimliği 1 veya 2'yi değiştirir.

İlk "DUCK", 1 kişilik bir grup kimliğine sahip ve bu da% 50 oranında kaldırılma veya kaldırılma şansını elde etmesini sağlıyor.

Bu seviyede Grup ID 2 ile hiçbir nesne yoktur, bu yüzden% 50 "DUCK" gösterilme şansı vardır.

Bu nasıl yeniden üretilir:

İlk "DUCK", 1 kişilik bir Grup Kimliğine sahiptir.

Kaz ve 2. ördek, Grup Kimliğine sahip değil

Rastgele tetikleyici içinde.

05AB1E , 15 14 bayt

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

Çevrimiçi deneyin!

2, 5 veya 6 ördek ve daha sonra kaz basacak.

Tek bir sıkıştırılmış kelime (ördek) için 'kullanarak @Emigna sayesinde -1 bayt

APL (Dyalog) , 22 bayt

@EriktheOutgolfer sayesinde 1 bayt kurtarıldı

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

Çevrimiçi deneyin!

Retina , 17 bayt

?\\K`duck
K`goose

Çevrimiçi deneyin!

Çevrimiçi deneyin!

Eşit olasılıkla 1 veya 2 ördek yazdırır.

açıklama

?\\K`duck

Çalışma dizesini ayarlayın ve duckizleyen bir satır besleme ( \) ile yazdırın . Sonra bu, başka bir çıktı aşamasına sarılır, ancak buna ?uygulanan rasgele bayrağı ( ) vardır, bu nedenle yalnızca% 50 olasılıkla yazdırır.

K`goose

Programın sonunda örtük şekilde basılmış olan duckile değiştirin goose.

İşte% 50 olasılık ile 1 ördek,% 25 ile 2 ördek ve% 12,5 ile 3 ördek basan eğlenceli bir alternatif:

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

Linux'ta Vim (script), 46 43 bayt (49:Satırın başında 46 )

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

Olarak çalıştırılır vim -S filenameveya çalışan yapıştırılan vimile :her hat önce.

> <> , 31 22 bayt

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

Çevrimiçi deneyin!

Bir ağaç revizyonuna dayanan -9 bayt

Befunge 98 , 38 30 25 bayt

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

Çevrimiçi deneyin!

• Faydasız trambolin soymak için teşekkürler @JoKing
• Daha kısa yeni hat için Befunge 98'e geçiş - şimdi Ducktek bir dizgeye sığacak

T-SQL , 70 44 43 bayt (Çok sayıda ördek)

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

Teşekkürler @Zac Faragher!

Gözden geçirilmiş sürüm, 54 43 40 bayt (1 veya 2 ördek)

@ BradC!

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

Bunun SQL Fiddle'da düzgün çalışmasını sağlayamıyorum , ancak LINQPad ve SSMS'de gayet iyi çalışıyor.

Bunun bilinen bir SQL Fiddle sınırı olup olmadığından emin değilim ya da sadece yanlış bir şey yapıyorum.

Powershell - 31 30 bayt

Uyarı : Büyük olasılıkla bir sürü ördekle biteceksin. sayının ne kadar rasgele olduğuna bağlı olarak Random0'dan 0'a kadar olan değerleri içerir Int32.MaxValue, bu çok fazla zor olabilir.

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

Fisyon , 24 19 bayt

R"duck"N#
"goose"*[

Çevrimiçi deneyin!

Martin Ender sayesinde -5 bayt

Brachylog , 21 bayt

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

Çevrimiçi deneyin!

Hey, ayın dili etkisizleşiyor, hadi işleri biraz kaldıralım!

Befunge

57 35 bayt (tüm alanın çevresi 19x3 17x2 karakterdir) Gelişim için karhell sayesinde.

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

İkinci satır, ördeği ve yeni satırı yığına (geriye doğru) koyar ve bunu bir dizge olarak çıkarır. % 75'inin başlangıcına geri dönme ve yeniden ördek basma şansı,% 25 (soru işareti düşmeye karar verdiğinde) kaz ve durmak için.