Hãy nhớ trò chơi trẻ em, 'Vịt, Vịt, Ngỗng' không? Không? Tôi cũng không.

Các thách thức

• In từ 'vịt' trên các dòng riêng lẻ với số lần không xác định.
• In từ 'ngỗng'.
• Chương trình của bạn kết thúc.

Những quy định

• Cố gắng chơi trò chơi trong một vài byte.
• Phải có ít nhất một con vịt.
• Phải có chính xác một con ngỗng, ở cuối danh sách.
• Phải có chính xác một con chim trên mỗi dòng. Không có dòng trống.
• Trường hợp của các chuỗi xuất ra là không liên quan.
• Không gian trắng trong một dòng là tốt.
• Chương trình của bạn phải kết thúc.
• Chương trình của bạn không nhất quán phải sản xuất cùng một số vịt.

Chúc vui vẻ!

Xin lưu ý: Câu hỏi này không phải là bản sao của Mã ngắn nhất để tạo đầu ra không xác định

Lý do bao gồm:

• Sự liên kết với trò chơi của trẻ em
• Các yêu cầu bắt đầu và kết thúc được xác định của chuỗi kết quả. Không có đầu ra được chỉ định trong các thách thức khác.
• Câu trả lời Đối với các thách thức khác, không trùng lặp là trong một số byte một chữ số. Trung bình cho cái này là khoảng 30, hoặc có khoảng.
• Theo số lượng trùng lặp giữa thử thách này và thử thách đó, bất kỳ câu hỏi golf-code nào bao gồm thẻ 'ngẫu nhiên' đều trùng lặp. Chúng ta có nên xóa tất cả?
• Các câu trả lời mã cho thử thách này sẽ phù hợp với thử thách khác (theo cách bực bội), nhưng câu trả lời cho thử thách đó sẽ không phù hợp với thử thách này.

Thạch , 13 byte

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

Hãy thử trực tuyến!

Giải trình:

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

Phiên bản dễ đọc hơn: Hãy thử trực tuyến!

Sẽ luôn trả lại 1 hoặc 2 con vịt.

Hoạt động ngôn ngữ kịch bản Flashpoint , 48 byte

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

Luôn luôn in một hoặc hai con vịt.

random 1trả về một số (dấu phẩy động) trong khoảng từ 0 đến 1. Số đó được truyền dưới dạng đối số selectcùng với mảng [s,""]. Số ngẫu nhiên sau đó được làm tròn đến số nguyên gần nhất (0 hoặc 1) và phần tử mảng tại chỉ mục đó được chọn từ mảng.

Gọi với:

hint call f

Đầu ra:

Phiên bản 56 byte thay thế:

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

Thế giới Warcraft 81 byte

Đây là một macro mà bạn có thể chạy trong World of Warcraft.

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

Minecraft <1.13, 72 54 byte

Xin lỗi, tôi đã phải.

Hướng dẫn:

• Tạo một thế giới Minecraft mới trong Chế độ sáng tạo
• Tìm thư mục lưu cho thế giới đó và đặt đoạn mã sau vào data/functions/minecraft/ddg.mcfunction
• Chạy /function ddgtrong bảng điều khiển trò chơi

Làm thế nào nó hoạt động:

Xuất ra từ "vịt" cho mọi thực thể trên thế giới, sau đó xuất ra từ "ngỗng". Vì các thực thể liên tục sinh sản và xuất hiện, số lượng "vịt" sẽ không nhất quán. Tôi đã sử dụng tellrawthay vì ngắn hơn nhiều sayvì sayđầu ra tên của thực thể, trong khi tellrawđầu ra chính xác những gì nó được nói.

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

Ảnh chụp màn hình

Chỉnh sửa: Đã thay đổi {"văn bản": "vịt"} thành "vịt" (và tương tự với "ngỗng")

JavaScript, 45 44 42 39 37 byte

Có khả năng tạo ra lỗi tràn.

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

Kiểm tra nó

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

<pre id=o></pre>

Tháng mười , 38 33 byte

Đây không phải là ngắn nhất (36 byte), nhưng nó là sở thích của tôi. Lời giải thích nằm ở phía dưới.

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

Hãy thử trực tuyến!

Một số biến thể ngắn hơn:

Điều này hoạt động trên nguyên tắc (33 byte), nhưng trình thông dịch trực tuyến hết thời gian:

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

Thêm một số byte để làm cho đầu ra ngắn hơn làm cho nó 35 hoặc 36 byte:

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

Giải trình:

Tôi sẽ chỉ giải thích cái ngẫu nhiên cuối cùng. Những cái khác tương tự, nhưng sử dụng số ngày kể từ ngày 1 tháng 1 năm 0000 cho đến ngày hôm nay.

randtrả về một số ngẫu nhiên trên khoảng (0, 1) . Do đó, 1/randtrả về một số lớn hơn 1 . Vì một phạm vi 1:f, trong đó fmột số float ngẫu nhiên lớn hơn 1 giống hệt nhau 1:floor(f), 1:1/randtạo ra một phạm vi 1 .. x , trong đó x> = 1 .

Tôi sẽ cố gắng giải thích điều này như thể Octave là một ngôn ngữ dựa trên ngăn xếp.

      '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

Đầu tiên là 26 byte thực tế:

Vịt 1 đến 9 lần trước khi bị nguyền rủa.

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

Hãy thử trực tuyến!

Nhưng nếu bạn có nhiều bộ nhớ và thời gian thì phiên bản 20 byte này (theo đề xuất của Chris ) cũng hoạt động:

say"Duck
"x$^T,Goose

Điều này cũng cho rằng Vấn đề Năm 2038 sẽ được giải quyết cho Perl 5 , nếu không, nó sẽ không có hiệu lực trong 1 giây 20 năm do đó.

Python 2 , 36 34 byte

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

Dùng thử trực tuyến!

Đề xuất của Kevin Cruijssen đưa chúng ta tới 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)

Không phải là giải pháp ngắn nhất, nhưng tôi cảm thấy muốn đưa ra một loạt các thách thức cho thử thách này (lấy cảm hứng từ giải pháp của @ AlexG cho vấn đề khác này ).

Kịch bản này tạo ra một hình ảnh PPM chứa từ 1-8 hình ảnh con vịt và hình ảnh con ngỗng ở phía dưới trên đầu ra tiêu chuẩn. Nó tải xuống hai hình ảnh nguồn từ Wikipedia, vì vậy việc truy cập internet là cần thiết để nó hoạt động.

Đầu ra mẫu được chuyển đổi thành JPEG thông qua pnmtojpeg :

R , 35 byte

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

Hãy thử trực tuyến!

rexp()tạo ra một số ngẫu nhiên từ hàm phân rã theo cấp số nhân. +1để đảm bảo ít nhất một con vịt. Tất cả các dòng sau đầu tiên bao gồm một không gian hàng đầu (là dấu phân cách mặc định cho cat) nhưng điều này được cho phép.

Bash , 39 38 37 byte

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

Hãy thử trực tuyến!

In một số vịt bằng số chữ số trong một số nguyên được phân bố đồng đều trên [0,32767] (vì vậy, thường xuyên hơn không, năm vịt (một số vịt tốt)).

Mỗi byte 1 nhờ vào @Chris và @sch chỉ ra các cặp trích dẫn không kéo theo trọng số của chúng.

Pure Bash (không có tiện ích bên ngoài), 25

Dựa trên câu trả lời của @ SophiaLechner , điều này cũng in ra một số lượng lớn vịt .

Ý tưởng của @ OlivierDulac là sử dụng bộ mã script shell như được lưu trong $tham số tiết kiệm 5 byte.

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

Hãy thử trực tuyến .

Ruby , 30 byte

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

Hãy thử trực tuyến!

Lưu ý: thực sự 31 byte mà không có \ncheat.

Bash + Coreutils, 36 27 byte

yes duck|sed $$q;echo goose

In quá nhiều vịt (giữa 2 và cat /proc/sys/kernel/pid_max), sau đó một con ngỗng.

Đã lưu chín byte nhờ Digital Trauma và Olivier Dulac.

Hãy thử trực tuyến! (nhưng hãy nhớ rằng đôi khi nó có thể bị cắt ngắn)

Cùng chiều dài, nhưng không có echo:

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

Hãy thử trực tuyến!

alà lệnh chắp thêm sedvà qthoát. Cả hai chỉ chạy trên dòng $$, tương ứng với PID.

PowerShell , 35 30 28 byte

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

Hãy thử trực tuyến! (phiên bản được sửa đổi)

Tạo ra một loạt Get-Randomcác mục. Nó có thể mất một thời gian. Điều này thêm một +1để đảm bảo chúng tôi nhận được ít nhất một duck. Phiên bản sửa đổi cũng bao gồm một -macờ ximum 5để bạn có thể thấy chương trình hoạt động như mong đợi (phiên bản sửa đổi sẽ in 1, 2, 3 hoặc 4 duckgiây trước goose).

Mảng và goosechuỗi đơn độc được để lại trên đường ống và ẩnWrite-Output cho chúng ta các giá trị được phân tách bằng dòng mới miễn phí.

Bạn không biết làm thế nào khó khăn cho tôi để không thay đổi dòng cuối cùng thành "vịt xám" ...

Python 2 , 54 byte

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

Dùng thử trực tuyến!

C # (Trình biên dịch tương tác Visual C #) , 55 byte

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

Hãy thử trực tuyến!

Brachylog , 24 21 byte

-3 byte nhờ Erik the Outgolfer

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

Hãy thử trực tuyến!

Kỷ niệm ngôn ngữ của tháng , bài đăng brachylog đầu tiên của tôi. Luồng điều khiển trong ngôn ngữ này là mát mẻ.

Làm thế nào nó hoạt động:

"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 đối tượng

Giải trình:

Trình kích hoạt BG là trình kích hoạt ngẫu nhiên 2.2 hiện tại, do đó, nó sẽ tắt ID nhóm 1 hoặc 2.

"Ducks" đầu tiên có id nhóm là 1, khiến nó có 50% cơ hội bị xóa hoặc không (bật / tắt).

Không có đối tượng nào có ID nhóm 2 ở cấp độ này, do đó, có 50% cơ hội 2 "Ducks" được hiển thị.

Làm thế nào để sao chép này:

"Ducks" đầu tiên có ID nhóm là 1.

Ngỗng và vịt thứ 2 không có ID nhóm

Bên trong kích hoạt ngẫu nhiên.

05AB1E , 15 14 byte

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

Hãy thử trực tuyến!

Sẽ in 2, 5 hoặc 6 con vịt rồi ngỗng.

-1 byte nhờ @Emigna sử dụng 'cho một từ được nén (vịt)

APL (Dyalog) , 22 byte

Lưu 1 byte nhờ @EriktheOutgolfer

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

Hãy thử trực tuyến!

Võng mạc , 17 byte

?\\K`duck
K`goose

Hãy thử trực tuyến!

Hãy thử trực tuyến!

In 1 hoặc 2 con vịt, với xác suất bằng nhau.

Giải trình

?\\K`duck

Đặt chuỗi làm việc thành duckvà in nó với một linefeed ( \). Sau đó, nó được bọc trong một giai đoạn đầu ra khác, nhưng cái này có cờ ngẫu nhiên ( ?) được áp dụng cho nó, vì vậy nó chỉ in với xác suất 50%.

K`goose

Thay thế duckbằnggoose , được in ngầm ở cuối chương trình.

Đây là một thay thế thú vị in 1 con vịt với xác suất 50%, 2 con vịt với 25%, 3 con vịt với 12,5% ...:

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

Vim (tập lệnh) trên Linux, 46 43 byte (4946 với :ở đầu dòng)

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

Được thực hiện như vim -S filenamehoặc dán vào chạy vimvới :trước mỗi dòng.

> <> , 31 22 byte

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

Hãy thử trực tuyến!

-9 byte dựa trên bản sửa đổi của cây

Befunge 98 , 38 30 25 byte

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

Hãy thử trực tuyến!

• Cảm ơn @JoKing đã tước tấm bạt lò xo vô dụng
• Chuyển sang Befunge 98 cho dòng mới ngắn hơn - hiện Duckphù hợp với một chuỗi

T-SQL , 70 44 43 byte (Nhiều con vịt)

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

Cảm ơn @Zac Faragher!

Phiên bản sửa đổi, 54 43 40 byte (1 hoặc 2 con vịt)

Cảm ơn @BradC!

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

Tôi dường như không thể có được điều này để chạy đúng trong SQL Fiddle , nhưng nó chỉ hoạt động tốt trong LINQPad và SSMS.

Không chắc đây là giới hạn đã biết của SQL Fiddle hay tôi chỉ đang làm gì đó sai

Powershell - 31 30 byte

Cảnh báo : Rất có thể bạn sẽ kết thúc với rất nhiều vịt. Randombao gồm các giá trị từ 0 đến Int32.MaxValuenhư vậy, tùy thuộc vào số lượng ngẫu nhiên của bạn là bao nhiêu, điều này có thể gây ra nhiều sự đánh cắp.

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

Phân hạch , 24 19 byte

R"duck"N#
"goose"*[

Hãy thử trực tuyến!

-5 byte nhờ Martin Ender

Brachylog , 21 byte

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

Hãy thử trực tuyến!

Này, ngôn ngữ của tháng không hoạt động, hãy khởi động mọi thứ một chút!

Befunge

57 35 byte (chu vi của toàn bộ trường là 19x3 17x2 charachters) Nhờ karhell cho sự cải tiến.

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

Dòng thứ hai đặt vịt và một dòng mới trên ngăn xếp (ngược) và xuất nó dưới dạng một chuỗi. Sau 75% cơ hội quay trở lại bắt đầu và in lại con vịt, 25% (khi dấu hỏi quyết định đi xuống) để in ngỗng và dừng lại.