Этот! такое цветовая сетка RGB ...

В основном это двумерная матрица, в которой:

• Первый ряд и первый столбец красного цвета.
• Второй ряд и второй столбец зеленого цвета.
• Третий ряд и третий столбец синего цвета.

Вот цвета, описанные графически с использованием букв R, G и B.

Вот как мы вычисляем цвет каждого пространства в сетке.

• Красный + Красный = Красный (# FF0000)
• Зеленый + Зеленый = Зеленый (# 00FF00)
• Синий + синий = синий (# 0000FF)
• Красный + Зеленый = Желтый (# FFFF00)
• Красный + Синий = Фиолетовый (# FF00FF)
• Зеленый + Синий = Чирок (# 00FFFF)

Соревнование

• Напишите код для создания цветовой сетки RGB.
• Это код гольф, поэтому попытайтесь сделать это наименьшим количеством байтов.
• Используйте любой язык программирования или язык разметки для создания вашей сетки.
• Вещи, которые меня волнуют:
  • Результат должен графически отображать сетку RGB с заданными цветами.
• Вещи, которые меня не волнуют:
  • Если выводом является изображение, HTML, SVG или другая разметка.
  • Размер или форма цветовых блоков.
  • Границы, расстояние и т. Д. Между или вокруг блоков.
  • Определенно не обязательно иметь ярлыки, указывающие, какими должны быть цвета строк и столбцов.

Баш, 44

• 2 байта сохранены благодаря @NahuelFouilleul
• 2 байта сохранены благодаря @manatwork

printf "${f=^[[3%dm.}$f$f
" 1 3 5 3 2 6 5 6 4

Здесь блоки - это .символы. ^[является буквенным escape-символом ASCII (0x1b).

Вы можете воссоздать этот скрипт следующим образом:

base64 -d <<< cHJpbnRmICIke2Y9G1szJWRtLn0kZiRmCiIgMSAzIDUgMyAyIDYgNSA2IDQ= > rgbgrid.sh

Сборка 8088, IBM PC DOS,  44  43 байта

Листинг:

BE 0122     MOV  SI, OFFSET CTBL    ; load color bar table into [SI]
        LOOP_COLOR: 
B9 0001     MOV  CX, 1              ; display 1 char and clear CH (changed by INT 10H:3)
AC          LODSB                   ; load next color byte 
8A D8       MOV  BL, AL             ; move new color to BL
3C 10       CMP  AL, 010H           ; if this is third color in row: SF=0, CF=0 
                                    ; else if last color: SF=1, CF=0
                                    ; else continue on same row: CF=1
B8 09DB     MOV  AX, 09DBH          ; AH=9 (write char with attr), AL=0DBH (a block char) 
CD 10       INT  10H                ; call PC BIOS, display color block
B4 03       MOV  AH, 3              ; get cursor position function
CD 10       INT  10H                ; call PC BIOS, get cursor
72 04       JC   NEXT_COL           ; if not last in row, move to next column 
78 09       JS   EXIT               ; if last color, exit 
B2 FF       MOV  DL, -1             ; otherwise move to first column and next row 
        NEXT_COL:
42          INC  DX                 ; move to next column (and/or row)
B4 02       MOV  AH, 2              ; set cursor position function 
CD 10       INT  10H                ; call PC BIOS, set cursor position
EB E2       JMP  LOOP_COLOR         ; loop to next color byte 
        EXIT:
C3          RET                     ; return to DOS
CTBL    DB  0CH, 0EH, 1DH, 0EH, 0AH, 1BH, 0DH, 0BH, 91H ; color table

При этом используются INT 10Hвидеосервисы IBM PC BIOS для записи цветовой сетки на экран. К сожалению, единственный способ написать определенный атрибут цвета требует также написания кода для размещения курсора в следующем правильном месте, так что для этого есть много дополнительного кода.

Вот вывод, работающий на IBM PC CGA (в текстовом режиме 40x25, чтобы сделать его больше).

Загрузите и протестируйте RGBGRID.COM для DOS.

Wolfram Language (Mathematica) , 41 байт

Image@Outer[Plus,#,#,1]&@IdentityMatrix@3

Wolfram Language (Mathematica) , 68 байт

Mathematica имеет встроенные модули для всех этих цветов.

Image@{{Red,Yellow,Magenta},{Yellow,Green,Cyan},{Magenta,Cyan,Blue}}

80386 машинный код, IBM PC DOS, 38 байт

шестигранный:

B0 13 CD 10 68 00 A0 1F 66 C7 06 00 00 28 2C 24
00 66 C7 06 40 01 2C 30 34 00 66 C7 06 80 02 24
34 20 00 CD 16 C3

как м:

mov al,13h
int 10h ; initialize vga 13h mode (320x200x256 colors)
push 0a000h
pop ds ; push video buffer address to ds
mov dword ptr ds:0, 242c28h ; print 3 pixels
mov dword ptr ds:320, 34302ch ; print 3 pixels
mov dword ptr ds:640, 203424h ; print 3 pixels
int 16h ; wait for any keypress
ret ; exit to os

масштабированный вывод из dosbox:

Excel VBA (немедленное окно), 80 байт

For i=1To 9:Cells(i Mod 3+1,(i+1)/3).Interior.ColorIndex=Mid(673486857,i,1):Next

Excel VBA (функция), 96 байт

Sub g()
For i=1To 9
Cells(i Mod 3+1,(i+1)/3).Interior.ColorIndex=Mid(673486857,i,1)
Next
End Sub

Не ужасный инструмент для работы ... Я ценю тот факт, что Excel уже показывает сетку, так что это вопрос настройки цвета фона.

Благодарим @Neil за предложение использовать ColorIndexвместо Color43-байтовой экономии.

-21 байт благодаря @Keeta

-16 байт спасибо @Chronocidal за предложение "Немедленное окно"

-2 байта благодаря @i_saw_drones

Множество изменений от моего первоначального представления :)

GFA Basic 2.02 (Atari ST), 48 байт

Отредактированный вручную листинг в формате .LST. Включает в себя множество непечатаемых символов, коды которых указаны в скобках.

?"[ESC]c[SOH] [ESC]c[ETX] [ESC]c[ENQ] "[CR]
?"[ESC]c[ETX] [ESC]c[STX] [ESC]c[ACK] "[CR]
?"[ESC]c[ENQ] [ESC]c[ACK] [ESC]c[EOT] "[CR]

Операционная система Atari ST определяет расширенные команды VT52, которые используются здесь.

Выход

$24\times24$$8\times8$

^{скриншот из Steem SSE}

SVG, 210 182 байта

<svg><path d="h3v3h-3" fill=#f0f/><path d="h2v2h-2" fill=#ff0/><path d="m1 1h2v2h-2" fill=#0ff/><line x2=1 stroke=red/><path d="m1 1h1v1h-1" fill=#0f0/><path d="m2 2h1v1" fill=#00f/>

Поскольку размер или форма цветовых блоков не имеет значения, с помощью этой немного странной компоновки можно выделить несколько байтов:

HTML + CSS, 121 120 байт

Худший кусок HTML, который я когда-либо писал. Сохранение одного байта благодаря @Gust van de Wal

b{color:#ff0}a{color:cyan}i{color:lime}u{color:blue

<pre><body bgcolor=#f0f text=red>█<b>█
█<i>█<a>█
 █<u>█

HTML + CSS, 114 байт (частично допустимый)

Я полагаю это как полу-действительный, потому что синий не совсем синий # 0000FF и также полагается на то, что не щелкнул ссылку.

Спасибо @Lynn за идею

b{color:#ff0}i{color:lime}c{color:cyan

<pre><body bgcolor=#f0f text=red>█<b>█
█<i>█<c>█
 █<a href=x>█

Дитаа , 118 байт

/----+----+----\
|cF00|cFF0|cF0F|
+----+----+----+
|cFF0|c0F0|c0FF|
+----+----+----+
|cF0F|c0FF|c00F|
\----+----+----/

Это вывод с использованием -Eопции:

R, 89 50 48 байтов

Новейшая версия:

image(matrix(c(6,4,5,2:4,1,2),3),col=rainbow(6))

Недостаточно элементов в векторе, чтобы заполнить матрицу 3х3, поэтому он оборачивается и повторно использует первый элемент.

Старые версии:

image(matrix(c(6,4,5,2:4,1,2,6),3),col=rainbow(6))

image(matrix(c(3,5,6,2,4,5,1:3),3),col=c('red','yellow','magenta','green','cyan','blue'))

Excel-VBA, 89 73 72 70 байт

Изменить: Вы можете использовать непосредственное окно и отказаться от Sub/, End Subчтобы сохранить 16 байтов:

For i=1To 9:[A:C].Cells(i).Interior.ColorIndex=Mid(367648785,i,1):Next

Оригинальный ответ:

Sub a()
For i=1To 9
[A1:C3].Cells(i).Interior.ColorIndex=Mid(367648785,i,1)
Next
End Sub

Это было вдохновлено предложением Нила об этом ответе, и это мое первое представление!

Результат:

-2 байта : удаление номеров строк ячеек - благодаря Тейлору Скотту !

Perl 6 (и, вероятно, аналогичный для многих языков) (31 байт)

{'ÿ   ÿÿÿ ÿ ÿÿ  ÿ ÿÿÿ ÿ ÿÿ  ÿ'}   # replace spaces with ASCII 00
                                  # which I can't seem to enter

Это приводит к выводу файла TIFF без заголовка, который был сгенерирован Photoshop с расширением .raw и считается квадратным, если во время открытия не указано иное. Игра с глубиной цвета (если позволено) может еще больше уменьшить это.

ffplay (ffmpeg), 93 байта

ffplay -f rawvideo -s 3x3 -pix_fmt rgb24 "data:/;base64,/wAA//8A/wD///8AAP8AAP///wD/AP//AAD/"

Старый :

ffplay -f lavfi -i testsrc=s=3x3,geq=r=255*not(X*Y):g=255*not((X-1)*(Y-1)):b=255*not((X-2)*(Y-2))

$\Large{\mathbf{\TeX} \left(\text{MathJax}\right)},~122\,\text{bytes}$

Golf'd:

$\def\c#1{\color{#1}{\rule{5em}{5em}}}\c{red}\c{yellow}\c{fuchsia}\\\c{yellow}\c{lime}\c{aqua}\\\c{fuchsia}\c{aqua}\c{blue}$

Ungolf'd:

$$
\def\coloredBox#1{\color{#1}{\rule{5em}{5em}}}
\coloredBox{red}
\coloredBox{yellow}
\coloredBox{fuchsia} \\
\coloredBox{yellow}
\coloredBox{lime}
\coloredBox{aqua}    \\
\coloredBox{fuchsia}
\coloredBox{aqua}
\coloredBox{blue}
$$

Редактирование:

1. Спасибо @flawr за указание, как исправить цвета!

2. Может сбрить , заменив на , который будет выглядеть как$14\,\text{bytes}$▉ ▉ ▉\rule{5em}{5em}▉

   $$\def\d#1{\color{#1}{▉}} \d{red} \d{yellow} \d{fuchsia} \\ \d{yellow} \d{lime} \d{aqua} \\ \d{fuchsia} \d{aqua} \d{blue}$$

   , но просто выглядит не совсем так.

3. Возможно, удастся сбрить еще несколько байтов, найдя названия цветов, которые приемлемо напоминают предполагаемые цвета.

4. Просто чтобы показать, как будет выглядеть прилично версия:$\mathrm{\TeX}\text{'d}$

   $${\newcommand{\rotate}[2]{{\style{transform-origin: center middle; display: inline-block; transform: rotate(#1deg); padding: 50px}{#2}}}} {\def\place#1#2#3{\smash{\rlap{\hskip{#1em}\raise{#2em}{#3}}}}} {\def\placeBox#1#2#3{\place{#1}{#2}{\color{#3}{\rule{5em}{5em}}}}} {\def\placeLabelTop#1#2#3{\place{#1}{#2}{\large{\textbf{#3}}}}} {\def\placeLabelLeft#1#2#3{\place{#1}{#2}{\rotate{-90}{\large{\textbf{#3}}}}}} \placeLabelTop{1.1}{15.5}{Red} \placeLabelTop{5.5}{15.5}{Green} \placeLabelTop{11.2}{15.5}{Blue} \placeLabelLeft{-6.2}{13.6}{Red} \placeLabelLeft{-7.1}{8.5}{Green} \placeLabelLeft{-6.5}{3.5}{Blue} \placeBox{0}{10}{red} \placeBox{5}{10}{yellow} \placeBox{10}{10}{fuchsia} \placeBox{0}{5}{yellow} \placeBox{5}{5}{lime} \placeBox{10}{5}{aqua} \placeBox{0}{0}{fuchsia} \placeBox{5}{0}{aqua} \placeBox{10}{0}{blue} \place{15.1}{0}{\large{.}} \phantom{\rule{15em}{16.5em}}$$

Lua + LÖVE / Love2D , 186 183 байта

t={[0>1]=0,[0<1]=1}l=love g=l.graphics function l.draw()for i=1,3 do for j=1,3 do g.setColor(t[i<2 or j<2],t[i==2 or j==2],t[i>2 or j>2])g.rectangle('fill',j*10,i*10,10,10)end end end

Попробуйте онлайн!

Мой первый код в гольф!

MATL, 44 23 21 20 19 байтов

Прямой порт моего октавского ответа с предложениями @ExpiredData и @LuisMendo.

126973007Bo7B3*e0YG

попробуйте это онлайн

Октава / MATLAB , 57 56 40 байт

-17 байт благодаря @ExpiredData! Проверьте их даже решение для игры в гольф !

image(reshape(de2bi(126973007),[3,3,3]))

Попробуйте онлайн!

Чертеж факторио, 705 байт

Я признаю, я просто раздвигаю границы того, что считается решением.

0eNrdWNGOqyAQ/ReedeNo0daH/ZHNTYOW7ZJFNAi91zT99wua7ZpdaaT1pb40oQ6HOecwA3pGBde0kUwolJ8RK2vRovztjFp2FITb/1TXUJQjpmiFAiRIZUdtzYkMGyIoR5cAMXGg/1AOlz8BokIxxegA0w+6vdBVQaUJuAKQstSV5kTV0qA2dWvm1MKuZ3FecIA6lIf4BV8uwS+YeDKPXzBhPKAkUxjJPAy4AbG5QljZFBEqLOuqYGKa1Vc6YAQzE5Ss+b6gH+TETLQJeWdcUemQ/8Sk0oSPHOgjQkkPqMfT1kEYWzEsI2hpc2gtFtgfO2NkDTMjbIKnCOLv1SrCechJ1UzwSm7zKpksNVN78+xwnffOZKv2s2kS0akPJo4D10FslEd2UDVE9oLn6NU+1i01S/HaKqmkpvNl2DhkSGfJEK1Eha1DhWyWCmvZCzuHCtu7aj5asuQ7ynn99/GqT0f07BjAwXnnx3kohEW7XMPE5+OEs5+EUwdhiL4T0IVh3LNzHlMwfUoB+LTPeK19A2LPkoGbety1f46SUvH4BoLExTHxOCKe3mmIXTJ43ogGp5MlnS47soTR+GeryFyUscex+PzOu65IkPr0OrzW2wFkHn0Ar3c3eN6S4pt63NUH7GvtAn3AafTOo+yf3+jhbDcv9/1XgHz00SBAJ+NNn3uWRJDiDcDWXIf+Aya7oEk=

Производимый вывод при размещении в игре (используются низкие настройки графики):

Чтобы доказать, что это правильное решение, вам нужно отобрать эту сетку пикселей, которые точно соответствуют спецификации:

Остальная часть изображения классифицируется как граница или интервал, который, как сказано в вопросе, не имеет значения.

Октава , 38 байт

image(reshape(de2bi(126973007),3,3,3))

Попробуйте онлайн!

HTML / CSS, 278 141 137 байт

r{color:red}y{color:#ff0}m{color:#f0f}g{color:#0f0}c{color:#0ff}l{color:#00f

<pre><r>█<y>█<m>█
<y>█<g>█<c>█
<m>█<c>█<l>█

-137 байтов благодаря комментаторам, особенно @data
-4 байта благодаря @Einacio

Использует Unicode █(U + 2588) для «блоков» и использует классы CSS / встроенный стиль для их раскрашивания.

Я думаю, что <font>теги можно было бы больше использовать, однако, изменив их на более короткий, например, <a>нарушает colorатрибут

JavaScript, 108 102 байта

console.log(`%c█%c█%c█
`.repeat(3),...[...`320251014`].map(c=>`color:#`+`f0ff00f0`.substr(c,3)))

Нет фрагмента, потому что это работает только в реальной консоли браузера, а не в консоли фрагмента. Редактировать: Спасибо @AJFaraday за скриншот. Объяснение: Браузеры позволяют первому параметру console.logвключать подстановки. %cПодстановки принимает параметр и применяет его в качестве (продезинфицировать) CSS. █Поэтому каждый блок окрашивается с использованием соответствующей подстроки, f0ff00f0интерпретируемой как трехцветный код цвета.

HTML (GIF), 108 байт

Это битва веб-форматов изображений! (Какие-нибудь TIF или JPG претенденты там?)

Ответить @AC .

<img src=data:image/gif;base64,R0lGODdhAwADAMIGAAAA//8AAP8A/wD/AAD/////AAAAAAAAACwAAAAAAwADAAADBhglNSQEJAA7>

HTML (BMP), 116 115 байтов

Ответ только @ ASCII .

<img src=data:image/bmp;base64,Qk0+AAAAQVNDTxoAAAAMAAAAAwADAAEAGAD/AP///wD/AAAAAAAA//8A/wD//wAAAAAAAP8A////AP8AAAA>

HTML (WebP), 116 байт

Ответ @Hohmannfan .

<img src=data:image/webp;base64,UklGRjYAAABXRUJQVlA4TCoAAAAvAoAAAC8gEEjaH3qN+RcQFPk/2vwHH0QCg0I2kuDYvghLcAoX0f/4Hgc>

HTML (PNG), 151 136 135 байтов

-15 байт благодаря @Hohmannfan .

<img src=data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAMAAAADCAIAAADZSiLoAAAAFElEQVR4AWP4z8Dw/z8DEIIodB4A4D0O8pOGuTgAAAAASUVORK5CYII>

Также смотрите мои ответы по CSS и SVG .

dc (на xterm), 64 байта

Fi16[AP]sF36dD6r31 101dD6rD1[1CP61P[38;5;]Pn[mX]Pz3%0=Fz0<M]dsMx

Вы просто получите кучу дурацких escape-кодов вместо цветов, но вы все равно можете попробовать это онлайн!

Насколько я понимаю, 16 основных цветов ANSI можно интерпретировать по желанию терминала. С другой стороны, 216 цветов в цветовом кубе xterm имеют явные значения RGB. Я использую эти коды и печатаю сетку из Xs:

Сначала мы устанавливаем входной радиус на основание 15 с Fi. Это стоит два байта, но возвращает три, так что ... чистый выигрыш байта (и большая потеря в читабельности). Затем мы пытаемся получить наши значения цвета в стек. В десятичном виде это будет 21 51 201 51 46 226 201 226 196, но мы находимся в дурацком режиме, так что будет 16 36 D6 36 31 101 D6 101 D1. Мы исключаем одно из пробелов, вставляя в макрос макрос, который мы должны определить в какой-то момент [AP]sF(который просто печатает перевод строки). Мы можем сжать 36 D6 36и 101 D6 101, поместив первое значение в стек, продублировав его, поместив второе, а затем поменяв местами ( 36dD6r, 101dD6r).

Макрос Mобрабатывает печать и еще много чего. 1CPпечатает escape-символ Скобки используются для разграничения строк, и, насколько я знаю, не являются экранируемыми, поэтому нам нужно также напечатать скобку со значением ASCII 61P. [38;5;]Pэто код «установить цвет переднего плана из нумерованного списка». nпечатает значение с вершины стека без новой строки, выталкивая его. [mX]Pзаканчивает код и печатает «Х». z3%0=Fпроверяет глубину стека мод 3, запуская наш макрос перевода строки Fпри необходимости. z0<Mпродолжает Mработать, пока в стеке есть вещи. dsMxбежать.

Обратите внимание, что если вы запустите это в dc в xterm, цвет переднего плана останется синим. 1CP61P74P(вход, показанный на скриншоте) должен сбросить это.

Блочная черепаха, 45 блоков

Попробуйте онлайн!

Как насчет небольшой игры по поиску самого нелепого инструмента для работы?

Выход:

Программа (как скриншот для дополнительной ереси):

Примечание: выделенные серым цветом блоки также учитываются в метрике.

Node.js, 79 байт

require('fs').writeFile(a='P',a+[...'3331100110101110010011101011001'].join` `)

Создает файл с именем «P» в формате PPM, содержащий цветовую сетку.

TI-Basic, х байтов (забьет, когда смогу)

Примечание. Фильтр содержимого не позволяет мне искать размеры токенов для каждой из этих команд. Если кто-то хочет забить для меня, пойти на это.

TextColor(11
Text(0,0,"0"
TextColor(19
Text(0,2,"0"
Text(2,0,"0"
TextColor(13
Text(4,0,"0"
Text(0,4,"0"
TextColor(14
Text(2,2,"0"
TextColor(18
Text(2,4,"0"
Text(4,2,"0"
TextColor(17
Text(4,4,"0"

Это выглядит очень плохо на моем маленьком экране калькулятора. Но, эй, форма не имеет значения: ^)

Выход для гольфа: изменен для увеличения в 8 раз:

TI-BASIC, х байтов

Использование Pxl-On вместо текста:

Pxl-On(0,0,11
Pxl-On(0,1,19
Pxl-On(0,2,13
Pxl-On(1,0,19
Pxl-On(1,1,14
Pxl-On(1,2,18
Pxl-On(2,0,13
Pxl-On(2,1,18
Pxl-On(2,2,17

Выход: взорван ~ 11x:

C ++, SFML, 177 байт

#include<SFML/Graphics.hpp>
int d[]={255,65535,0xFF00FF,65535,65280,0xFFFF00,0xFF00FF,0xFFFF00,0xFF0000};void f(){sf::Image g;g.create(3,3,(sf::Uint8*)d);g.saveToFile("a.jpg");}

Использует sf::Image::create(int,int,unsigned char*)метод для создания изображения со значениями RGB в нем

C #, 248 204 198 байт

class P{static void Main(){for(int i=0;i<12;i++){foreach(dynamic n in Enum.GetValues(typeof(ConsoleColor)))if((""+n)[0]=="RYMRYGCRMCBR"[i])Console.BackgroundColor=n;Console.Write(i%4<3?" ":"\n");}}}

Выход:

BASIC C64, 106 байт

0 POKE53281,0
1 DATA144,28,158,156,144,13,158,30,159,144,13,156,159,31,144
2 READA:PRINTCHR$(A)+"o";:GOTO2

Wolfram Language (Mathematica), 72 байта

Grid@Partition[RGBColor/@Unitize[Total/@Tuples[IdentityMatrix@3,{2}]],3]