To! to siatka kolorów RGB ...

Zasadniczo jest to dwuwymiarowa matryca, w której:

• Pierwszy wiersz i pierwsza kolumna są czerwone.
• Drugi rząd i druga kolumna są zielone.
• Trzeci rząd i trzecia kolumna są niebieskie.

Oto kolory opisane graficznie za pomocą liter R, G i B.

Oto jak obliczamy kolor każdej przestrzeni na siatce.

• Czerwony + czerwony = czerwony (# FF0000)
• Zielony + zielony = zielony (# 00FF00)
• Niebieski + niebieski = niebieski (# 0000FF)
• Czerwony + zielony = żółty (# FFFF00)
• Czerwony + Niebieski = Fioletowy (# FF00FF)
• Zielony + niebieski = turkusowy (# 00FFFF)

Wyzwanie

• Napisz kod, aby wygenerować siatkę kolorów RGB.
• To jest golf golfowy, więc spróbuj zrobić to w jak najmniejszej liczbie bajtów.
• Użyj dowolnego języka programowania lub języka znaczników, aby wygenerować siatkę.
• Rzeczy, na których mi zależy:
  • Wynik powinien graficznie wyświetlać siatkę RGB ze zdefiniowanymi kolorami.
• Rzeczy, na których mi nie zależy:
  • Jeśli dane wyjściowe to obraz, HTML, SVG lub inny znacznik.
  • Rozmiar lub kształt bloków kolorów.
  • Granice, odstępy itp. Między blokami lub wokół nich.
  • Na pewno nie musi mieć etykiet informujących o tym, jakie powinny być kolory wierszy i kolumn.

Bash, 44

• 2 bajty zapisane dzięki @NahuelFouilleul
• 2 bajty zapisane dzięki @manatwork

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

Tutaj bloki są .znakami. ^[to dosłowny znak zmiany znaczenia ASCII (0x1b).

Możesz odtworzyć ten skrypt w następujący sposób:

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

Zestaw 8088, IBM PC DOS,  44  43 bajty

Wymienianie kolejno:

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

Używa INT 10Husług wideo IBM PC BIOS do zapisywania siatki kolorów na ekranie. Niestety jedyny sposób na zapisanie określonego atrybutu koloru wymaga również napisania kodu, aby umieścić kursor w następnej poprawnej lokalizacji, więc jest na to wiele dodatkowego kodu.

Oto dane wyjściowe działające na komputerze IBM PC CGA (w trybie tekstowym 40x25, aby je powiększyć).

Pobierz i przetestuj RGBGRID.COM dla DOS.

Wolfram Language (Mathematica) , 41 bajtów

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

Wolfram Language (Mathematica) , 68 bajtów

Mathematica ma wbudowane wszystkie te kolory.

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

Kod maszynowy 80386, IBM PC DOS, 38 bajtów

klątwa:

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

jako M:

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

skalowane wyjście z dosbox:

Excel VBA (natychmiastowe okno), 80 bajtów

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

Excel VBA (funkcja), 96 bajtów

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

Nie jest to okropne narzędzie do pracy ... Doceniam fakt, że Excel już pokazuje siatkę, więc kwestią jest ustawienie koloru tła.

Podziękowania dla @Neil za sugestię, żebym użył ColorIndexzamiast Colorprowadzić do 43 bajtów oszczędności.

-21 bajtów dzięki @Keeta

-16 bajtów dzięki @Chronocidal za sugerowanie „natychmiastowego okna”

-2 bajty dzięki @i_saw_drones

Wiele zmian w stosunku do mojego oryginalnego zgłoszenia :)

GFA Basic 2.02 (Atari ST), 48 bajtów

Ręcznie edytowany wpis w formacie .LST. Obejmuje wiele znaków niedrukowalnych, których kody są pokazane w nawiasach.

?"[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]

System operacyjny Atari ST definiuje rozszerzone polecenia VT52, które są tutaj używane.

Wynik

Wyjście jest blok $24\times24$ pikseli (9 spacjami z $8\times8$ pikseli).

^{zrzut ekranu ze Steem SSE}

SVG, 210 182 bajtów

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

Ponieważ rozmiar lub kształt bloków kolorów nie ma znaczenia, można rozegrać kilka bajtów za pomocą tego nieco dziwnego układu:

HTML + CSS, 121 120 bajtów

Najgorszy fragment HTML, jaki kiedykolwiek napisałem. Oszczędność jednego bajtu dzięki @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 bajtów (pół poprawny)

Podaję to jako częściowo poprawne, ponieważ niebieski nie jest dokładnie # 0000FF niebieski, a także polega na tym, że nie kliknął linku.

Dzięki @Lynn za pomysł

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

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

ditaa , 118 bajtów

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

To jest wynik przy użyciu -Eopcji:

R, 89 50 48 bajtów

Najnowsza wersja:

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

Za mało elementów w wektorze do wypełnienia macierzy 3x3, więc zawija się i ponownie wykorzystuje pierwszy element.

Stare wersje:

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 bajtów

Edycja: Możesz użyć bezpośredniego okna i zrezygnować z Sub/, End Subaby zapisać 16 bajtów:

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

Oryginalna odpowiedź:

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

Zostało to zainspirowane sugestią Neila dotyczącą tej odpowiedzi i jest to moje pierwsze zgłoszenie!

Wynik:

-2 bajty : Usunięcie numerów wierszy komórek - dzięki Taylor Scott !

Perl 6 (i prawdopodobnie podobny w wielu językach) (31 bajtów)

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

Powoduje to wygenerowanie bezgłowego pliku TIFF, który był wcześniej generowany przez program Photoshop z rozszerzeniem .raw i jest uważany za kwadratowy, chyba że w momencie otwarcia określono inaczej. Zabawa z głębią kolorów (jeśli jest dozwolona) może to jeszcze bardziej zmniejszyć.

ffplay (ffmpeg), 93 bajty

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

Stary :

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}
$$

Edycje:

1. Dzięki @flawr za wskazanie, jak naprawić kolory!

2. Mógł się ogolić $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}$$

   , ale po prostu nie wygląda tak samo.

3. Mógłby prawdopodobnie zgolić jeszcze kilka bajtów, znajdując nazwy kolorów, które akceptowalnie przypominają zamierzone kolory.

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 bajtów

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

Wypróbuj online!

Mój pierwszy wpis do golfa!

MATL, 44 23 21 20 19 bajtów

Bezpośredni port mojej odpowiedzi Octave z sugestiami @ExpiredData i @LuisMendo.

126973007Bo7B3*e0YG

spróbuj online

Octave / MATLAB , 57 56 40 bajtów

-17 bajtów dzięki @ExpiredData! Sprawdź ich jeszcze bardziej golfowe rozwiązanie !

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

Wypróbuj online!

Ciąg Factorio Blueprint, 705 bajtów

Przyznaję, że przekraczam granice tego, co liczy się jako rozwiązanie.

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

Produkowane wyjście po umieszczeniu w grze (używane niskie ustawienia grafiki):

Aby udowodnić, że jest to prawidłowe rozwiązanie, musisz dokładnie wypróbować tę siatkę pikseli, która dokładnie odpowiada specyfikacji:

Reszta obrazu jest klasyfikowana jako obramowanie lub odstęp, który, jak powiedziano w pytaniu, nie ma znaczenia.

Oktawa , 38 bajtów

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

Wypróbuj online!

HTML / CSS, 278 141 137 bajtów

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 bajtów dzięki komentującym, w szczególności @data
-4 bajtów dzięki @Einacio

Używa Unicode █(U + 2588) dla „bloków” i używa klas CSS / stylu wbudowanego do ich pokolorowania.

<font>Wydaje mi się, że tagi można bardziej zagrać w golfa, jednak zmiana ich na krótszą, na przykład <a>złamanie coloratrybutu

JavaScript, 108 102 bajtów

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

Brak fragmentu, ponieważ działa tylko w prawdziwej konsoli przeglądarki, a nie w konsoli fragmentu. Edycja: Dzięki @AJFaraday za zrzut ekranu. Objaśnienie: Przeglądarki zezwalają, aby pierwszy parametr console.logobejmował podstawienia. %cPodstawienie przyjmuje parametr i stosuje je jako (oczyszczone) CSS. Każdy █blok jest więc pokolorowany przy użyciu odpowiedniego podciągu f0ff00f0interpretowanego jako trzycyfrowy kod koloru.

HTML (GIF), 108 bajtów

To bitwa internetowych formatów graficznych! (Czy istnieje jakiś pretendent do TIF lub JPG?)

Odpowiedz przez @AC .

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

HTML (BMP), 116 115 bajtów

Odpowiedz tylko przez @ ASCII .

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

HTML (WebP), 116 bajtów

Odpowiedz przez @Hohmannfan .

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

HTML (PNG), 151 136 135 bajtów

-15 bajtów dzięki @Hohmannfan .

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

Zobacz także moje odpowiedzi CSS i SVG .

dc (na xterm), 64 bajty

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

Zamiast kolorów dostaniesz kilka zwariowanych kodów ucieczki, ale nadal możesz wypróbować online!

W moim rozumieniu 16 podstawowych kolorów ANSI można interpretować dowolnie, jak chce terminal. Z drugiej strony 216 kolorów w sześcianie kolorów xterm ma wyraźne wartości RGB. Używam tych kodów i drukuję siatkę Xs:

Najpierw ustawiamy podstawową podstawkę na bazę 15 za pomocą Fi. Kosztuje to dwa bajty, ale daje trzy, więc ... zysk netto bajtu (i duża utrata czytelności). Następnie staramy się umieścić nasze wartości kolorów na stosie. W systemie dziesiętnym byłoby to21 51 201 51 46 226 201 226 196 , ale jesteśmy w trybie zwariowanym, więc tak będzie 16 36 D6 36 31 101 D6 101 D1. Eliminujemy jedną ze spacji, wprowadzając makro, które w pewnym momencie musimy zdefiniować [AP]sF(co po prostu drukuje linię). Możemy się zmniejszyć 36 D6 36i 101 D6 101umieszczając pierwszą wartość na stosie, powielając ją, umieszczając drugą, a następnie zamieniając ( 36dD6r, 101dD6r).

Makro Mobsługuje drukowanie i tak dalej. 1CPdrukuje znak ucieczki. Wsporniki służą do oddzielania ciągów, io ile wiem nie są escapable, więc musimy wydrukować wspornik z wartością ASCII jak dobrze 61P. [38;5;]Pjest kodem „ustaw kolor pierwszego planu z listy numerowanej”. nwypisuje wartość z góry stosu bez nowej linii, popping ją. [mX]Pkończy kod i wypisuje „X”. z3%0=Fsprawdza mod 3 głębokości stosu, uruchamiając w Frazie potrzeby nasze makro przesunięcia wiersza . z0<Mutrzymuje Mdziała tak długo, jak nie ma rzeczy na stosie.dsMxbiegać.

Zauważ, że jeśli uruchomisz to w DC w Xtermie, kolor pierwszego planu pozostanie niebieski. 1CP61P74P(dane wejściowe pokazane na zrzucie ekranu) powinny to zresetować.

Zablokowany żółw, 45 bloków

Wypróbuj online!

A może zagramy w grę polegającą na znalezieniu najbardziej absurdalnego narzędzia do tego zadania?

Wynik:

Program (jako zrzut ekranu dla dodatkowej herezji):

Uwaga: Wyszarzone bloki są również liczone do metryki.

Node.js, 79 bajtów

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

Tworzy plik o nazwie „P” w formacie PPM zawierający siatkę kolorów.

TI-Basic, x bajtów (zdobędzie, gdy będę mógł)

Uwaga: filtr zawartości blokuje mi wyszukiwanie wielkości tokenów dla każdego z tych poleceń. Jeśli ktoś chce dla mnie strzelić, idź po niego.

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"

Wygląda to naprawdę źle na moim małym ekranie kalkulatora. Ale hej, kształt nie ma znaczenia: ^)

Wydajność golfa: Zmodyfikowana dla 8x większej wydajności:

TI-BASIC, x bajtów

Używanie Pxl-On zamiast tekstu:

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

Wyjście: wysadzone w powietrze ~ 11x:

C ++, SFML, 177 bajtów

#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");}

Używa sf::Image::create(int,int,unsigned char*)metody do utworzenia obrazu z wartościami rgb

C #, 248 204 198 bajtów

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");}}}

Wynik:

BASIC C64, 106 bajtów

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 bajty

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