จำเกมสำหรับเด็ก'เป็ดเป็ดห่าน' ได้ไหม ไม่มี? ฉันก็ไม่เหมือนกัน.

ความท้าทาย

• พิมพ์คำว่า 'เป็ด' ในแต่ละบรรทัดในจำนวนครั้งที่ไม่แน่นอน
• พิมพ์คำว่า 'ห่าน'
• โปรแกรมของคุณจะจบลง

กฎระเบียบ

• พยายามเล่นเกมด้วยจำนวนไบต์น้อยที่สุด
• จะต้องมีเป็ดอย่างน้อยหนึ่งตัว
• จะต้องมีห่านหนึ่งตัวในตอนท้ายของรายการ
• จะต้องมีหนึ่งนกแน่นอนในแต่ละบรรทัด ไม่มีบรรทัดว่างเปล่า
• กรณีของสตริงเอาท์พุทไม่เกี่ยวข้อง
• พื้นที่สีขาวภายในหนึ่งบรรทัดนั้นใช้ได้
• โปรแกรมของคุณจะต้องเสร็จสิ้น
• โปรแกรมของคุณจะต้องไม่ผลิตเป็ดในจำนวนที่เท่ากัน

มีความสุข!

โปรดทราบ: คำถามนี้ไม่ได้ซ้ำกับรหัสที่สั้นที่สุดในการสร้างผลลัพธ์ที่ไม่ได้กำหนดไว้

เหตุผลประกอบด้วย:

• การเชื่อมโยงกับเกมของเด็ก
• ข้อกำหนดการเริ่มต้นและสิ้นสุดที่กำหนดไว้ของสตริงผลลัพธ์ ไม่มีผลลัพธ์ที่ระบุในการท้าทายอื่น ๆ
• รู้รอบสำหรับความท้าทายอื่น ๆ ที่ไม่ซ้ำกันนั้นมีจำนวนไบต์เดียว ค่าเฉลี่ยสำหรับอันนี้ประมาณ 30 หรือประมาณนั้น
• ด้วยจำนวนของการซ้อนทับกันระหว่างความท้าทายนี้และคำถามนั้นคำถามเกี่ยวกับการเล่นกอล์ฟรวมถึงแท็ก 'สุ่ม' นั้นซ้ำกัน เราควรจะลบพวกเขาทั้งหมดหรือไม่
• รหัสคำตอบสำหรับความท้าทายนี้จะตรงกับความท้าทายอื่น ๆ (ในทาง bloated ขัน) แต่คำตอบของความท้าทายนั้นจะไม่ตรงกับความท้าทายนี้

เยลลี่ขนาด 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 เสมอ

ภาษาสคริปต์การทำงานของ Flashpointขนาด 48 ไบต์

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

พิมพ์เป็ดหนึ่งหรือสองตัวเสมอ

random 1ส่งกลับตัวเลข (floating point) ระหว่าง 0 และ 1 ตัวเลขที่ถูกส่งผ่านเป็นอาร์กิวเมนต์ไปพร้อมกับอาร์เรย์select [s,""]หมายเลขสุ่มจะถูกปัดเศษเป็นจำนวนเต็มที่ใกล้เคียงที่สุด (เป็น 0 หรือ 1) และองค์ประกอบอาร์เรย์ที่ดัชนีนั้นจะถูกเลือกจากอาร์เรย์

โทรด้วย:

hint call f

เอาท์พุท:

ทางเลือกรุ่น 56 ไบต์:

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

World of Warcraft 81 Bytes

นี่คือแมโครที่คุณสามารถเรียกใช้ใน World of Warcraft

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

Minecraft <1.13, 72 54 ไบต์

ขอโทษฉันต้อง

คำแนะนำ:

• สร้างโลก Minecraft ใหม่ในโหมดสร้างสรรค์
• ค้นหาโฟลเดอร์บันทึกสำหรับโลกนั้นและวางรหัสต่อไปนี้ใน data/functions/minecraft/ddg.mcfunction
• ทำงาน/function ddgในเกมคอนโซล

มันทำงานอย่างไร:

ส่งออกคำว่า "เป็ด" สำหรับทุกเอนทิตีในโลกจากนั้นส่งออกคำว่า "ห่าน" เนื่องจากเอนทิตีจะวางไข่และหมดหวังอยู่ตลอดเวลาจำนวนของ "เป็ด" จึงไม่สอดคล้องกัน ฉันใช้tellrawแทนสั้นกว่ามากsayเพราะsayเอาท์พุทชื่อของเอนทิตีในขณะที่tellrawเอาท์พุทสิ่งที่มันบอกว่า

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 38ไบต์

นี่ไม่ใช่สั้นที่สุด (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 มกราคม 0000จนถึงวันนี้

randส่งกลับจำนวนสุ่มในช่วง(0, 1) ดังนั้นจึง1/randส่งกลับจำนวนขนาดใหญ่กว่า1 ตั้งแต่ช่วง1:fที่fเป็นลอยสุ่มขนาดใหญ่กว่า1เป็นเหมือน1:floor(f), 1:1/randสร้างช่วง1 .. xที่x> = 1

ฉันจะพยายามอธิบายสิ่งนี้ราวกับว่า 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

สิ่งนี้จะถือว่าปัญหาปี 2038จะได้รับการแก้ไขสำหรับPerl 5มิฉะนั้นจะไม่ถูกต้องสำหรับ 1 วินาที 20 ปีดังนั้น

Python 2 , 36 34 ไบต์

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

ลองออนไลน์!

คำแนะนำโดยKevin Cruijssenทำให้เรามีขนาดถึง 34 ไบต์:

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

Z Shell (+ 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 ต่อปัญหาอื่น )

สคริปต์นี้สร้างภาพ PPM ที่มีระหว่างเป็ด 1-8 ภาพและรูปภาพของห่านที่ด้านล่างของเอาต์พุตมาตรฐาน มันดาวน์โหลดรูปภาพต้นฉบับสองภาพจาก Wikipedia ดังนั้นอินเทอร์เน็ตจึงจำเป็นสำหรับการทำงาน

เอาต์พุตตัวอย่างแปลงเป็น JPEG ผ่านpnmtojpeg :

R , 35 ไบต์

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

ลองออนไลน์!

rexp()สร้างตัวเลขสุ่มจากฟังก์ชั่นการสลายตัวแบบเอ็กซ์โพเนนเชียล +1เพื่อให้แน่ใจว่าอย่างน้อยหนึ่งเป็ด ทุกบรรทัดหลังจากที่แรกรวมถึงช่องว่างนำหน้า (ซึ่งเป็นตัวคั่นเริ่มต้นสำหรับcat) แต่สิ่งนี้ได้รับอนุญาต

Bash , 39 38 37 ไบต์

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

ลองออนไลน์!

พิมพ์เป็ดจำนวนหนึ่งเท่ากับจำนวนตัวเลขในจำนวนเต็มสม่ำเสมอบน [0,32767] (ดังนั้นบ่อยกว่าไม่เป็ดห้าตัว (เป็ดจำนวนมาก))

-1 ไบต์แต่ละตัวต้องขอบคุณ @Chris และ @sch ชี้ให้เห็นคู่ของราคาที่ไม่ได้ดึงน้ำหนักของพวกเขา

Pure Bash (ไม่มียูทิลิตี้ภายนอก), 25

จากคำตอบของ @ SophiaLechnerสิ่งนี้จะพิมพ์เป็ดจำนวนมาก

ความคิดของ @ OlivierDulac เพื่อใช้เชลล์สคริปต์ PID ที่เก็บไว้ใน$พารามิเตอร์จะบันทึก 5 ไบต์

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

ลองมันออนไลน์

Rubyขนาด 30 ไบต์

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

ลองออนไลน์!

หมายเหตุ: จริงๆ 31 ไบต์โดยไม่ต้อง\nโกง

Bash + Coreutils, 36 27 ไบต์

yes duck|sed $$q;echo goose

พิมพ์เป็ดมากเกินไป (ระหว่าง 2 ถึงcat /proc/sys/kernel/pid_max) จากนั้นห่านตัวเดียว

บันทึกเก้าไบต์ด้วย Digital Trauma และ Olivier Dulac

ลองออนไลน์! (แต่โปรดจำไว้ว่าอาจถูกตัดทอนบางครั้ง)

ความยาวเท่ากัน แต่ไม่มีecho:

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

ลองออนไลน์!

aเป็นคำสั่งผนวกในsedและqออกจาก ทั้งสองทำงานเฉพาะบนบรรทัด$$ซึ่งสอดคล้องกับ PID

PowerShell , 35 30 28 ไบต์

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

ลองออนไลน์! (เวอร์ชั่นที่แก้ไข)

สร้างอาร์เรย์Get-Randomจำนวนรายการ มันอาจจะใช้เวลาสักครู่. นี่เป็นการเพิ่ม+1เพื่อให้มั่นใจว่าเราจะได้รับอย่างน้อยหนึ่งduckรายการ เวอร์ชันที่แก้ไขยังมีการ-maกำหนดแฟล็ก ximum 5เพื่อให้คุณเห็นโปรแกรมทำงานตามที่คาดไว้ (เวอร์ชันที่แก้ไขจะพิมพ์ 1, 2, 3 หรือ 4 duckวินาทีก่อนหน้า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 ไบต์

-3 ไบต์ขอบคุณ Erik the Outgolfer

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

ลองออนไลน์!

ในการเฉลิมฉลองภาษาของเดือนโพสต์ brachylog แรกของฉัน การควบคุมการไหลในภาษานี้ยอดเยี่ยม

มันทำงานอย่างไร:

"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 ปัจจุบันดังนั้นมันจึงสลับ Group ID 1 หรือ 2

"DUCK" ตัวแรกมีรหัสกลุ่ม 1 ซึ่งทำให้มีโอกาส 50% ที่จะถูกลบออกหรือไม่ (สลับ)

ไม่มีวัตถุที่มี ID กลุ่ม 2 ในระดับนี้ดังนั้นจึงมีโอกาส 50% ที่ 2 "เป็ด" จะถูกแสดง

วิธีทำซ้ำสิ่งนี้:

"DUCK" ตัวแรกมี ID กลุ่มเป็น 1

ห่านและเป็ดตัวที่ 2 ไม่มีรหัสประจำตัว

ภายในทริกเกอร์แบบสุ่ม

05AB1E , 15 14 ไบต์

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

ลองออนไลน์!

จะพิมพ์ 2, 5 หรือ 6 เป็ดแล้วห่าน

-1 ไบต์ต้องขอบคุณ @Emigna ที่ใช้ 'สำหรับคำที่บีบอัดเดี่ยว (เป็ด)

APL (Dyalog)ขนาด 22 ไบต์

บันทึก 1 ไบต์ขอบคุณ @EriktheOutgolfer

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

ลองออนไลน์!

เรติน่า 17 ไบต์

?\\K`duck
K`goose

ลองออนไลน์!

ลองออนไลน์!

พิมพ์ 1 หรือ 2 เป็ดด้วยความน่าจะเป็นที่เท่ากัน

คำอธิบาย

?\\K`duck

ตั้งค่าสตริงการทำงานเป็นduckและพิมพ์ด้วย linefeed ต่อท้าย ( \) จากนั้นนี่จะถูกห่อในอีกเอาต์พุตหนึ่ง แต่อันนี้มีการใช้ธงสุ่ม ( ?) กับมันดังนั้นมันจึงพิมพ์ด้วยความน่าจะเป็น 50% เท่านั้น

K`goose

แทนที่duckด้วยgooseซึ่งจะถูกพิมพ์โดยปริยายในตอนท้ายของโปรแกรม

นี่คือทางเลือกสนุก ๆ ที่พิมพ์เป็ด 1 ตัวที่มีความน่าจะเป็น 50% เป็ด 2 ตัวที่ 25% เป็ด 3 ตัวที่มี 12.5% ​​... :

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

เป็นกลุ่ม (สคริปต์) บน Linux, 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 ไบต์

คำเตือน : คุณมีโอกาสมากที่สุดที่จะพบกับเป็ดจำนวนมาก Randomรวมถึงค่า 0 ถึงInt32.MaxValueดังนั้นขึ้นอยู่กับว่าคุณเป็นหมายเลขสุ่มนี่อาจเป็นจำนวนมาก

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

ฟิชชัน , 24 19 ไบต์

R"duck"N#
"goose"*[

ลองออนไลน์!

-5 ไบต์ขอบคุณ Martin Ender

Brachylogขนาด 21 ไบต์

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

ลองออนไลน์!

เฮ้ภาษาในเดือนนั้นไม่ทำงานเรามาเตะเรื่องเล็ก ๆ น้อย ๆ กันเถอะ!

Befunge

57 35 ไบต์ (เส้นรอบวงของเขตข้อมูลทั้งหมดคือตัวอักษรขนาด 19x3 17x2) ขอบคุณ karhell สำหรับการปรับปรุง

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

บรรทัดที่สองวางเป็ดและบรรทัดใหม่บนสแต็ก (ย้อนหลัง) และส่งออกเป็นสตริง หลังจากนั้นโอกาส 75% ที่จะกลับไปที่จุดเริ่มต้นและพิมพ์เป็ดอีกครั้ง 25% (เมื่อเครื่องหมายคำถามตัดสินใจลงไป) เพื่อพิมพ์ห่านและหยุด