Помните детскую игру «Утка, утка, гусь» ? Нет? И я нет.

Соревнование

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

Правила

• Попытайтесь играть в игру с наименьшим количеством байтов.
• Там должна быть хотя бы одна утка.
• В конце списка должен быть ровно один гусь.
• На каждой линии должна быть ровно одна птица. Нет пустых строк.
• Случай выводимых строк не имеет значения.
• Пробел в пределах строки в порядке.
• Ваша программа должна закончиться.
• Ваша программа не должна постоянно производить одинаковое количество уток.

Веселиться!

Обратите внимание: этот вопрос не является дубликатом кратчайшего кода для получения недетерминированного вывода

Причины включают в себя:

• Ассоциация к детской игре
• Определены начальные и конечные требования строки результата. В другом вызове не указано никаких выходных данных.
• Ответы Для другого, не дублирующегося запроса в однозначном количестве байтов. Среднее значение для этого составляет около 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возвращает число (с плавающей запятой) selectв диапазоне от 0 до 1. Это число передается в качестве аргумента вместе с массивом [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"

Скриншот

Редактировать: Изменено {"текст": "утка"}, чтобы просто "утка" (и то же самое с "гусь")

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 #) , 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

Редактор Geometry Dash World 2.2 - 4 объекта

Объяснение:

Триггер BG является случайным триггером текущего 2.2, поэтому он либо переключает ID группы 1, либо 2.

Первый «УТКА» имеет идентификатор группы 1, что дает 50% шансов быть удаленным или нет (переключенным).

На этом уровне нет объекта с идентификатором группы 2, поэтому есть вероятность 50% отображения 2 «УДАЧ».

Как воспроизвести это:

Первый «УТКА» имеет идентификатор группы 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"

Деление , 24 19 байт

R"duck"N#
"goose"*[

Попробуйте онлайн!

-5 байт благодаря Мартину Эндеру

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

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

Попробуйте онлайн!

Эй, язык месяца неактивен, давай немного разберемся!

Befunge

57 35 байт (периметр всего поля - 19x3 17x2 символов). Спасибо karhell за улучшение.

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

Вторая строка помещает утку и новую строку в стек (назад) и выводит ее в виде строки. После этого 75% шансов вернуться к началу и снова напечатать утку, 25% (когда знак вопроса решит понизиться) напечатать гуся и остановиться.