이 도전은 법률가의 집에서 볼품없는 크리스마스 조명을 기리는 것입니다.

과제는 "실시간"으로 장식을 보여주는 그래픽 출력을 만드는 것입니다.

비디오 (gif 또는 기타 형식)에는 nxm 세로 및 가로 "조명"이 있습니다. 5 <= m, n <= 40 . 프레임 크기와 해상도는 n 과 m 에 따라 달라질 수 있지만 n, m = 5 (벡터 그래픽은 정상)의 경우 50x50 픽셀 이상이어야합니다 . 있는 그림 과 같이 보일 것입니다 :n=6m=5

장식 :

그림 물감:

모든 표시등은 다음 6 RGB-색상 중 하나를해야합니다 {255,0,0}, {0,255,0}, {0,0,255}, {255,255,0}, {0,255,255}와 {255,0,255}.

생기:

• n및 m합리적인 형식과 당신이 좋아하는 순서대로 입력으로 이동합니다
• 이미지가 매번 바뀝니다 dt = 25 ms. 인터프리터 제한, 느린 컴퓨터 등과 같은 "외부 요인"으로 인한 편차는 괜찮습니다.
  • 시간 간격을 수동으로 설정할 수 없는 경우 기본 시간 간격이 적용됩니다.
• 에서 모든 표시등이 빨간색 ( {255,0,0})으로 표시됩니다 t=0.
• 첫 번째 조명 (왼쪽 위)이 항상 색상을 바꿀 확률은 5 %입니다. 모든 색상 (현재 가지고있는 색상 제외)은 똑같이 가능해야합니다.

• 각 조명 (첫 번째 조명 제외)은 조명 색상을 왼쪽으로 가져옵니다. 조명이 맨 왼쪽에 있으면 맨 위 행의 조명 색상이 표시됩니다. 표시등은 아래와 같이 번호가 지정됩니다. 라이트 번호 k는 라이트 번호 의 색상을 가져옵니다 k-1.

   1  2  3  4  5  6
   7  8  9 10 11 12
  13 14 15 16 17 18
  

• 이론적으로 출력은 항상 실행되어야합니다 (언어 / 통역사가이를 막는 제한이없는 한).

• 5 초 이상, 바람직하게는 더 많은 답변을 샘플로 제공해주십시오 (이것은 권장 사항이 아니라 권장 사항입니다). (TIO 또는 이와 유사한 링크는 물론 OK입니다 : D)
• 프레임, 축, 그리드 선 등이 허용됩니다.

6x5

15x30

자바 스크립트 / CSS / HTML, 436 바이트

b="red"
f=_=>{o.textContent='';o.style.width=w.value*10+"px";o.style.height=h.value*10+"px"}
setInterval(_=>o.insertBefore(document.createElement("s"),o.firstChild).style.background=b=["red","yellow","lime","aqua","blue","fuchsia"][Math.random()*100|0]||b,25)

#o{overflow:hidden;background:red}s{display:block;float:left;width:10px;height:10px}

<div oninput=f()><input id=h type=number min=1><input id=w type=number min=1></div><div id=o>

매쓰, 186 (161) 158 바이트

(b=Table[{1,0,0},1##];Dynamic@Image[Partition[Pause@.025;If[Random[]<.06,b[[1]]={1,1,0,0}~RandomSample~3];b=RotateRight@b;b[[1]]=b[[2]];b,#],ImageSize->50#])&

설명

b=Table[{1,0,0},1##];

빨간색으로 채워진 초기 보드를 1D로 만듭니다. 에 저장하십시오 b.

Pause@.025

25ms 동안 일시 정지

If[Random[]<.06,b[[1]]={1,1,0,0}~RandomSample~3]

(의사) 난수가 0.06보다 작은 경우의 첫 번째 요소를 목록 b의 임의 샘플 길이 3로 바꾸십시오 {1,1,0,0}. (즉, 중 하나 {1, 1, 0}, {1, 0, 1}, {1, 0, 0}, {0, 1, 1}, {0, 1, 0}, {0, 0, 1})

b=RotateRight@b

주기적으로 오른쪽으로 회전합니다.

b[[1]]=b[[2]]

첫 번째 셀 값을 두 번째 셀 값으로 변경하십시오 (즉, 첫 번째 셀의 이동을 취소하십시오).

Partition[ ... ;b,#]

b(높이)로 분할하십시오 .

Dynamic@Image[ ... ,ImageSize->50#]

너비가 50 (너비) 인 동적 (일관 적으로 업데이트되는) 이미지로 만드십시오.

셀룰러 오토 마톤 버전 (186 바이트)

(b=Table[{1,0,0},1##];Dynamic@Image[Partition[Pause@.025;If[Random[]<.06,b[[1]]={1,1,0,0}~RandomSample~3];i=2;b={#[[2-Boole[i--<0],2]]&,{},{1,1}}~CellularAutomaton~b,#],ImageSize->50#])&

샘플 출력 (입력 : 16, 10)

MATLAB, 255 바이트

이것은 나의 첫 번째 골프이므로 개선이 필요할 것입니다.

45 바이트를 절약하는 데 도움을 준 Luis에게 감사드립니다. :)

function f(n,m)
c=dec2bin(1:6)-48;r=1;p=c(r,:);x=zeros(1,n*m,3);x(:,:,1)=1;while 1
x=circshift(x,[0,1,0]);if rand>0.94;r=randi(6);end
x(1,1,:) = c(r,:);imagesc(permute(reshape(x,n,m,3),[2 1 3]));pause(1/40);end

설명:

c=dec2bin(1:6)-48  % c is the colormap
r=1;p=c(r,:);                % p is color number r (starting at 1) from the colormap c
x=zeros(1,n*m,3);x(:,:,1)=1; % 2D matrix in the third dimension. The first layer is 1
while 1                      % while true
x=circshift(x,[0,1,0]);      % shift the vector horizontally along the second dimension
if rand()>0.94;              % 5 percent chance of changing color
k=randperm(6);k=k(k~=r);r=k(1); % Create a vector with color numbers 1..6. Discard the current color, and choose the first color
x(1,1,:) = c(r,:);           % The first light gets color number r
imagesc(permute(reshape(x,n,m,3),[2 1 3]));  % Reshape the vector so that it's a 3D matrix
% Permute it so that the dimensions are correct
% Use imagesc to display
pause(1/40)  % 0.025 seconds pause

불행히도, 이것은 애니메이션을 저장하지 않고 그냥 실행합니다. 저장하려면 화면 캡처 프로그램이 필요하거나를 사용하여 다시 작성하십시오 imwrite. 대신에 다른 시간을 보여주는 두 개의 그림을 제공하겠습니다 n=15,m=30.

MATL , 52 47 바이트

6:BoHZGKipY"`tGe!2YG50Yr3>?t1)}6Yr]0(1YS.015Y.T

입력은 배열 [ncols nrows]입니다. 출력은 벡터 그래픽이있는 그림입니다.

열 15 개 × 행 10 개에 대한 예제 실행 :

작동 원리

처리 시간을 보정하기 위해 일시 ​​정지 시간이 15ms (25ms와 동일한 바이트 수)로 설정되었습니다.

색상을 19/20 확률로 유지하려면 (1/20로 변경) 다음과 같이 진행하십시오.

• 47/50 확률로 색상을 유지합니다.
• 3/50 확률로 6 개의 색상 중에서 균일하게 선택된 새로운 색상을 선택합니다. "새"색상이 이전 색상과 동일 할 수 있으며 1/6 확률로 발생합니다.

따라서 색상을 유지할 확률은 47/50 + 3 / (50 * 6) = 19/20입니다.

6:        % Push [1 2 3 4 5 6]
B         % Convert to binary. This gives a 6×3 matrix, where each row 
          % corresponds to a number. First row is [0 0 1] (blue), second is
          % [0 1 0] (green), etc
o         % Convert to double
HZG       % Set as colormap (creates a figure)
K         % Push 4
i         % Take input array
p         % Product of array. This gives the total number of squares
Y"        % Repeat 4 that many times. This gives a row vector representing the
          % image. The initial value, 4, corresponds to red in the colormap
`         % Do...while
  t       %   Duplicate
  Ge      %   Reshape to size given by the input. Gives a matrix where each
          %   entry  will be interpreted as a pointer to the colormap
  !       %   Transpose. This is required because the color shifting will be
          %   done in column-major order: down, then across; whereas we want
          %   the opposite
  2YG     %   Show matrix as image using the defined colormap
  50Yr    %   Push a uniformly distributed random integer between 1 and 50
  3>      %   True if greater than 3. This happens with probability 47/50
  ?       %   If true
    t1)   %     Duplicate and get first entry (to repeat the first color)
  }       %   Else
    6Yr   %     Push a uniformly distributed random integer between 1 and 6.
          %     This is the new color (possibly the same as the old)
  ]       %   End
  0(      %   Assign that color (repeated or new) to the last entry of the row
          %   vector representing the image
  1YS     %   Circularly shift to the right. The last value becomes the first
 .015Y.   %   Pause 0.015 ms
 T        %   Push true
          % End (implicit). Since the top of the stack is true, this creates
          % an infinite loop

MATLAB, 153 147 바이트

참고 : 표시된 GIF는 이전 버전이므로 축을 표시하지 않으므로 (편집 기록 참조) 좋지만 의 구현으로 인해 매우 느 렸습니다 imshow. 현재 버전의 경우 Chelsea G.의 MATLAB 답변 또는 Luis Mendo의 MATL 답변 은 현재 버전과 동일한 결과를 보여줍니다.

크기는 2x1벡터로 간주되므로 다음과 같이 호출하십시오.

>> l([5 5])

function l(s)
c=eye(3);x=eye(s);while 1
a=rand>.94;x=[a*randi(6)+~a*x(1),x(1:end-1)];imagesc(reshape(x,s)',[1,6]);colormap([c;1-c])
pause(.025)
end

이 답변은 MATLAB 언어의 미묘함을 악용합니다. 예를 들어, 0 행렬 x로 초기화 m x n되지만 소위 선형 인덱싱을 사용하면 1 차원 인덱스를 사용한 순환 이동이 가능합니다. 약한 타이핑은 논리와의 곱셈을 허용하므로 if문장을 피할 수 있습니다 (TI-84 계산기에서 프로그래밍 할 때 많이 사용했던 트릭). 컬러 맵을 행 단위로 읽더라도 MATLAB은이를 일반 행렬로 취급하므로 eye(3)빨강, 녹색 및 파랑 및 1-eye(3)다른 3 가지 색상 을 만드는 데 사용할 수 있습니다 . 간단한 reshape것은 선형 벡터를 행렬 형태로 다시 가져 오며,이를 사용하여 원하는 색상에 매핑됩니다.ind2rgb . 마지막으로imagesc, 기본 그림 크기로 표시된 이미지를 표시합니다 (요구 사항에 충분히 큼). 운에는 그것이 있기 때문에, imagesc지정된 범위 밖에있는 값을 신경 쓰지 않기 때문에 eye모두 이후 매트릭스를 초기화 할 수 있습니다 1및 0빨간색 간주됩니다.

파이썬 3.6 (316 바이트)

ANSI 색상 코드와 Python 3.6 ( PEP 489 ) 의 새로운 형식의 문자열 리터럴 ( f"{X}"마법)을 사용합니다.

그렇지 않으면 꽤 기본이지만 난독 화 된 파이썬입니다. 너비와 높이는 명령 행에서 인수로 전달됩니다.

import random as n,time,sys
r=range
X="\x1b["
C=[f"{X}1;4{x}m " for x in r(1,7)]
w,h=list(map(int,sys.argv[1:]))
a=[C[0]for i in r(w*h)]
while 1:
 print(f"{X}0m{X}2J{X}f");f=a[0];a.pop();a[:0]=n.choice([x for x in C if x!=f])if n.random()<=.05 else f,
 for i in r(0,h*w,w):print(*a[i:i+w],sep="")
 time.sleep(.025)