그래서 지난주에 나는 Duck, Duck, Goose 를하는 도전을 올렸습니다 . 이로 인해 많은 미네 소탄이 지역 '회색 오리'변형에 대해 언급했습니다 .

규칙은 다음과 같습니다.

이 색상 목록 사용 :

Red
Orange
Yellow
Green
Blue
Indigo
Violet
Gray

다음 규칙을 따르는 프로그램을 작성하십시오.

1. 이 색상 중 하나를 선택하고 'duck'이라는 단어 앞에 붙인 다음 새 줄로 결과를 인쇄하십시오.
2. 색상이 '회색'이 아닌 경우 1 단계를 반복하십시오.
3. 색상이 '회색'인 경우 프로그램을 종료하십시오.

준수해야 할 규칙 :

• 프로그램은 동일한 수의 행을 일관되게 인쇄해서는 안됩니다.
• 그것은 '회색 오리'에서 시작할 수 있지만 일관되게해서는 안됩니다.
• 각 줄마다 정확히 하나의 오리가 있어야하며 빈 줄은 출력되지 않습니다.
• 색과 오리 사이에 최소한 하나의 공간이 있어야합니다.
• 중요한 출력 전후의 공백은 중요하지 않습니다.
• 출력의 경우는 중요하지 않습니다.
• 색상을 반복 할 수 있습니다.
• 출력에 매번 모든 색상을 포함 할 필요는 없지만 코드가 모든 색상을 출력 할 수 있어야합니다.
• 위 배열 이외의 색상은 포함 할 수 없습니다.
• 답변에 회색 또는 회색이 허용됩니다.
• 색상이 동일한 순서로되어서는 안됩니다.
• 가장 짧은 프로그램을 목표로하십시오. 가장 적은 바이트 수가 이깁니다.

출력 예 :

Green duck
Orange duck
Yellow duck
Indigo duck
Yellow duck 
Gray duck

이 변형을 알려주는 @Mike Hill에게 감사드립니다.

05AB1E , 42 40 바이트

Outgolfer Erik 덕분에 2 바이트 절약

[“ëßigo°¯†¾›ÈŠÛˆ¨‡—°Íolet“#7ÝΩ©è'Ðœðý,®#

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

LuaLaTeX, 220 211 자

명령:

lualatex -interaction nonstopmode

가장 짧지는 않지만 가장 멋집니다. @skillmon의 솔루션을 기반으로

\RequirePackage{tikzducks}\newcount\b\let~\def~\0{red}~\1{orange}~\2{yellow}~\3{green}~\4{blue}~\5{cyan}~\6{violet}~\7{gray}\loop\b\uniformdeviate8\tikz\duck[body=\csname\the\b\endcsname]; \ifnum\b<7\repeat\stop

6502 머신 코드 (C64), 124 바이트

00 C0 AD 12 D0 85 02 A2 17 8E 18 D0 A5 02 F0 03 0A 90 02 49 1D 85 02 A8 CA 10
02 A2 2F BD 42 C0 D0 F6 88 D0 F3 86 FB E8 BD 42 C0 F0 06 20 16 E7 E8 D0 F5 AA
BD 73 C0 F0 06 20 16 E7 E8 D0 F5 A6 FB D0 C9 60 00 C7 52 45 59 00 D2 45 44 00
CF 52 41 4E 47 45 00 D9 45 4C 4C 4F 57 00 C7 52 45 45 4E 00 C2 4C 55 45 00 C9
4E 44 49 47 4F 00 D6 49 4F 4C 45 54 00 20 44 55 43 4B 0D 00

온라인 데모 -사용법 :SYS49152.

설명 (설명 분해) :

         00 C0       .WORD $C000        ; load address
.C:c000  AD 12 D0    LDA $D012          ; current rasterline as seed
.C:c003  85 02       STA $02            ; to "random" value
.C:c005  A2 17       LDX #$17           ; cfg for upper/lower, also use as
.C:c007  8E 18 D0    STX $D018          ;    initial index into colors array
.C:c00a   .loop:
.C:c00a  A5 02       LDA $02            ; load current random val
.C:c00c  F0 03       BEQ .doEor         ; zero -> feedback
.C:c00e  0A          ASL A              ; shift left
.C:c00f  90 02       BCC .noEor         ; bit was shifted out -> no feedback
.C:c011   .doEor:
.C:c011  49 1D       EOR #$1D
.C:c013   .noEor:
.C:c013  85 02       STA $02            ; store new random val
.C:c015  A8          TAY                ; use as counter for next color string
.C:c016   .findloop:
.C:c016  CA          DEX                ; next char pos in colors (backwards)
.C:c017  10 02       BPL .xok           ; if negative ...
.C:c019  A2 2F       LDX #$2F           ;    load length of colors - 1
.C:c01b   .xok:
.C:c01b  BD 42 C0    LDA .colors,X      ; load character from colors
.C:c01e  D0 F6       BNE .findloop      ; not zero, try next character
.C:c020  88          DEY                ; decrement random counter
.C:c021  D0 F3       BNE .findloop      ; not zero, continue searching
.C:c023  86 FB       STX $FB            ; save character position
.C:c025  E8          INX                ; increment to start of color
.C:c026   .outloop:
.C:c026  BD 42 C0    LDA .colors,X      ; output loop for color string
.C:c029  F0 06       BEQ .duckout
.C:c02b  20 16 E7    JSR $E716
.C:c02e  E8          INX
.C:c02f  D0 F5       BNE .outloop
.C:c031   .duckout:
.C:c031  AA          TAX                ; A is now 0, use as char pos for duck
.C:c032   .duckoutloop:
.C:c032  BD 73 C0    LDA .duck,X        ; output loop for duck string
.C:c035  F0 06       BEQ .outdone
.C:c037  20 16 E7    JSR $E716
.C:c03a  E8          INX
.C:c03b  D0 F5       BNE .duckoutloop
.C:c03d   .outdone:
.C:c03d  A6 FB       LDX $FB            ; load saved character position
.C:c03f  D0 C9       BNE .loop          ; not zero -> continue main loop
.C:c041  60          RTS                ; zero was start of "Grey" -> done
.C:c042   .colors:
.C:c042  00 c7 52 45    .BYTE 0, "Gre"
.C:c046  59 00 d2 45    .BYTE "y", 0, "Re"
.C:c04a  44 00 cf 52    .BYTE "d", 0, "Or"
.C:c04e  41 4e 47 45    .BYTE "ange"
.C:c052  00 d9 45 4c    .BYTE 0, "Yel"
.C:c056  4c 4f 57 00    .BYTE "low", 0
.C:c05a  c7 52 45 45    .BYTE "Gree"
.C:c05e  4e 00 c2 4c    .BYTE "n", 0, "Bl"
.C:c062  55 45 00 c9    .BYTE "ue", 0, "I"
.C:c066  4e 44 49 47    .BYTE "ndig"
.C:c06a  4f 00 d6 49    .BYTE "o", 0, "Vi"
.C:c06e  4f 4c 45 54    .BYTE "olet"
.C:c072  00             .BYTE 0
.C:c073   .duck:
.C:c073  20 44 55 43    .BYTE " duc"
.C:c077  4b 0d 00       .BYTE "k", $d, 0

펄 5 , 79 바이트

say$_=(Grey,Red,Orange,Yellow,Green,Blue,Indigo,Violet)[rand 8]." duck"until/y/

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

택시 1995 바이트

Go to Heisenberg's:w 1 r 3 r 1 l.[a]Pickup a passenger going to Divide and Conquer.8 is waiting at Starchild Numerology.8 is waiting at Starchild Numerology.Go to Starchild Numerology:n 1 l 3 l 1 l 3 l.Pickup a passenger going to Divide and Conquer.Pickup a passenger going to Multiplication Station.Go to Divide and Conquer:w 1 r 3 r 1 r 2 r 1 r.Pickup a passenger going to Cyclone.Go to Cyclone:e 1 l 1 l 2 l.Pickup a passenger going to What's The Difference.Pickup a passenger going to Trunkers.Go to Zoom Zoom:n.Go to Trunkers:w 3 l.Pickup a passenger going to What's The Difference.Go to What's The Difference:w 2 r 1 l.Pickup a passenger going to Multiplication Station.1 is waiting at Starchild Numerology.Go to Starchild Numerology:e 1 r 1 l 3 l.Pickup a passenger going to Addition Alley.Go to Multiplication Station:w 1 r 2 r 1 r 4 l.Pickup a passenger going to Addition Alley.Go to Addition Alley:n 2 l 1 r 3 l 1 l.Pickup a passenger going to The Underground.'Red duck\n' is waiting at Writer's Depot.'Orange duck\n' is waiting at Writer's Depot.'Yellow duck\n' is waiting at Writer's Depot.'Green duck\n' is waiting at Writer's Depot.'Blue duck\n' is waiting at Writer's Depot.'Indigo duck\n' is waiting at Writer's Depot.'Violet duck\n' is waiting at Writer's Depot.'Grey duck' is waiting at Writer's Depot.Go to Writer's Depot:n 1 l 1 l.[b]Pickup a passenger going to Narrow Path Park.Go to Narrow Path Park:n 3 r 1 l 1 r.Go to The Underground:e 1 r.Switch to plan "c" if no one is waiting.Pickup a passenger going to The Underground.Go to Writer's Depot:s 2 r 1 l 2 l.Switch to plan "b".[c]Go to Narrow Path Park:n 4 l.Pickup a passenger going to Post Office.Go to Post Office:e 1 r 4 r 1 l.Go to Writer's Depot:s 1 r 1 l 2 l.Switch to plan "a" if no one is waiting.[d]Pickup a passenger going to Sunny Skies Park.Go to Sunny Skies Park:n 2 r.Go to Writer's Depot:n 1 l.Switch to plan "e" if no one is waiting.Switch to plan "d".[e]Go to Heisenberg's:n 3 r 3 r.Switch to plan "a".

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

이 코드의 47 %가 1에서 8까지의 임의의 정수를 선택한다는 점에 주목할 가치가 있다고 생각합니다.
또한 택시는 너무 장황 duck\n하므로 나중에 연결하지 않고 각 색상마다 하드 코딩하는 것이 훨씬 짧 습니다.
골프 용 버전은 다음과 같습니다.

Go to Heisenberg's: west 1st right 3rd right 1st left.

[Pick up a random INT 1-8 going to The Underground]
[a]
Pickup a passenger going to Divide and Conquer.
8 is waiting at Starchild Numerology.
8 is waiting at Starchild Numerology.
Go to Starchild Numerology: north 1st left 3rd left 1st left 3rd left.
Pickup a passenger going to Divide and Conquer.
Pickup a passenger going to Multiplication Station.
Go to Divide and Conquer: west 1st right 3rd right 1st right 2nd right 1st right.
Pickup a passenger going to Cyclone.
Go to Cyclone: east 1st left 1st left 2nd left.
Pickup a passenger going to What's The Difference.
Pickup a passenger going to Trunkers.
Go to Zoom Zoom: north.
Go to Trunkers: west 3rd left.
Pickup a passenger going to What's The Difference.
Go to What's The Difference: west 2nd right 1st left.
Pickup a passenger going to Multiplication Station.
1 is waiting at Starchild Numerology.
Go to Starchild Numerology: east 1st right 1st left 3rd left.
Pickup a passenger going to Addition Alley.
Go to Multiplication Station: west 1st right 2nd right 1st right 4th left.
Pickup a passenger going to Addition Alley.
Go to Addition Alley: north 2nd left 1st right 3rd left 1st left.
Pickup a passenger going to The Underground.

[Use the random INT to select a color]
'Red duck\n' is waiting at Writer's Depot.
'Orange duck\n' is waiting at Writer's Depot.
'Yellow duck\n' is waiting at Writer's Depot.
'Green duck\n' is waiting at Writer's Depot.
'Blue duck\n' is waiting at Writer's Depot.
'Indigo duck\n' is waiting at Writer's Depot.
'Violet duck\n' is waiting at Writer's Depot.
'Grey duck' is waiting at Writer's Depot.
Go to Writer's Depot: north 1st left 1st left.
[b]
Pickup a passenger going to Narrow Path Park.
Go to Narrow Path Park: north 3rd right 1st left 1st right.
Go to The Underground: east 1st right.
Switch to plan "c" if no one is waiting.
Pickup a passenger going to The Underground.
Go to Writer's Depot: south 2nd right 1st left 2nd left.
Switch to plan "b".

[Output the selected color]
[c]
Go to Narrow Path Park: north 4th left.
Pickup a passenger going to Post Office.
Go to Post Office: east 1st right 4th right 1st left.

[If the color was grey, exit by error]
Go to Writer's Depot: south 1st right 1st left 2nd left.
Switch to plan "a" if no one is waiting.

[Get rid of the rest of the colors]
[You could throw them off a bridge but you won't get paid]
[d]
Pickup a passenger going to Sunny Skies Park.
Go to Sunny Skies Park: north 2nd right.
Go to Writer's Depot: north 1st left.
Switch to plan "e" if no one is waiting.
Switch to plan "d".

[Start over from the beginning]
[e]
Go to Heisenberg's: north 3rd right 3rd right.
Switch to plan "a".

자바 (OpenJDK 9) , 133 바이트

v->{for(int x=9;x>0;)System.out.println("Grey,Red,Orange,Yellow,Green,Blue,Indigo,Violet".split(",")[x+=Math.random()*8-x]+" duck");}

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

설명

v->{                              // Void-accepting void lambda function
  for(int x=9;x>0;)               //  Loop until x is zero
    System.out.println(           //   Print...
        "Grey,Red,Orange,         //       colors, "Grey" first
         Yellow,Green,Blue,       //          more colors
         Indigo,Violet"           //          more colors
        .split(",")               //       as an array
          [x+=Math.random()*8-x]  //       pick one randomly, use implicit double to int cast with "x+=<double>-x" trick
        +" duck");                //      Oh, and append " duck" to the color.
}

루비 , 93 91 90 89 87 86 85 바이트

^{2 바이트, Kirill L. 1 바이트 및 Asone Tuhid 1 바이트 를 절약 한 Dom Hastings 에게 감사드립니다 !}

puts %w(Red Orange Yellow Green Blue Indigo Violet Grey)[$.=rand(8)]+" duck"while$.<7

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

인화점 스크립팅 언어, 133 바이트

f={s="";v=s;while{v!="grey"}do{v=["Red","Orange","Yellow","Green","Blue","Indigo","Violet","Grey"]select random 7;s=s+v+" duck\n"};s}

전화 :

hint call f

출력 예 :

처음에는 목표가 단순히 "회색 오리"라인에서 끝나는 것이 아니라 다양한 양의 라인을 출력하는 것처럼 도전을 잘못 읽었습니다. 그 잘못된 해석에 따라 약간 더 흥미로운 코드 조각이 생성되었습니다.

f={s="";c=[1];c set[random 9,0];{s=s+(["Red","Orange","Yellow","Green","Blue","Indigo","Violet","Grey"]select random 7)+" duck\n"}count c;s}

pdfTeX, 231 220 219 209 207 바이트

\newcount\b\let~\def~\0{Red}~\1{Orange}~\2{Yellow}~\3{Green}~\4{Blue}~\5{Indigo}~\6{Violet}~\7{Gray}~\9{ }\newlinechar`z\loop\b\pdfuniformdeviate8\message{z\csname\the\b\endcsname\9duck}\ifnum\b<7\repeat\bye

LuaTeX, 216 (206) 204 바이트

\newcount\b\let~\def~\0{Red}~\1{Orange}~\2{Yellow}~\3{Green}~\4{Blue}~\5{Indigo}~\6{Violet}~\7{Gray}~\9{ }\newlinechar`z\loop\b\uniformdeviate8\message{z\csname\the\b\endcsname\9duck}\ifnum\b<7\repeat\bye

Brachylog , 68 바이트

"Grey","
Red
Orange
Yellow
Green
Blue
Indigo
Violet"ṇṛS," duck"ẉS¬?↰

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

루비 , 84 81 바이트

-3 바이트의 Dom Hastings에게 감사합니다.

puts$_=%w[Red Orange Yellow Green Blue Indigo Violet Grey].sample+" duck"until/y/

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

PHP, 89 바이트

do echo[Grey,Red,Orange,Yellow,Green,Blue,Indigo,Violet][$i=rand()%8]," Duck
";while($i);

온라인으로 실행 -nr하거나 사용해보십시오 .

> <> 107 바이트

x<>" duck"a>
x<^"deR"
x<^"egnarO"
x<^"wolleY"
x<^"neerG"
x<^"eulB"
x<^"ogidnI"
x<^"teloiV"
x"Grey duck"r>o|

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

옥타브 , 114112 바이트

do disp([strsplit('Red Orange Yellow Green Blue Indigo Violet'){i=randi(7)},' duck'])until i>6
disp('Grey duck')

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

112에서 118 바이트 사이의 다양한 옵션이 있습니다. 일부는 시작시 인덱스를 초기화하고 각 루프에 대해 임의의 숫자만큼 감소시키고 0이 될 때까지 기다립니다 . 일부는 대괄호 등을 피하기 위해 printf대신 사용 합니다 disp.

PHP , 133 125 111 108 97 92 바이트

<?for(;$b=[Red,Orange,Yellow,Green,Blue,Indigo,Violet][rand(0,7)];)echo"$b duck
"?>Grey duck

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

@Olivier Grégoire 덕분에 -8 바이트

@manatwork 덕분에 -3 바이트

@Dom Hastings 덕분에 -11 바이트

배쉬 + GNU 유틸리티, 72

shuf -e {Red,Orange,Yellow,Green,Blue,Indigo,Violet,Grey}\ Duck|sed /y/q

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

bash, 96 바이트

a=(Grey Red Orange Yellow Green Blue Indigo Violet);for((i=1;i;));{ echo ${a[i=RANDOM%8]} duck;}

@DigitalTrauma에게 감사합니다.

자바 스크립트, 104 바이트

f=_=>`grey,red,orange,yellow,green,blue,indigo,violet`.split`,`[n=Math.random()*8|0]+` duck
${n?f():``}`

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

AWK , 114 바이트

{srand();for(split("Red9Orange9Yellow9Green9Blue9Indigo9Violet9Grey",A,9);r<8;print A[r]" duck")r=int(8*rand()+1)}

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

설명

{srand();                  # Seed rand to obtain different sequence each run
for(
     split("Red9Orange9Yellow9Green9Blue9Indigo9Violet9Grey",
            A,9);          # Split on 9 to avoid using '"'s
     r<8;
     print A[r]" duck")    # Print the colored ducks
     r=int(8*rand()+1)     # AWK uses 1-indexing not 0-indexing when splitting strings into arrays
}

여기에는 "일부"입력이 필요합니다. 입력이 비어있을 수 있습니다. 입력이 필요하지 않도록하려면 첫 줄 앞에BEGIN

PowerShell , 94 바이트

for(;$r-ne'Grey'){$r=-split"Red
Orange
Yellow
Green
Blue
Indigo
Violet
Grey"|Random;"$r Duck"}

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

가 될 때까지 반복 $r합니다 Grey. 루프 내에서 -split줄 바꿈의 리터럴 문자열은 Random그중 하나를 선택한 다음 색상을 인쇄합니다 Duck(기술적으로는 파이프 라인에 남아 있고 다음 루프 반복에서 파이프 라인 정리는 a Write-Output를 발생 시킵니다 ). 이론 상으로는 Grey절대로 선택하지 않고 루프를 무한정 계속할 수는 있지만 거의 (확률 적으로) 일어날 수는 없습니다.

R , 101 바이트

cat(paste(c(sample(scan(,""),rexp(1),T),"gray"),"duck\n"))
Red
Orange
Yellow
Green
Blue
Indigo
Violet

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

관련 도전에 대한 @ user2390246의 답변 에서 많은 영감을 얻었습니다 . 색상의 순서를 변경하고 회색이 아닌 오리 색상을 샘플링하는 두 가지 임의성 소스가 필요합니다. 는 sample레이트 파라미터 지수 분포에 의해 주어진 임의의 크기의 무작위 샘플 걸릴 1정수를 절단. 지수 distrubtion 사용 불행히도의 가능성이 있음을 의미 exp(-8)하거나 주변 0.0003354 샘플 적어도 될 것으로 8우리가 샘플, 그래서 replace=T.

파이썬 (2) , 138 (133) 120 117 116 바이트

import os
while id:id=ord(os.urandom(1))%8;print"Grey Red Orange Yellow Green Blue Indigo Violet".split()[id],'duck'

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

@EriktheOutgolfer의 아이디어로 훨씬 좋습니다. 감사!

@ovs 덕분에 -3 더

멋진 새로운 트릭을 배워 @Rod 덕분에 -1 :-)

레티 나 , 69 68 바이트

1 바이트를 절약 해 준 Leo에게 감사합니다.

.^/y/{K`Red¶Orange¶Yellow¶Green¶Blue¶Indigo¶Violet¶Grey
" duck¶">?G`

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

설명

./y/^{K`Red¶Orange¶Yellow¶Green¶Blue¶Indigo¶Violet¶Grey

.프로그램의 끝에서 암시 적 출력을 억제합니다 (그렇지 않으면 회색 오리 두 개를 얻습니다). /y/^{작업 문자열에을 포함하지 않는 한 전체 프로그램을 루프로 래핑합니다 y. 해당 줄의 나머지 부분은 작업 문자열을 줄 바꿈으로 구분 된 모든 색상 목록으로 설정합니다.

" duck¶">G?`

우리는 작업 문자열에서 임의의 줄을 그 리핑합니다 (따라서 임의의 색상). 그리고 결과를 후행 duck과 줄 바꿈으로 인쇄합니다 .

MATL , 68 64 바이트

`'DYCIXMSQ(qm#Q$4{#is,Gh1(=lAjUSId;&'F2Y232hZaYb8YrX)' duck'h7Mq

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

설명

`                         % Do...while
  'DYCI···Id;&'           %   Push this string (to be decompressed by base conversion)
  F                       %   Push false
  2Y2                     %   Push string 'abc...xyz'
  32                      %   Push 32 (ASCII for space)
  h                       %   Concatenate horizontally. Gives 'abc...xyz '
  Za                      %   Base-convert from alphabet of all printable ASCII
                          %   characters except single quote (represented by input
                          %   false) to alphabet 'abc...xyz '. Produces the string
                          %   'grey red ··· violet'
  Yb                      %   Split on space. Gives a cell array of strings
  8Yr                     %   Random integer from 1 to 8, say k
  X)                      %   Get the content of the k-th cell
  ' duck'                 %   Push this string
  h                       %   Concatenate horizontally
  7M                      %   Push k again
  q                       %   Subtract 1
                          % Implicit end. Run a new iteration if top of the stack
                          % is non-zero
                          % Implicit display

파이썬 3, 130 , 128 , 127 , 126 , 125 바이트

from random import*
d,c=1,'Grey Red Orange Yellow Green Blue Indigo Violet'.split()
while d!=c[0]:d=choice(c);print(d,'duck')

@ElPedro에 의해 -1!
-1 by me
-1 by @Bubbler!

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

자바 (JDK 10) , 287 바이트

Random r=new Random();int i;String c;do{i=r.nextInt(8);switch(i){case 0:c="Red";break;case 1:c="Orange";break;case 2:c="Yellow";break;case 3:c="Green";break;case 4:c="Blue";break;case 5:c="Indigo";break;case 6:c="Violet";break;default:c="Gray";}System.out.println(c+" duck");}while(i!=7)

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

내 첫 번째 코드 골프! 분명히 경쟁적이지 않고 참여할 수있는 충분한 Java (현재 CS200)를 알게되어 기쁩니다.

코 틀린 , 122 바이트

while({x:Any->println("$x duck");x!="Grey"}("Red,Orange,Yellow,Green,Blue,Indigo,Violet,Grey".split(",").shuffled()[0])){}

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

MS-SQL, 158 바이트

DECLARE @ VARCHAR(6)a:SELECT @=value FROM STRING_SPLIT('Red,Orange,Yellow,Green,Blue,Indigo,Violet,Grey',',')ORDER BY NEWID()PRINT @+' duck'IF @<>'Grey'GOTO a

Razvan의 탁월한 답변을 기반으로 하지만 STRING_SPLITMS-SQL 2016 이상에 고유 한 기능을 사용합니다 . 루프 GOTO대신 사용합니다 WHILE.

형식화 :

DECLARE @ VARCHAR(6)
a:
    SELECT @=value FROM 
        STRING_SPLIT('Red,Orange,Yellow,Green,Blue,Indigo,Violet,Grey',',')
        ORDER BY NEWID()
    PRINT @+' duck'
IF @<>'Grey'GOTO a

T-SQL , 195 185 184 바이트

DECLARE @ VARCHAR(9)=''WHILE @<>'Grey'BEGIN SELECT @=c FROM(VALUES('Red'),('Orange'),('Yellow'),('Green'),('Blue'),('Indigo'),('Violet'),('Grey'))v(c)ORDER BY NEWID()PRINT @+' Duck'END

파이썬 2 , 98 바이트

수입품은 없습니다!

v=0
while 1:x=id(v)%97%8;print"GVIYORGBrinererleodladeuyliln ee egog n  towe"[x::8],"duck";v=1/x,v

(색상 사이와 duck질문에 허용 된대로 여분의 공백을 인쇄 합니다)

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

객체 ID가 0 인 시드 (예 : 사양에 맞는 것)로 시딩 된 꽤 불량한 의사 난수 생성기 x는 [0,7] 에서 해당 색인에서 문자 목록을 슬라이스하는 데 사용되는 정수를 반복적으로 생성합니다 . 단계 8duck 사이의 간격을 강제로 튜플 과 함께 인쇄되는 색상 이름을 가져옵니다 . 되면 x제로가된다 Grey인쇄 및 모듈의 다음 입력의 평가는 0으로 나누는 시도 난수 발생기 에러 계 ( v=1/x,v첫 번째 요소로 새로운 튜플을 시도가 1/x= 1/0)

같은 방법으로 파이썬 3에서 100을

v=0
while 1:x=id(v)%17%8;print("GVIYORGBrinererleodladeuyliln ee egog n  towe"[x::8],"duck");v=1/x,v