아이들 게임 'Duck, Duck, Goose'를 기억 하십니까? 아니? 나도 마찬가지야

도전

• 개별 라인에 '오리'라는 단어를 정해진 횟수만큼 인쇄하십시오.
• 'goose'라는 단어를 인쇄하십시오.
• 프로그램이 종료됩니다.

규칙

• 가장 적은 바이트로 게임을 시도하십시오.
• 오리는 하나 이상 있어야합니다.
• 목록 끝에 거위가 정확히 하나 있어야합니다.
• 각 줄에 정확히 하나의 새가 있어야합니다. 빈 줄이 없습니다.
• 출력 된 문자열의 경우에는 관련이 없습니다.
• 줄 안에 공백이 있습니다.
• 프로그램이 완료되어야합니다.
• 프로그램이 지속적으로 같은 수의 오리를 생산해서는 안됩니다.

즐기세요!

참고 :이 질문은 비 결정적 출력을 생성하는 가장 짧은 코드 의 사본이 아닙니다

이유는 다음과 같습니다.

• 어린이 게임과의 관계
• 결과 문자열의 정의 된 시작 및 끝 요구 사항 다른 챌린지에는 지정된 출력이 없습니다.
• 답변 다른 경우, 중복되지 않은 챌린지는 한 자리 수의 바이트입니다. 이것의 평균은 약 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 마리의 오리를 반환합니다.

작업 인화점 스크립팅 언어, 48 바이트

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

항상 한두 오리를 인쇄합니다.

random 10과 1 사이의 (부동 소수점) 숫자를 반환합니다.이 숫자는 select배열과 함께 인수로 전달됩니다 [s,""]. 그런 다음 난수가 가장 가까운 정수 (0 또는 1)로 반올림되고 해당 인덱스의 배열 요소가 배열에서 선택됩니다.

전화 :

hint call f

산출:

대체 56 바이트 버전 :

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

월드 오브 워크래프트 81 바이트

월드 오브 워크래프트에서 실행할 수있는 매크로는 다음과 같습니다.

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

마인 크래프트 <1.13, 72 54 바이트

미안 해요

명령:

• 크리에이티브 모드에서 새로운 마인 크래프트 월드 만들기
• 해당 세계의 저장 폴더를 찾아 다음 코드를 data/functions/minecraft/ddg.mcfunction
• /function ddg게임 콘솔에서 실행

작동 방식 :

세계의 모든 엔터티에 대해 "duck"이라는 단어를 출력 한 다음 "goose"라는 단어를 출력합니다. 개체가 지속적으로 생성되고 데스 폰되기 때문에 "오리"의 수는 일정하지 않습니다. 엔티티의 이름을 출력하고 정확히 말한 것을 출력 하기 때문에 tellraw훨씬 짧은 대신 사용 했습니다.saysaytellraw

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

스크린 샷

편집 : { "text": "duck"}을 "duck"으로 변경했습니다 ( "goose"와 동일).

자바 스크립트, 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

설명:

마지막으로 무작위로 설명하겠습니다. 다른 것들은 비슷하지만 0000 년 1 월 1 일부터 오늘까지 의 일수를 사용합니다 .

rand(0, 1) 간격의 난수를 반환합니다 . 따라서 11/rand 보다 큰 숫자를 반환합니다 . 범위 때문에 , 보다 큰 임의의 부동 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.

펄 5 , 20 바이트

먼저 실용적인 26 바이트 :

거위에 걸리기 전에 1-9 번 오리.

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

온라인으로 사용해보십시오!

그러나 많은 메모리와 시간이 있다면 Chris가 제안한이 20 바이트 버전 도 작동합니다.

say"Duck
"x$^T,Goose

이것은 또한 2038 년 문제 가 Perl 5에 대해 해결 될 것이라고 가정하고 , 그렇지 않으면 1 초 20 년 동안 유효하지 않을 것입니다.

파이썬 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 이미지를 생성합니다. Wikipedia에서 두 원본 그림을 다운로드하므로 작동하려면 인터넷에 연결되어 있어야합니다.

pnmtojpeg를 통해 JPEG로 변환 된 샘플 출력 :

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]에 균일하게 분포 된 정수의 자릿수와 동일한 수의 오리를 인쇄합니다 (따라서 5 개의 오리 (좋은 수의 오리)).

@Chris와 @sch 덕분에 -1 바이트는 무게를 당기지 않은 따옴표 쌍을 지적합니다.

순수 배쉬 (외부 유틸리티 없음), 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한 다음 거위를 한 장 인쇄 합니다.

Digital Trauma와 Olivier Dulac 덕분에 9 바이트가 절약되었습니다.

온라인으로 사용해보십시오! (그러나 때때로 잘릴 수 있음을 명심하십시오)

같은 길이지만, 아니오 echo:

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

온라인으로 사용해보십시오!

a의 추가 명령 sed이며 q종료됩니다. 둘 다 라인에서만 실행되며 $$이는 PID에 해당합니다.

PowerShell , 35 30 28 바이트

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

온라인으로 사용해보십시오! (수정 된 버전)

Get-Random많은 수의 항목을 생성 합니다. 시간이 걸릴 수 있습니다. 이것은 +1우리가 적어도 하나를 얻을 수 있도록 추가합니다 duck. 수정 된 버전에는 -maximum 플래그 도 포함되어 5있으므로 프로그램이 예상대로 작동하는 것을 볼 수 있습니다 (수정 된 버전은, 1, 2, 3 또는 4 duck초 전에 인쇄 됨 goose).

배열과 독방 goose문자열은 파이프 라인에 남아 있으며 암시 적으로 Write-Output줄 바꿈으로 구분 된 값을 무료로 제공합니다.

마지막 줄을 "회색 오리" 로 바꾸지 않는 것이 얼마나 어려운지 모르겠습니다 ...

파이썬 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","")

온라인으로 사용해보십시오!

Brachylog , 24 21 바이트

Outgolfer Erik 덕분에 -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의 임의 트리거이므로 그룹 ID 1 또는 2를 토글합니다.

첫 번째 "DUCK"의 그룹 ID는 1이며, 이로 인해 제거되거나 제거되지 않을 확률이 50 %입니다.

이 레벨에는 그룹 ID 2의 오브젝트가 없으므로 "DUCK"가 2 개 표시 될 확률이 50 %입니다.

이것을 재현하는 방법 :

첫 번째 "DUCK"의 그룹 ID는 1입니다.

거위와 두 번째 오리는 그룹 ID가 없습니다

무작위 트리거 내부.

05AB1E , 15 14 바이트

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

온라인으로 사용해보십시오!

2, 5 또는 6 마리의 오리를 인쇄 한 다음 거위를 만듭니다.

단일 압축 단어 (duck)에 '를 사용하는 @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프로그램의 마지막에 암시 적으로 인쇄되는을.

여기에 오리 1 마리를 50 % 확률로, 오리 2 ​​마리를 25 %로, 오리 3 마리를 12.5 %로 인쇄하는 재미있는 대안이 있습니다.

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

Linux의 Vim (스크립트) 46 43 바이트 (49:라인 시작시 46 )

.!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.MaxValue하므로 숫자의 무작위 수에 따라 많은 수의 속임수가 될 수 있습니다.

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

핵분열 , 24 19 바이트

R"duck"N#
"goose"*[

온라인으로 사용해보십시오!

Martin Ender 덕분에 -5 바이트

Brachylog , 21 바이트

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

온라인으로 사용해보십시오!

이달의 언어가 비활성화됩니다.

펀지

57 35 바이트 (전체 필드의 길이는 19x3 17x2 문자) 개선을위한 karhell 덕분입니다.

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

두 번째 줄은 덕과 줄 바꿈을 스택에 넣고 (뒤로) 문자열로 출력합니다. 그 후 75 %의 확률로 오리를 다시 시작하고 오리를 다시 인쇄하면 25 % (물음표가 내려 가기로 결정한 경우)가 거위를 인쇄하고 중지합니다.