Ingat permainan anak-anak, 'Bebek, Bebek, Angsa' ? Tidak? Aku juga tidak.

Tantangan

• Cetak kata 'bebek' pada setiap baris dalam jumlah tak tentu.
• Cetak kata 'angsa'.
• Program Anda berakhir.

Aturan

• Coba mainkan game dalam byte paling sedikit.
• Setidaknya harus ada satu bebek.
• Pasti ada satu angsa, di akhir daftar.
• Pasti ada satu burung di setiap baris. Tidak ada garis kosong.
• Kasus string yang dihasilkan tidak relevan.
• Ruang putih di dalam garis baik-baik saja.
• Program Anda harus selesai.
• Program Anda tidak harus secara konsisten menghasilkan jumlah itik yang sama.

Selamat bersenang-senang!

Harap dicatat: Pertanyaan ini bukan duplikat dari kode terpendek untuk menghasilkan keluaran yang tidak deterministik

Alasannya termasuk:

• Asosiasi ke permainan anak-anak
• Persyaratan awal dan akhir yang ditentukan dari string hasil. Tidak ada output yang ditentukan dalam tantangan lainnya.
• Jawaban Untuk yang lain, tantangan non-duplikat berada dalam jumlah byte satu digit. Rata-rata untuk yang ini adalah sekitar 30, atau ada sekitar.
• Dengan jumlah tumpang tindih antara tantangan ini dan yang itu, setiap pertanyaan kode-golf termasuk tag 'acak' adalah duplikat. Haruskah kita menghapus semuanya?
• Kode jawaban untuk tantangan ini akan cocok dengan tantangan lain (dengan cara yang sangat menggelikan), tetapi jawaban untuk tantangan itu tidak cocok dengan yang ini.

Jelly , 13 byte

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

Cobalah online!

Penjelasan:

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

Versi yang lebih mudah dibaca: Cobalah online!

Akan selalu mengembalikan 1 atau 2 bebek.

Operasi bahasa skrip Flashpoint , 48 byte

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

Selalu mencetak satu atau dua bebek.

random 1mengembalikan angka (floating point) antara 0 dan 1. Angka itu dilewatkan sebagai argumen untuk selectbersama dengan array [s,""]. Angka acak kemudian dibulatkan ke bilangan bulat terdekat (0 atau 1), dan elemen array pada indeks itu dipilih dari array.

Telepon dengan:

hint call f

Keluaran:

Alternatif versi 56 byte:

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

World of Warcraft 81 Bytes

Inilah makro yang bisa Anda jalankan di World of Warcraft.

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

Minecraft <1,13, 72 54 byte

Maaf saya harus.

Instruksi:

• Buat dunia Minecraft baru dalam Mode Kreatif
• Temukan folder simpan untuk dunia itu, dan tempatkan kode berikut ini data/functions/minecraft/ddg.mcfunction
• Jalankan /function ddgdi konsol game

Bagaimana itu bekerja:

Menghasilkan kata "bebek" untuk setiap entitas di dunia, lalu mengeluarkan kata "angsa". Karena entitas terus-menerus memijah dan meremehkan, jumlah "bebek" tidak akan konsisten. Saya menggunakan tellrawbukan yang jauh lebih pendek saykarena saymenampilkan nama entitas, sedangkan tellrawoutput persis seperti yang diceritakan.

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

Tangkapan layar

Sunting: Mengubah {"teks": "bebek"} menjadi "bebek" (dan sama dengan "angsa")

JavaScript, 45 44 42 39 37 byte

Memiliki potensi untuk menghasilkan kesalahan overflow.

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

Menguji

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

<pre id=o></pre>

Oktaf , 38 33 byte

Ini bukan yang terpendek (ini 36 byte), tapi ini favorit saya. Penjelasannya ada di bawah.

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

Cobalah online!

Beberapa variasi lebih pendek:

Ini bekerja pada prinsipnya (33 byte), tetapi waktu penerjemah online habis:

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

Menambahkan beberapa byte untuk membuat output lebih pendek membuatnya 35 atau 36 byte:

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

Penjelasan:

Saya hanya akan menjelaskan yang acak terakhir. Yang lainnya serupa, tetapi menggunakan jumlah hari sejak 1 Januari 0000 hingga hari ini.

randmengembalikan nomor acak pada interval (0, 1) . Dengan demikian, 1/randmengembalikan angka yang lebih besar dari 1 . Karena rentang 1:f, di mana ffloat acak yang lebih besar dari 1 identik dengan 1:floor(f), 1:1/randmenciptakan kisaran 1 .. x , di mana x> = 1 .

Saya akan mencoba menjelaskan ini seolah-olah Oktaf adalah bahasa berbasis stack.

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

Pertama, 26 byte praktis:

Bebek 1 hingga 9 kali sebelum menjadi angsa.

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

Cobalah online!

Tetapi jika Anda memiliki banyak memori dan waktu versi 20 byte ini (seperti yang disarankan oleh Chris ) juga berfungsi:

say"Duck
"x$^T,Goose

Ini juga mengasumsikan Masalah Tahun 2038 akan diselesaikan untuk Perl 5 , jika tidak maka tidak berlaku untuk 1 detik 20 tahun karenanya.

Python 2 , 36 34 byte

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

Cobalah secara Online!

Saran dari Kevin Cruijssen membuat kita mencapai 34 byte:

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

Z Shell (+ wget & Netpbm), 168 160 150 148 145 135 120 byte

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

Bukan solusi terpendek, tapi saya merasa ingin memberikan semacam tantangan untuk tantangan ini (terinspirasi oleh solusi @ AlexG untuk masalah lain ini ).

Script ini menghasilkan gambar PPM yang berisi antara 1-8 gambar bebek dan gambar angsa di bagian bawah pada output standar. Ini mengunduh dua gambar sumber dari Wikipedia, sehingga akses internet diperlukan agar bisa berfungsi.

Output sampel dikonversi ke JPEG melalui pnmtojpeg :

R , 35 byte

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

Cobalah online!

rexp()menghasilkan angka acak dari fungsi peluruhan eksponensial. +1untuk memastikan setidaknya satu bebek. Semua baris setelah yang pertama menyertakan spasi terdepan (yang merupakan pemisah default untuk cat) tetapi ini diizinkan.

Bash , 39 38 37 byte

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

Cobalah online!

Mencetak sejumlah bebek yang sama dengan jumlah digit dalam bilangan bulat yang terdistribusi secara merata pada [0,32767] (jadi, lebih sering daripada tidak, lima bebek (jumlah bebek yang baik)).

-1 byte masing-masing berkat @Chris dan @sch menunjukkan pasangan tanda kutip yang tidak menarik bobotnya.

Bash Murni (tidak ada utilitas eksternal), 25

Berdasarkan jawaban @ SophiaLechner , ini juga mencetak sejumlah bebek .

Ide @ OlivierDulac untuk menggunakan skrip shell PID yang disimpan dalam $parameter menghemat 5 byte.

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

Cobalah online .

Ruby , 30 byte

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

Cobalah online!

Catatan: benar-benar 31 byte tanpa \ncheat.

Bash + Coreutils, 36 27 byte

yes duck|sed $$q;echo goose

Mencetak terlalu banyak bebek (antara 2 dan cat /proc/sys/kernel/pid_max), lalu satu angsa.

Disimpan sembilan byte berkat Digital Trauma dan Olivier Dulac.

Cobalah online! (tapi perlu diingat bahwa mungkin terpotong sesekali)

Panjang yang sama, tetapi tanpa echo:

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

Cobalah online!

aadalah perintah append sed, dan qberhenti. Keduanya hanya berjalan pada baris $$, yang sesuai dengan PID.

PowerShell , 35 30 28 byte

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

Cobalah online! (versi modifikasi)

Menghasilkan array Get-Randomjumlah item. Mungkin butuh beberapa saat. Ini menambahkan +1untuk memastikan kami mendapatkan setidaknya satu duck. Versi yang dimodifikasi juga menyertakan -maflag ximum 5sehingga Anda dapat melihat program berfungsi seperti yang diharapkan (versi yang dimodifikasi akan mencetak 1, 2, 3, atau 4 ducks sebelum goose).

Array dan goosestring soliter dibiarkan pada pipa, dan implisit Write-Outputmemberi kita nilai yang dipisahkan baris baru secara gratis.

Anda tidak tahu betapa sulitnya bagi saya untuk tidak mengubah baris terakhir menjadi "bebek abu-abu" ...

Python 2 , 54 byte

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

Cobalah secara Online!

C # (Visual C # Interactive Compiler) , 55 byte

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

Cobalah online!

Brachylog , 24 21 byte

-3 byte terima kasih kepada Erik the Outgolfer

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

Cobalah online!

Dalam perayaan Bahasa bulan ini , posting brachylog pertama saya. Aliran kontrol dalam bahasa ini keren.

Bagaimana itu bekerja:

"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 objek

Penjelasan:

Pemicu BG adalah pemicu acak 2.2 saat ini, sehingga memicu ID Grup 1 atau 2.

"DUCK" pertama memiliki id grup 1, yang membuatnya memiliki peluang 50% untuk dihapus atau tidak (toggle).

Tidak ada objek dengan ID Grup 2 di level ini, jadi ada kemungkinan 50% dari 2 "DUCK" ditampilkan.

Bagaimana cara mereproduksi ini:

"DUCK" pertama memiliki ID Grup 1.

Angsa dan bebek ke-2 tidak memiliki ID Grup

Di dalam pemicu acak.

05AB1E , 15 14 byte

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

Cobalah online!

Akan mencetak 2, 5 atau 6 bebek dan kemudian angsa.

-1 byte berkat @Emigna menggunakan 'untuk satu kata terkompresi (bebek)

APL (Dyalog) , 22 byte

1 byte disimpan berkat @EriktheOutgolfer

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

Cobalah online!

Retina , 17 byte

?\\K`duck
K`goose

Cobalah online!

Cobalah online!

Mencetak 1 atau 2 bebek, dengan probabilitas yang sama.

Penjelasan

?\\K`duck

Tetapkan string yang berfungsi ke duckdan cetaklah dengan linefeed baris tambahan ( \). Kemudian ini dibungkus dalam tahap output lain, tetapi yang ini memiliki flag acak ( ?) yang diterapkan padanya, jadi ia hanya mencetak dengan probabilitas 50%.

K`goose

Ganti duckdengan goose, yang dicetak secara implisit di akhir program.

Inilah alternatif yang menyenangkan yang mencetak 1 bebek dengan probabilitas 50%, 2 bebek dengan 25%, 3 bebek dengan 12,5% ...:

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

Vim (skrip) di Linux, 46 43 byte (4946 dengan :di awal baris)

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

Dieksekusi sebagai vim -S filenameatau disisipkan ke dalam menjalankan vimdengan :sebelum setiap baris.

> <> , 31 22 byte

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

Cobalah online!

-9 byte berdasarkan revisi Bukan pohon

Befunge 98 , 38 30 25 bytes

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

Cobalah online!

• Terima kasih @JoKing karena menelanjangi trampolin yang tidak berguna
• Beralih ke Befunge 98 untuk jalur baru yang lebih pendek - sekarang Duckcocok dalam satu string

T-SQL , 70 44 43 byte (Banyak bebek)

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

Terima kasih @ Zak Faragher!

Versi Revisi, 54 43 40 byte (1 atau 2 bebek)

Terima kasih @BradC!

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

Sepertinya saya tidak bisa menjalankan ini dengan benar di SQL Fiddle , tetapi berfungsi dengan baik di LINQPad dan SSMS.

Tidak yakin apakah ini adalah batasan yang diketahui dari SQL Fiddle atau saya hanya melakukan sesuatu yang salah

Powershell - 31 30 byte

Peringatan : Anda kemungkinan besar akan berakhir dengan banyak bebek. Randomtermasuk nilai 0 hingga Int32.MaxValuejadi, tergantung pada seberapa acak nomor Anda, ini bisa jadi banyak quacking.

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

Fission , 24 19 byte

R"duck"N#
"goose"*[

Cobalah online!

-5 byte terima kasih kepada Martin Ender

Brachylog , 21 byte

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

Cobalah online!

Hei, bahasa bulan ini tidak aktif, mari kita mulai sedikit!

Dibalik

57 35 byte (perimeter seluruh bidang adalah 19x3 17x2 charachters) Berkat karhell untuk perbaikannya.

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

Baris kedua menempatkan bebek dan baris baru di tumpukan (mundur) dan mengeluarkannya sebagai string. Setelah 75% kemungkinan untuk kembali ke awal dan mencetak bebek lagi, 25% (ketika tanda tanya memutuskan untuk turun) untuk mencetak angsa dan berhenti.