Пам’ятаєте дитячу гру «Качка, Качка, Гуска» ? Немає? Я також ні.

Змагання

• Надрукуйте слово «качка» на окремих рядках невизначена кількість разів.
• Роздрукуйте слово «гуска».
• Ваша програма закінчується.

Правила

• Спроба грати в найменші байти.
• Качка повинна бути хоча б однією.
• У кінці списку має бути рівно одна гуска.
• На кожному рядку повинно бути рівно одна птах. Немає порожніх рядків
• Випадок виведених рядків не має значення.
• Білий простір у рядку чудово.
• Ваша програма повинна закінчитися.
• Ваша програма не повинна послідовно виробляти однакову кількість качок.

Веселіться!

Зверніть увагу: це питання не є дублікатом найкоротшого коду для отримання недетермінованого виводу

Причини включають:

• Асоціація з дитячою грою
• Визначені вимоги початку та кінця рядка результатів. В іншому виклику немає вказаного результату.
• Відповіді Для інших, не повторюваних викликів, є одноцифрове число байтів. Середній показник для цього - близько 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 качки.

Операція Мова сценарію Flashpoint , 48 байт

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

Завжди друкує одну або дві качки.

random 1повертає число (плаваюча точка) між 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 байт

Ось макрос, який можна запустити у 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"} на просто "качка" (і те саме з "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 січня 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-байтна версія (як запропонував Кріс ) також працює:

say"Duck
"x$^T,Goose

Це також передбачає, що проблема 2038 року буде вирішена для Perl 5 , інакше вона буде недійсною протягом 1 секунди 20 років.

Python 2 , 36 34 байт

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

Спробуйте в Інтернеті!

Пропозиція Кевіна Круїссена приводить нас до 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 зображень качок та зображення гусака внизу на стандартному виході. Він завантажує дві вихідні картинки з Вікіпедії, тому доступ до Інтернету необхідний для його роботи.

Вибірка вибірки, перетворена в JPEG через pnmtojpeg :

R , 35 байт

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

Спробуйте в Інтернеті!

rexp()виробляє випадкове число з функції експоненціального розпаду. +1щоб забезпечити хоча б одну качку. Усі рядки після першого містять провідний пробіл (який є роздільником за замовчуванням cat), але це дозволено.

Баш , 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

Спробуйте в Інтернеті .

Рубін , 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), потім одна гуска.

Збережено дев'ять байтів завдяки цифровій травмі та Олів'є Дулаку.

Спробуйте в Інтернеті! (але майте на увазі, що він може час від часу врізатися)

Та ж довжина, але без 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","")

Спробуйте в Інтернеті!

Брахілог , 24 21 байт

-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

Геометрія тире Світ 2.2 Редактор - 4 об’єкти

Пояснення:

Тригер BG є випадковим тригером 2.2, тому він або перемикає груповий ідентифікатор 1 або 2.

Перший "DUCK" має груповий ідентифікатор 1, завдяки чому він має 50% шансу бути видаленим чи не (переключеним).

На цьому рівні немає об'єкта з ідентифікатором групи 2, тому існує 50% шансу відображення 2 "DUCK".

Як відтворити це:

Перший "DUCK" має груповий ідентифікатор 1.

У гусака та другої качки немає ідентифікатора групи

Всередині випадкового тригера.

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і роздрукуйте його за допомогою зворотного підводного рядка ( \). Потім це загортається в інший вихідний етап, але на цьому застосовано випадковий прапор ( ?), тому він друкує лише з вірогідністю 50%.

K`goose

Замінити duckз goose, яка друкується неявно в кінці програми.

Ось весела альтернатива, яка друкує 1 качку з 50% вірогідністю, 2 качки з 25%, 3 качки з 12,5% ...:

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

Vim (скрипт) в 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"

Fission , 24 19 байт

R"duck"N#
"goose"*[

Спробуйте в Інтернеті!

-5 байт завдяки Мартіну Ендеру

Брахілог , 21 байт

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

Спробуйте в Інтернеті!

Гей, мова місяця йде неактивною, давайте трохи розіб'ємо речі!

Befunge

57 35 байт (периметр всього поля - 19x3 17x2 charachters) Завдяки Karhell за покращення.

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

Другий рядок ставить качку та новий рядок на стек (назад) і виводить її у вигляді рядка. Після цього 75% шансу повернутися до старту та знову надрукувати качку, 25% (коли знак питання вирішить спуститися) надрукувати гусака та зупинитися.