Это испытание в честь безвкусных рождественских огней в доме моих в законах.

Задача состоит в том, чтобы создать графический вывод, показывающий оформление в «реальном времени».

Видео (gif или другой формат) будет иметь n-m-m вертикальные и горизонтальные «огни». 5 <= m, n <= 40 . Размер и разрешение кадра могут варьироваться в зависимости от n и m , но должны быть не менее 50x50 пикселей для n, m = 5 (с векторной графикой все в порядке). Картинка с n=6и m=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 или аналогичный, конечно, тоже нормально: D)
• Рамки, оси, линии сетки и т. Д. Принимаются.

6-по-5

15-по-30

JavaScript / 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>

Mathematica, 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

Пауза для 25 мс

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 210 байт

Это мой первый гольф, так что, вероятно, будут сделаны улучшения.

Спасибо Луису за помощь в экономии 45 байт :)

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 строк:

Как это работает

Время паузы было установлено равным 15 мс (для того же количества байтов, что и 25 мс), чтобы попытаться компенсировать время обработки.

Чтобы сохранить цвет с вероятностью 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. Для текущей версии ответ MATLAB Челси Г. или ответ 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. Например, xинициализируется как m x nнулевая матрица, но так называемое линейное индексирование допускает круговое смещение с одномерными индексами. Слабая типизация допускает умножение с помощью логики, что позволяет ifизбегать операторов (трюк, который я активно использовал еще во времена программирования на калькуляторе TI-84). Даже если цветовая карта читается построчно, MATLAB рассматривает ее как нормальную матрицу, поэтому eye(3)ее можно использовать для создания красного, зеленого и синего 1-eye(3)цветов , а также трех других цветов. Простое reshapeвозвращает линейный вектор обратно в матричную форму, которая сопоставляется с желаемыми цветами с помощью ind2rgb. В заключение,imagesc, показывает изображение, отображаемое с размером фигуры по умолчанию (достаточно большим для требований). По счастливой случайности imagescзначения не выходят за пределы указанного диапазона, поэтому eyeмогут использоваться для инициализации матрицы, поскольку оба 1и 0считаются красными.

Python 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)