子供向けのゲーム「ダック、ダ​​ック、グース」を覚えていますか？番号？私でもない。

挑戦

• 単語「duck」を個々の行に不定回数印刷します。
• 単語「グース」を印刷します。
• プログラムは終了します。

ルール

• 最小バイトでゲームをプレイしてみてください。
• 少なくとも1羽のアヒルがいる必要があります。
• リストの最後に、ちょうど1羽のガチョウがいる必要があります。
• 各行に正確に1羽の鳥がいる必要があります。空行はありません。
• 出力される文字列の大文字小文字は関係ありません。
• 行内の空白は問題ありません。
• プログラムを終了する必要があります。
• あなたのプログラムは一貫して同じ数のアヒルを生産してはいけません。

楽しんで！

注：この質問は、非決定的な出力を生成する最短コードの複製ではありません

理由は次のとおりです。

• 子供向けゲームへの関連付け
• 結果文字列の定義された開始および終了要件。他のチャレンジには指定された出力はありません。
• 回答他の場合、重複していないチャレンジは1桁のバイト数です。これの平均は約30、またはそこにあります。
• この課題とその課題との重複量により、「ランダム」タグを含むコードゴルフの問題は重複します。それらをすべて削除する必要がありますか？
• このチャレンジに対するコードの回答は、他のチャレンジと一致します（途方もなく肥大化した方法で）が、そのチャレンジに対する回答はこのチャレンジと一致しません。

ゼリー、13バイト

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

オンラインでお試しください！

説明：

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

より読みやすいバージョン：オンラインでお試しください！

常に1羽または2羽のアヒルを返します。

Operation Flashpointスクリプト言語、48バイト

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

常に1羽または2羽のアヒルを印刷します。

random 10〜1の（浮動小数点）数を返します。その数はselect、配列とともに引数として渡されます[s,""]。次に、乱数は最も近い整数（0または1）に丸められ、そのインデックスの配列要素が配列から選択されます。

で呼び出す：

hint call f

出力：

代替56バイトバージョン：

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

World of Warcraft 81バイト

World of Warcraftで実行できるマクロを次に示します。

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

マインクラフト<1.13、72の 54バイト

すみません、私はしなければなりませんでした。

手順：

• クリエイティブモードで新しいMinecraftワールドを作成する
• その世界の保存フォルダーを見つけて、次のコードを data/functions/minecraft/ddg.mcfunction
• /function ddgゲームコンソールで実行する

使い方：

世界のすべてのエンティティに対して「duck」という単語を出力し、次に「goose」という単語を出力します。エンティティは絶えず生成および生成されるため、「アヒル」の数は一定ではありません。エンティティの名前を出力するのでtellraw、はるかに短いものの代わりに使用しました。saysaytellraw

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

スクリーンショット

編集：{"text"： "duck"}を単に "duck"に変更（および "goose"と同じ）

JavaScript、45 44 42 39 37バイト

オーバーフローエラーが発生する可能性があります。

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

試して

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

<pre id=o></pre>

オクターブ、38 33バイト

これは最短ではありません（36バイト）が、私のお気に入りです。説明は下にあります。

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

オンラインでお試しください！

いくつかの短いバリエーション：

これは原則として機能しますが（33バイト）、オンラインインタープリターはタイムアウトします。

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

いくつかのバイトを追加して出力を短くすると、35または36バイトになります。

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

説明：

最後のランダムなものだけを説明します。他のものも同様ですが、1月1日から0000までの日数を使用して今日までです。

rand間隔（0、1）で乱数を返します。したがって、11/randより大きい数値を返します。範囲（が1より大きいランダムフロートである）はに等しいため、範囲1 .. x（x> = 1）を作成します。1:ff1:floor(f)1:1/rand

これをOctaveがスタックベースの言語であるかのように説明しようとします。

      '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バイト

最初に実用的な26バイト：

グースされる前に1〜9回アヒル。

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

オンラインでお試しください！

しかし、メモリと時間に余裕がある場合、この20バイトバージョン（Chrisが提案）も機能します。

say"Duck
"x$^T,Goose

これは、Perl 5の2038年問題が解決されることを前提としています。それ以外の場合は、20年間1秒間無効になります。

パイソン2、36の 34バイト

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

オンラインでお試しください！

Kevin Cruijssenによる提案により、34バイトになりました。

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

Zシェル（+ wgetおよびNetpbm）、 168 160 150 148 145 135 120バイト

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

最短の解決策ではありませんが、この課題（この他の問題に対する@AlexGの解決策に触発された）にちょっとした工夫をしたいと思いました。

このスクリプトは、標準出力のアヒルの1〜8枚の写真と下部のガチョウの写真を含むPPM画像を生成します。ウィキペディアから2つのソース画像をダウンロードするため、インターネットアクセスが必要です。

pnmtojpegを介してJPEGに変換されたサンプル出力：

R、35バイト

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

オンラインでお試しください！

rexp()指数関数的減衰関数から乱数を生成します。+1少なくとも1羽のアヒルを確保します。最初の行以降のすべての行には、先頭のスペース（のデフォルトの区切り文字cat）が含まれていますが、これは許可されています。

Bash、39 38 37バイト

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

オンラインでお試しください！

[0,32767]に均一に分布した整数の桁数に等しい数のアヒルを印刷します（したがって、ほとんどの場合、5つのアヒル（十分な数のアヒル））。

@Chrisと@schがそれぞれの重みを引き出さなかった引用符のペアを指摘してくれたおかげで、それぞれ-1バイト。

Pure Bash（外部ユーティリティなし）、25

@SophiaLechnerの回答に基づいて、これはかなりの数のアヒルも印刷します。

$パラメータに保存されているスクリプトシェルPIDを使用する@OlivierDulacのアイデアは、5バイトを節約します。

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

オンラインでお試しください。

ルビー、30バイト

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

オンラインでお試しください！

注：\nチートなしの実際の31バイト。

Bash + Coreutils、36 27バイト

yes duck|sed $$q;echo goose

あまりにも多くのアヒル（2〜cat /proc/sys/kernel/pid_max）を印刷してから、1羽のガチョウを印刷します。

Digital TraumaとOlivier Dulacのおかげで9バイト節約されました。

オンラインでお試しください！（ただし、時々切り捨てられる場合があることに注意してください）

長さは同じですが、なしecho：

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

オンラインでお試しください！

aはのappendコマンドでsedあり、q終了します。どちらも$$PIDに対応する行でのみ実行されます。

PowerShell、35 30 28バイト

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

オンラインでお試しください！（修正版）

Get-Randomアイテム数の配列を生成します。しばらく時間がかかる場合があります。これにより、+1少なくとも1つを取得することができduckます。変更されたバージョンには-maximumフラグも含まれている5ため、プログラムが期待どおりに動作することを確認できます（変更されたバージョンは、duckの前に1、2、3、または4 秒出力しますgoose）。

配列と単独のgoose文字列はパイプラインに残され、暗黙的にWrite-Output改行で区切られた値が無料で提供されます。

最後の行を「灰色のアヒル」に変更しないことがどれだけ難しいかわかりません...

Python 2、54バイト

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

オンラインでお試しください！

C＃（Visual C＃Interactive Compiler）、55バイト

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

オンラインでお試しください！

Brachylog、24 21バイト

Erik the Outgolferのおかげで-3バイト

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

オンラインでお試しください！

今月の言語を祝って、私の最初のブラキログ投稿。この言語の制御フローはクールです。

使い方：

"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つのオブジェクト

説明：

BGトリガーは現在の2.2のランダムトリガーであるため、グループID 1または2を切り替えます。

最初の「DUCK」のグループIDは1であるため、削除されるかされない（トグルされる）可能性は50％です。

このレベルにはグループID 2のオブジェクトはないため、2つの「DUCK」が表示される可能性は50％です。

これを再現する方法：

最初の「DUCK」のグループIDは1です。

ガチョウと2匹目のアヒルはグループIDを持っていません

ランダムトリガー内。

05AB1E、15 14バイト

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

オンラインでお試しください！

2、5、または6羽のカモを印刷してから、ガチョウを印刷します。

単一の圧縮された単語（アヒル）に 'を使用する@Emignaのおかげで-1バイト

APL（Dyalog）、22バイト

@EriktheOutgolferのおかげで1バイト節約

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

オンラインでお試しください！

網膜、17バイト

?\\K`duck
K`goose

オンラインでお試しください！

オンラインでお試しください！

等しい確率で1羽または2羽のアヒルを印刷します。

説明

?\\K`duck

作業文字列をに設定duckし、末尾の改行（\）で印刷します。次に、これは別の出力ステージにラップされますが、このステージにはランダムフラグ（?）が適用されているため、50％の確率でのみ印刷されます。

K`goose

交換するduckとgoose、プログラムの最後に、暗黙的に印刷されています。

これは、50％の確率で1羽のアヒル、25％で2羽のアヒル、12.5％で3羽のアヒルを印刷する楽しい代替手段です。

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

LinuxのVim（スクリプト）、 46 43バイト（4946 :行の先頭に）

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

実行vim -S filenameまたは実行中に貼り付けるvimと:、各ラインの前に。

> <>、31 22バイト

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

オンラインでお試しください！

ツリーのリビジョンではないことに基づいて-9バイト

Befunge 98、38の 30 25バイト

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

オンラインでお試しください！

• 役に立たないトランポリンを除去してくれてありがとう@JoKing
• 新しい行を短くするためにBefunge 98に切り替える- Duck単一の文字列に収まるようになりました

T-SQL、70 44 43バイト（多くのアヒル）

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

@Zac Faragherに感謝します！

改訂版、54 43 40バイト（1または2アヒル）

ありがとう@BradC！

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

SQL Fiddleで これを適切に実行することはできないようですが、LINQPadとSSMS では正常に動作します。

これがSQL Fiddleの既知の制限なのか、何か間違っているだけなのかわからない

Powershell- 31 30バイト

警告：あなたは多くのアヒルになってしまうでしょう。Random0からInt32.MaxValuesoの値が含まれますが、あなたがどのくらいランダムであるかにもよりますが、これは多くの変なことです。

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

核分裂、24 19バイト

R"duck"N#
"goose"*[

オンラインでお試しください！

マーティン・エンダーのおかげで-5バイト

ブラキログ、21バイト

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

オンラインでお試しください！

ちょっと、今月の言語が非アクティブになっているので、少し物事を始めましょう！

ベファンジ

57 35バイト（フィールド全体の境界は19x3 17x2文字です）改善してくれたkarhellに感謝します。

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

2行目は、スタックにアヒルと改行を（後方に）置き、それを文字列として出力します。75％の確率でスタートに戻り、再び鴨を印刷し、25％（疑問符が下がったと判断した場合）は、ガチョウを印刷して停止します。