Lembre-se do jogo infantil, 'Duck, Duck, Goose' ? Não? Nem eu.

O desafio

• Imprima a palavra 'pato' em linhas individuais uma quantidade indeterminada de vezes.
• Imprima a palavra 'ganso'.
• Seu programa termina.

As regras

• Tente jogar o jogo no menor número de bytes.
• Deve haver pelo menos um pato.
• Deve haver exatamente um ganso, no final da lista.
• Deve haver exatamente um pássaro em cada linha. Sem linhas vazias.
• O caso das strings emitidas é irrelevante.
• O espaço em branco em uma linha é bom.
• Seu programa deve terminar.
• Seu programa não deve produzir consistentemente o mesmo número de patos.

Diverta-se!

Observe: Esta pergunta não é uma duplicata do código mais curto para produzir saída não determinística

Os motivos incluem:

• A associação a um jogo infantil
• Os requisitos de início e término definidos da sequência de resultados. Não há saída especificada no outro desafio.
• Respostas Para o outro, o desafio não duplicado está em um número de um dígito de bytes. A média para este é de cerca de 30, ou aproximadamente.
• Pela quantidade de sobreposição entre esse desafio e esse, qualquer pergunta sobre código-golfe, incluindo a tag 'aleatória', é uma duplicata. Devemos excluir todos eles?
• As respostas de código para esse desafio corresponderiam ao outro (de uma maneira ridiculamente inchada), mas as respostas para esse desafio não corresponderiam a este.

Gelatina , 13 bytes

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

Experimente online!

Explicação:

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

Versão mais legível: Experimente online!

Sempre retornará 1 ou 2 patos.

Linguagem de script da operação Flashpoint , 48 bytes

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

Sempre imprime um ou dois patos.

random 1retorna um número (ponto flutuante) entre 0 e 1. Esse número é passado como argumento para selectjunto com a matriz [s,""]. O número aleatório é arredondado para o número inteiro mais próximo (0 ou 1) e o elemento da matriz nesse índice é selecionado na matriz.

Ligue para:

hint call f

Resultado:

Versão alternativa de 56 bytes:

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

World of Warcraft 81 bytes

Aqui está uma macro que você pode executar no World of Warcraft.

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

Minecraft <1.13, 72 54 bytes

Desculpe, eu tive que.

Instruções:

• Crie um novo mundo Minecraft no Modo Criativo
• Localize a pasta de salvar para esse mundo e coloque o seguinte código em data/functions/minecraft/ddg.mcfunction
• Executar /function ddgno console do jogo

Como funciona:

Emite a palavra "pato" para todas as entidades do mundo e, em seguida, emite a palavra "ganso". Como as entidades estão constantemente desovando e desaparecendo, o número de "patos" não será consistente. Eu usei em tellrawvez do muito mais curto, sayporque saygera o nome da entidade, enquanto tellrawgera exatamente o que é dito.

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

Captura de tela

Edit: Alterado {"text": "duck"} para apenas "duck" (e o mesmo com "ganso")

JavaScript, 45 44 42 39 37 bytes

Tem o potencial de produzir um erro de estouro.

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

Teste-o

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

<pre id=o></pre>

Oitava , 38 33 bytes

Este não é o mais curto (são 36 bytes), mas é o meu favorito. A explicação está no fundo.

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

Experimente online!

Algumas variações mais curtas:

Isso funciona em princípio (33 bytes), mas os intérpretes online atingem o tempo limite:

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

A adição de alguns bytes para diminuir a saída torna-o em 35 ou 36 bytes:

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

Explicação:

Vou apenas explicar o último aleatório. Os outros são semelhantes, mas usam o número de dias desde 1º de janeiro de 0000 até hoje.

randretorna um número aleatório no intervalo (0, 1) . Assim, 1/randretorna um número maior que 1 . Como um intervalo 1:f, em que fum flutuador aleatório maior que 1 é idêntico a 1:floor(f), 1:1/randcria um intervalo 1 .. x , onde x> = 1 .

Vou tentar explicar isso como se o Octave fosse uma linguagem baseada em pilha.

      '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 bytes

Primeiro, um prático de 26 bytes:

Patos 1 a 9 vezes antes de serem ganso.

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

Experimente online!

Mas se você tiver muita memória e tempo, essa versão de 20 bytes (como sugerida por Chris ) também funcionará:

say"Duck
"x$^T,Goose

Isso também pressupõe que o problema do ano 2038 será resolvido para o Perl 5 , caso contrário, será inválido por 1 segundo em 20 anos.

Python 2 , 36 34 bytes

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

Experimente Online!

A sugestão de Kevin Cruijssen nos leva a 34 bytes:

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

Z Shell (+ wget e Netpbm), 168 160 150 148 145 135 120 bytes

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

Não é a solução mais curta, mas tive vontade de dar uma reviravolta para esse desafio (inspirado na solução da @ AlexG para esse outro problema ).

Este script gera uma imagem PPM contendo entre 1 a 8 fotos de patos e uma imagem de um ganso na parte inferior na saída padrão. Ele baixa as duas imagens de origem da Wikipedia, portanto, é necessário acesso à Internet para que funcione.

Saída de amostra convertida em JPEG por meio de pnmtojpeg :

R , 35 bytes

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

Experimente online!

rexp()produz um número aleatório a partir de uma função de decaimento exponencial. +1para garantir pelo menos um pato. Todas as linhas após a primeira incluem um espaço à esquerda (que é o separador padrão cat), mas isso é permitido.

Bash , 39 38 37 bytes

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

Experimente online!

Imprime um número de patos igual ao número de dígitos em um número inteiro distribuído uniformemente em [0,32767] (portanto, mais frequentemente do que não, cinco patos (um bom número de patos)).

-1 byte cada, graças a @Chris e @sch apontando pares de aspas que não estavam aumentando seu peso.

Pure Bash (sem utilitários externos), 25

Com base na resposta da @ SophiaLechner , isso também imprime um bom número de patos .

A idéia de @ OlivierDulac de usar o PID do shell de script como armazenado no $parâmetro economiza 5 bytes.

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

Experimente online .

Ruby , 30 bytes

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

Experimente online!

Nota: realmente 31 bytes sem \ntruques.

Bash + Coreutils, 36 27 bytes

yes duck|sed $$q;echo goose

Imprime muitos patos (entre 2 e cat /proc/sys/kernel/pid_max) e depois um ganso.

Economizou nove bytes graças ao Digital Trauma e Olivier Dulac.

Experimente online! (mas lembre-se de que ele pode ser truncado ocasionalmente)

Mesmo comprimento, mas sem echo:

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

Experimente online!

aé o comando append in sede qsai. Ambos são executados apenas na linha $$, o que corresponde ao PID.

PowerShell , 35 30 28 bytes

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

Experimente online! (versão modificada)

Gera uma matriz de Get-Randomnúmero de itens. Pode demorar um pouco. Isso adiciona um +1para garantir que obtemos pelo menos um duck. A versão modificada também inclui um -masinalizador ximo 5para que você possa ver o programa funcionando conforme o esperado (a versão modificada imprimirá 1, 2, 3 ou 4 ducks antes da goose).

A matriz e a goosecadeia solitária são deixadas no pipeline e o implícito Write-Outputnos fornece valores separados por nova linha gratuitamente.

Você não sabe o quão difícil foi para mim não mudar a última linha para "pato cinza" ...

Python 2 , 54 bytes

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

Experimente Online!

C # (compilador interativo do Visual C #) , 55 bytes

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

Experimente online!

Braquilog , 24 21 bytes

-3 bytes graças a Erik, o Outgolfer

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

Experimente online!

Em comemoração ao idioma do mês , meu primeiro post no braquilog. O fluxo de controle nesse idioma é legal.

Como funciona:

"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 objetos

Explicação:

O gatilho BG é o gatilho aleatório do 2.2 atual; portanto, alterna o ID do grupo 1 ou 2.

O primeiro "DUCK" tem um ID de grupo 1, o que faz com que 50% de chance de ser removido ou não (alternado).

Não há nenhum objeto com o ID do grupo 2 neste nível, portanto há 50% de chance de 2 "DUCK "s serem exibidos.

Como reproduzir isso:

O primeiro "DUCK" possui um ID de grupo 1.

Goose e 2nd duck não têm um ID de grupo

Dentro do gatilho aleatório.

05AB1E , 15 14 bytes

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

Experimente online!

Irá imprimir 2, 5 ou 6 patos e depois ganso.

-1 byte graças a @Emigna usando 'para uma única palavra compactada (duck)

APL (Dyalog) , 22 bytes

1 byte salvo graças a @EriktheOutgolfer

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

Experimente online!

Retina , 17 bytes

?\\K`duck
K`goose

Experimente online!

Experimente online!

Imprime 1 ou 2 patos, com igual probabilidade.

Explicação

?\\K`duck

Defina a sequência de trabalho como ducke imprima-a com um avanço de linha à direita ( \). Em seguida, isso é envolto em outro estágio de saída, mas este possui o sinalizador aleatório ( ?) aplicado, portanto, ele imprime apenas com uma probabilidade de 50%.

K`goose

Substitua o duckpor goose, que é impresso implicitamente no final do programa.

Aqui está uma alternativa divertida que imprime 1 pato com 50% de probabilidade, 2 patos com 25%, 3 patos com 12,5% ...:

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

Vim (script) no Linux, 46. 43 bytes (49.46 com :no início da linha)

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

Executado como vim -S filenameou colado na execução vimcom :antes de cada linha.

> <> , 31 22 bytes

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

Experimente online!

-9 bytes com base na revisão Não é uma árvore

Befunge 98 , 38 30 25 bytes

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

Experimente online!

• Obrigado @JoKing por tirar o trampolim inútil
• Mudar para o Befunge 98 para uma nova linha mais curta - agora Duckcabe em uma única string

T-SQL , 70 44 43 bytes (muitos patos)

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

Obrigado @Zac Faragher!

Versão revisada, 54 43 40 bytes (1 ou 2 patos)

Obrigado @BradC!

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

Não consigo fazer isso funcionar corretamente no SQL Fiddle , mas funciona muito bem no LINQPad e no SSMS.

Não tenho certeza se essa é uma limitação conhecida do SQL Fiddle ou estou apenas fazendo algo errado

Powershell - 31 30 bytes

Aviso : é provável que você acabe com muitos patos. Randominclui os valores de 0 a Int32.MaxValueisso, dependendo de quão aleatório você é o número, isso pode ser muito grasnado.

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

Fissão , 24 19 bytes

R"duck"N#
"goose"*[

Experimente online!

-5 bytes graças a Martin Ender

Braquilog , 21 bytes

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

Experimente online!

Ei, a língua do mês está inativa, vamos começar um pouco!

Befunge

57 35 bytes (o perímetro de todo o campo é 19x3 17x2 caracteres) Agradecemos a Karhell pela melhoria.

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

A segunda linha coloca duck e uma nova linha na pilha (para trás) e a produz como uma string. Após essa chance de 75% de voltar ao início e imprimir o duck novamente, 25% (quando o ponto de interrogação decide diminuir) para imprimir o ganso e parar.