Возможно, вы слышали о «логотипе хакера», также называемом «эмблема хакера». Это выглядит так:

Это образец математической симуляции под названием Игра Жизни. Планер - это самый простой образец Жизни, который движется, и самый узнаваемый из всех моделей Жизни.

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

Задача довольно проста: показать логотип хакера. Это определяется как:

• Сетка 3х3 с рамкой, белым фоном и серыми линиями сетки.
• Пять черных точек, расположенных на планере GoL.
• Ничего больше.

Правила

• Черные точки должны заполнять 40% - 80% их отдельных ячеек сетки.
• Вы отобразите эмблему с графическим выводом, но без ASCII .
• Вывод должен быть не менее 30х30 пикселей .
• Вывод должен иметь только цвета серый, черный и белый .
• Каждый блок сетки в сетке будет иметь одинаковый размер. Сетка будет обычным квадратом 3х3 .
• Вы не можете извлекать логотип из Интернета или вашей файловой системы.
• Ваша программа будет отображать логотип на пустом экране / окне. Если он заканчивается, он должен сделать это нормально.
• Обратите внимание, что «точки» не обязательно означает «круги». «Точка» - это одиночная геометрическая фигура, центрированная по центру ячейки сетки с одной поверхностью. Например, если круг или квадрат будут квалифицироваться как точка, два треугольника или шахматная доска не будут.

Победитель

Поскольку это код-гольф , выигрывает самый короткий ответ на каждом языке!

Пожалуйста, включите скриншот вывода вашей программы в свой ответ.

Mathematica, 62 байта

Grid[{{,a=██,},{,,a},{a,a,a}},Frame->All,FrameStyle->Gray]

Mathematica, 71 байт

Grid[{{,l=Graphics@Disk[],},{,,l},{l,l,l}},Frame->All,FrameStyle->Gray]

CSS + HTML, 56 + 84 = 140 байт, 52 + 84 = 136 байт.

Сохранено 4 байта путем включения предложений из комментариев.

td{border:1px solid#888;line-height:.4;font-size:3em

<table cellspacing=0><tr><td><td>•<td><tr><td><td><td>•<tr><td>•<td>•<td>•

При этом используется символ UTF-8, •длина которого составляет 2 байта, а также преимущество любезности синтаксиса HTML.

GLSL (фрагментный шейдер), 278 235 256 байт

precision highp float;void main(){vec2 a=gl_FragCoord.xy/20.-.2;ivec2 b=ivec2(a);a-=vec2(b)+.5;if(b.x>2||b.y>2)discard;gl_FragColor=a.x<-.5||a.y<-.5||a.x>.3||a.y>.3?vec4(.5,.5,.5,1.):length(a+.1)<.4&&(b.x+b.y-3)*b.y==0?vec4(0.,0.,0.,1.):vec4(1.,1.,1.,1.);}

Посмотрите это в действии: http://glslsandbox.com/e#40717.2

Python 2 ,  169  140 байт

from turtle import*
up()
shape("square")
color("gray",[1]*3)
i=9
while i:
 i-=1;goto(20-i/3*20,20-i%3*20);stamp()
 if 302&2**i:dot(15,0,0,0)

Фактический размер, 61 на 61, нанесенный на гораздо больший холст 300 на 400:

Отображение сетки пикселей:

Точки используют 177 пикселей в диапазоне 40% -80%, независимо от того, учитывается ли белая заливка 19 на 19 (144,4–288,8) или 21 на 21, включая обе границы (176,4–352,8).

Примечание: программа завершает работу и закрывает окно холста, как только рисунок завершен, чтобы ручное закрытие окна добавляло строку done().

turtleпакет Python, разработанный для вводного графического программирования Перо начинается x,y=0,0с середины холста размером 300 на 400 пикселей (по умолчанию), upподнимает перо, gotoперемещает перо, shapeзадает форму пера с именованной формой ( "square"это предопределенная форма с шириной пикселя по умолчанию 21 ), colorзадает цвет, где два параметра устанавливают штрих (по умолчанию ширина 1) и заливку; Байт сохраняется с помощью параметра (r,g,b)кортежа, чтобы заменить его "white"с [1,1,1]использованием умножения списка [1]*3. Наконец dotрисует точку с заданной шириной в пикселях и цвете. Значение ширины точки по умолчанию слишком мало, чтобы его можно было квалифицировать, 9поэтому я сделал его эстетичным и квалифицированным 15. Цвет точки может быть"black"но распакованный (r,g,b)кортеж 0,0,0короче на два байта.

Ручка должна удаляться от любой точки на конце, так как в противном случае серая / белая ручка скрывает точку.

Сетки пересекаются с использованием DIV ( /) и Mod ( %) из iначиная с 8( iинициализируются , 9но декрементируются в начале whileцикла) и работает вниз 0, компенсируя результаты 2,1,0с -1,0,1использованием (1-...)и масштабирования каждого до размера сетки , используя коэффициент 20 (обратите внимание, что 20-i/3*20на самом деле байтов меньше, чем 20*(1-i/3), то же самое для %). Это производит порядок [нижний левый, центральный левый, верхний левый, нижний средний, центральный средний, верхний средний, нижний правый, правый центральный, верхний правый] и требует " hasDot" оценки [1,0,0,1,0,1,1,1,0], который 302в двоичной системе это может получить доступ путем проверки i^й мощности двух компонент302с использованием побитового-и, 302&2**i.

Applesoft BASIC , 479 476 516 515 483 482 байта

^{-32 с использованием нечитаемых имен переменных: P
-1, потому что Apple решила быть волшебной и позволила мне использовать неявное / несуществующее GOTO}

Вот моя собственная (очень подходящая) программа для примера вывода, в котором не используются кружки:

1GR:POKE49234,0:COLOR=15:FORI=0TO39:VLIN0,47ATI:NEXT:COLOR=5:S=21:W=S:H=27:X=INT((40-W)/2):Y=INT((48-H)/2):D=INT(W/3):DX=D:C=Y+H:G=X+W:FORI=0TO3:VLINY,C ATX+I*D:NEXT:D=INT(H/3):FORI=0TO3:HLINX,G ATY+I*D:NEXT:YH=INT(D/2):Z=Y+H-YH:XH=INT(DX/2):COLOR=0:FORI=0TO2:B=Z:A=X+XH+I*DX:GOSUB5:NEXT:B=B-D:GOSUB5:B=B-D:A=A-DX:GOSUB5:K=PEEK(-16384):IFK<128THEN2:K=PEEK(-16368):TEXT:HOME:END 
5VLINB+2,B-3ATA:VLINB+2,B-3ATA-1:VLINB+2,B-3ATA+1:VLINB+2,B-3ATA+2:VLINB,B-1ATA-1:VLINB,B-1ATA+2:RETURN

Выход:

Машинный код IA-32, 81 80 байт

HexDump:

60 8b f9 b8 50 35 20 20 ab b8 32 35 36 20 ab ab
ab fe 4f fe 33 c9 66 49 51 8a c1 d4 55 50 8a c5
d4 55 5b b2 80 84 c0 74 1f 84 db 74 1b b2 ff 2c
10 3c 35 77 13 93 2c 10 3c 35 77 0c 8d 0c 58 8a
cd b0 e4 d2 e0 79 01 42 92 aa 59 e2 cb aa 61 c3

Это fastcallвызываемая функция, doitкоторая возвращает изображение в формате PGM в предоставленном буфере. Использование:

char buf[256 * 256 + 256];
doit(buf);

FILE* f = fopen("k.pgm", "wb");
fwrite(buf, 1, sizeof buf, f);
fclose(f);

Выход:

Я использовал разрешение 256x256, потому что это круто, он позволяет ecxавтоматически разбивать индекс пикселя на координаты yв chи xв cl. Кроме того, формат файла PGM требует число 255 в заголовке изображения.

Внутренние квадраты 54х54 (41% клеток по площади).

Исходный код (может быть скомпилирован Visual Studio):

    pushad;                 // save all registers
    mov edi, ecx;           // edi is now the pointer to output
    mov eax, '  5P';        // PGM file header
    stosd;                  // store it
    mov eax, ' 652';        // the number 256 and a space
    stosd;                  // store the width
    stosd;                  // store the height
    stosd;                  // store maximum brightness
    dec byte ptr [edi-2];   // fix maximum brightness to 255

    xor ecx, ecx;           // initialize the counter of pixels
    dec cx;                 // to 65535
myloop:
    push ecx;

    mov al, cl;             // al = cl = x coordinate in the image
    _emit 0xd4;             // divide by 85
    _emit 85;               // ah = x cell number, al = x coordinate in cell
    push eax;
    mov al, ch;             // al = ch = y coordinate in the image
    _emit 0xd4;             // divide by 85
    _emit 85;               // ah = y cell number, al = y coordinate in cell
    pop ebx;                // bh = x cell number, bl = x coordinate in cell

    mov dl, 0x80;           // gray pixel value
    test al, al             // is cell boundary (y)?
    je output1;
    test bl, bl;            // is cell boundary (x)?
    je output1;

    mov dl, 255;            // white pixel value
    sub al, 16;
    cmp al, 53;
    ja output1;             // if outside the inner square, output white
    xchg eax, ebx;          // exchange the registers to shorten following code
    sub al, 16;
    cmp al, 53;
    ja output1;             // if outside the inner square, output white

    lea ecx, [ebx * 2 + eax]; // cell index = y * 2 + x
    mov cl, ch;
    mov al, 0xe4;           // load the bitmap for the glider pattern
    shl al, cl;             // shift the needed but into SF
    jns output1;            // the bit was 0? - output white
    inc edx;                // the bit was 1? - change to black

output1:
    xchg eax, edx;
    stosb;                  // output the byte

    pop ecx;
    loop myloop;
    stosb;                  // output an additional gray pixel
    popad;
    ret;

Образец клетки

0 1 0
0 0 1
1 1 1

может быть представлен "оптимизированной" битовой картой из 7 битов.

Биты индексируются выражением y * 2 + x, где (x,y)находится ячейка. Это выражение дает одинаковый индекс для 2 пар клеток. Это счастливое совпадение, что значения битов там одинаковы.

HTML & CSS, 155 байт

Оказывается, HTML действительно прощает ошибки синтаксиса.

_{1 байт сохранен благодаря @Octopus · 1 байт сохранен благодаря @Downgoat · 2 байт сохранен благодаря @StephenS}

_{2 байта сохранены благодаря @Ryan · 3 байта сохранены благодаря @styfle · 4 байта сохранены благодаря @Ferrybig}

_{13 байтов сохранено благодаря @SteveBennett}

p{height:33px;width:33px;border-radius:50%;background:#000;margin:0

<table cellspacing=0 border=1><td><td><p><td><tr><td><td><td><p><tr><td><p><td><p><td><p

R ( 130 119 113 байтов)

plot(c(2,4,6,4,6),c(2,2,2,6,4),an=F,ax=F,xli=(l=c(1,7)),yli=l,xaxs="i",yaxs="i",pch=16,cex=19);grid(3,lt=1);box()

Python 2,7, 214 311 309 байт

from matplotlib.pyplot import*
f,x=subplots()
j=(0,0),(1,0),(2,0),(1,2),(2,1)
for i in j:x.add_artist(Circle((i),.4,color='k'))     
x.tick_params(labelbottom='off',labelleft='off')
for o in x.spines.values():o.set_edgecolor('gray')
for s in 'xy':exec"x.set_"+s+"ticks((.5,1.5,2.5));"+s+"lim(-.5,2.5);"
grid()

Это моя первая попытка в код-гольфе, поэтому я уверен, что это можно улучшить. Я хотел бы не устанавливать пределы, но похоже, что matplotlib не может определить, что я нарисовал круги там, где сделал. Без установки xlim () и ylim () отображаются только два нижних круга.

Выход:

Редактировать: Исправлен цвет границ и убраны номера тиков. Я должен сказать, что matplotlib очень плотно сформулирован и не слишком дружелюбен к изменению цвета осей.

Срезал 3 байта благодаря @DJMcMayhem

Редактировать: снял два байта, установив мои тики в качестве кортежа внутри функций set_ticks.

Bash + ImageMagick, 233 226 символов

convert xc: +antialias -resize 31 -draw "stroke gray fill none ${r=rectangle} 0,0 10,30$r 20,0 30,30$r 0,0 30,10$r 0,20 30,30stroke #000 fill #000 ${c=circle} 15,5 15,8$c 25,15 25,18$c 5,25 5,28$c 15,25 15,28$c 25,25 25,28" x:

Образец вывода:

Bash + ImageMagick, 215 символов

convert xc: -resize 31 -draw "stroke gray fill none ${r=rectangle} 0,0 10,30$r 20,0 30,30$r 0,0 30,10$r 0,20 30,30stroke #000 fill #000 ${c=circle} 15,5 15,8$c 25,15 25,18$c 5,25 5,28$c 15,25 15,28$c 25,25 25,28" x:

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

Образец вывода:

Ruby, 144 166 164 148 144 байта

require'ruby2d'
set background:'grey'
c=482;g=2,13,24;d=0
g.map{|y|g.map{|x|Square.new(x,y,9);Square.new(x+2,y+2,5,"black")if c[d]>0;d+=1}}
show

Выход:

Изменить: теперь имеет серые линии сетки.

PNG, 105 100 байт

   (т.е. этот файл изображения)

Учитывая, что HTML и другие языки, не относящиеся к программированию, разрешены , мне было любопытно посмотреть, сколько я смогу сыграть в простое отображаемое в браузере изображение, чтобы служить базовым сравнением. Результат сжимается с помощью инструментов с открытым исходным кодом optipng ( -o7 -zm1-9 -strip all) и pngwolf . Я также экспериментировал с zopflipng , но результаты были больше. Другие инструменты сжатия с закрытым исходным кодом могут сбрить еще пару байтов.

Данные изображения в base64:

data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAB8AAAA
fCAAAAAA6xUnlAAAAK0lEQVR42mM4gB8wHPgPAwf+M0DAf4TYqDwp
4Ydp0qg8ofBDqMXKGpXHDwDDq0qBspApTgAAAABJRU5ErkJggg==

<img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAB8AAAA
    fCAAAAAA6xUnlAAAAK0lEQVR42mM4gB8wHPgPAwf+M0DAf4TYqDwp
    4Ydp0qg8ofBDqMXKGpXHDwDDq0qBspApTgAAAABJRU5ErkJggg==">

Правка Я заставил точки коснуться верхней и нижней частей ячейки, чтобы вызвать большую повторяемость в шаблоне пикселей и, таким образом, улучшить степень сжатия. Но не волнуйтесь, точка все еще только заполняет (7 * 9) / (9 * 9) ≈ 78% своей ячейки.

Нестандартный PNG, 88 байт

Как отмечает @anatolyg , есть некоторый потенциал игры в гольф, удаляющий кусок IEND (12 байтов). Технически IEND требуется стандартом . Однако каждый фрагмент PNG содержит свой собственный размер и информацию о контрольной сумме. Поэтому не обязательно иметь конечный маркер. И действительно, все протестированные браузеры могут отображать изображение без проблем.

К сожалению (или к счастью), это нестандартное изображение отклонено imgur, поэтому я не могу его загрузить. Это кодировка base64:

data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAB8AAAA
fCAAAAAA6xUnlAAAAK0lEQVR42mM4gB8wHPgPAwf+M0DAf4TYqDwp
4Ydp0qg8ofBDqMXKGpXHDwDDq0qBspApTg==

<img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAB8AAAA
fCAAAAAA6xUnlAAAAK0lEQVR42mM4gB8wHPgPAwf+M0DAf4TYqDwp
4Ydp0qg8ofBDqMXKGpXHDwDDq0qBspApTg==">

Октава , 127 124 байта

Удалено 3 байта благодаря Луису. gridдостаточно (вместо grid on).

spy([0,1,0;0,0,1;1,1,1],'.k',300),set(gca,'XTick',.5:4,'XTickLabel','','YTick',.5:4,'YTickLabel',''),axis(.5+[0,3,0,3]),grid

Выходы (после сохранения):

Обратите внимание, что на выходе отображаются серые линии сетки в окне графика. Они чернеют при сохранении (по какой-то причине).

Ну, это было долго и грязно! Пришлось пройти через множество модификаций, чтобы это соответствовало спецификациям.

Объяснение и, надеюсь, немного игры в гольф в ближайшее время ...

Обработка, 212 198 байт

background(-1);noFill();stroke(99);rect(0,0,99,99);rect(0,33,99,33);rect(33,0,33,99);fill(0);int f=25;ellipse(15,83,f,f);ellipse(50,83,f,f);ellipse(83,83,f,f);ellipse(83,50,f,f);ellipse(50,15,f,f);

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

Вуаля!

Вы можете добавить

strokeWidth(2); 

или больше, чтобы лучше видеть цвет штрихов.

(Это мой первый Code-Golf, надеюсь, я все сделал правильно.)

РЕДАКТИРОВАТЬ: Благодаря Kritixi Lithos! Убрал переводы строк, изменил на int f = 25 и использовал -1 в фоновом режиме (float)

Тикз, 193 175 170 байт

\documentclass[tikz]{standalone}\begin{document}\tikz{\def\a{)rectangle(}\def~{)circle(1)(}\draw(4,6\a2,0)(0,\a6,6)(0,2\a6,4);\fill(1,1~3,1~5,1~5,3~3,5~,)}\end{document}

Вот вывод:

MATL , 74 69 68 64 62 байта

4:6B&f,.5+w]'k.'5Y08W5$XG7lZG1$3ZG1tZG4:"@th1Kh'k'3$XG1Mbw3$XG

Попробуйте это в MATL Online! (Это займет несколько секунд.)

Вывод онлайн-переводчика:

Обработка, 134 байта

Вдохновленный @Zep, вот мой однострочный процессинг (а также мой первый гольф-код):

stroke(127);for(int i=0;i<9;i++){int x=i%3*30;int y=i/3*30;fill(255);rect(x+5,y+5,30,30);if(i==1||i>4){fill(0);ellipse(x+20,y+20,23,23);}};

Спасибо за @Kritixi Lithos за его блестящие советы, как сбрить несколько байтов!

LaTeX + Tikz, 155 байт

\documentclass[tikz]{standalone}\begin{document}\tikz{\draw(0,0)grid(3,3);\foreach\x/\y in{0/0,1/0,2/0,2/1,1/2}\fill(\x+.5,\y+.5)circle(.5);}\end{document}

SmileBASIC, 125 байт

GCLS-1GCOLOR #GRAY
GBOX.,8,30,38GBOX 10,8,20,38GBOX.,18,30,28G.,1G 1,2G-1,3G.,3G 1,3DEF G X,Y
GPUTCHR X*10+12,Y*10,58081,.END

58081 (U + E2E1, который находится в блоке «Область личного пользования») - это код символа для символа круга. Поместить его в строку тоже можно, но поскольку в UTF-8 он закодирован как 3 байта, он будет такой же длины (и не будет отображаться здесь правильно).

C #, 333 байта

using System.Drawing;_=>{var b=new Bitmap(31,31);var g=Graphics.FromImage(b);g.FillRectangle(Brushes.White,0,0,31,31);for(int x=0,y;x<3;++x)for(y=0;y<3;++y){g.DrawRectangle(Pens.Gray,x*10,y*10,10,10);if(x==1&y<1|x>1&y==1|y>1)g.FillEllipse(Brushes.Black,x*10+1,y*10+1,8,8);}b.Save("t.png");System.Diagnostics.Process.Start("t.png");};

Полная / Отформатированная версия:

using System.Drawing;
Action<int> a = _ =>
{
    var b = new Bitmap(31, 31);
    var g = Graphics.FromImage(b);

    g.FillRectangle(Brushes.White, 0, 0, 31, 31);

    for (int x = 0, y; x < 3; ++x)
        for (y = 0; y < 3; ++y)
        {
            g.DrawRectangle(Pens.Gray, x * 10, y * 10, 10, 10);
            if (x == 1 & y < 1 | x > 1 & y == 1 | y > 1)
                g.FillEllipse(Brushes.Black, x * 10 + 1, y * 10 + 1, 8, 8);
        }

    b.Save("t.png");
    System.Diagnostics.Process.Start("t.png");
};

Идея проста: мы создаем графический объект из изображения и используем его, чтобы сделать изображение полностью белым. Затем зациклите каждый квадрат изображения, рисуя ограничивающий прямоугольник. Если это одно из мест для точки, мы тоже это рисуем. Наконец, мы сохраняем изображение в файл и позволяем Windows решить, как его открыть, в моем случае оно открывается с помощью Windows Photo Viewer.

Использование a Processдля показа изображения и сохранение в файл намного короче, чем создание форм Windows или приложения WPF, из-за всех различных классов и лишнего пуха, необходимого для их создания.

Выход:

PHP, 221 + 2 байта

<?imagefill($i=imagecreatetruecolor(31,31),0,0,~0);function q($i,$x,$y,$f){imagerectangle($i,$x*=10,$y*=10,$x+10,$y+10,5e6);$f?:imagefilledellipse($i,$x+5,$y+5,8,8,0);}for($p=16;$p--;)q($i,$p&3,$p>>2,53>>$p&1);imagepng($i);

Сохранить в файл; позвоните в браузер. Если ваш браузер отображает бред,
вставьте header("Content-Type:image-png");перед imagepng($i);.

Точки не очень круглые; это из-за небольших пропорций.

сломать

function q($i,$x,$y,$f){        # function to draw quadrant:
    imagerectangle($i,$x*=10,$y*=10,$x+10,$y+10,5e6);   # draw lines in 0x4c4b40
    $f?:imagefilledellipse($i,$x+5,$y+5,8,8,0);         # if bit not set, draw dot
}

imagefill($i=
    imagecreatetruecolor(31,31) # create image
    ,0,0,~0);                   # fill with 0xffffff (white)
for($p=16;$p--;)q($i,           # loop through positions, call function
    $p&3,                           # $x=lower two bits
    $p>>2,                          # $y=upper two bits
    53>>$p&1                        # $f=one bit from %0000 0000 0011 0101
);                                      # (reversed inverted bit mask for dots)
imagepng($i);                   # output image

Я думаю, что 0x4c4b40квалифицируется как приблизительный серый. Если нет, добавьте четыре байта.

R 313 236 байт

l=c(1,7)
bmp('r',400,400)
plot(x=c(4,6,2,4,6),c(6,4,2,2,2),cex=14,pch=19,xlim=l,ylim=l,xlab='',ylab='',xaxs='i',yaxs='i',axes=F)
a=function(s,...){axis(s,labels=F,tck=1, col="gray",lwd=9,...)}
a(1,xaxp=c(l,3))
a(2,yaxp=c(l,3))
dev.off()

Пересмотренный код, основанный в основном на комментариях от @ user2390246, сэкономил 77 байт. Очень ценю помощь.

Кроме того, вы хотите добавить вызов к более короткому R-решению @mschilli. Он показывает элегантный способ решения проблемы графических значений по умолчанию.

Выход

Идет в файл с именами "р". Опущение и расширение спасли мне четыре байта. Но затем мне пришлось отредактировать расширение файла обратно на «bmp», чтобы загрузить его. Так что, возможно, я не должен получить кредит на эти четыре байта.

Комментарий

Я подумал: «Эта графика - не что иное, как простой график с пятью точками. Должно быть простым делом реализовать язык с надежными графическими возможностями данных. Давайте попробуем это в R.» Но тогда мне пришлось потратить порядка 80% байтов, просто работая над графическими значениями по умолчанию R.

Вроде не тот инструмент для работы ....

Я не мог найти менее подробный способ гарантировать размер и соотношение сторон графики, чем путем вызова конструктора bmp и затем dev.off (). Комбинация составляет 25 байтов. Если ваш R-сеанс настроен правильно, вы можете получить графику, которая выглядит более или менее правильно, не тратя эти байты, но она не является надежной или непротиворечивой.

TI-BASIC, 218 140 137 байт

Примечание: это количество байтов немного завышено. Программа использует только 85 токенов, но это сохраняется в 137 байтах. Кроме того, если вы используете не цветной калькулятор, вы можете сохранить еще 4 токена, потому что вам не нужно указывать цвет (по умолчанию синий), но я не знаю, достаточно ли велики их экраны для этот вызов, потому что у меня нет ни одного.

prgmHACKER (138 байт, 86 токенов):

{0,1,2,1,2}→L1
{0,0,0,2,1}→L2
.3→R
For(I,0,5
L₁(I)+.5→A
L₂(I)+.5→B
For(N,0,R,dX
√(R²-N²
Line(A+N,B-Ans,A+N,B+Ans,BLACK
Line(A-N,B-Ans,A-N,B+Ans,BLACK
End
End

Для правильного отображения эта программа требует, чтобы Xmin = Ymin = 0, Xmax = Ymax = 3, Xscl = Yscl = 1. Также необходимо правильно установить dX, но калькулятор делает это для вас, когда вы устанавливаете любую другую переменную окна. Я не мог видеть, сколько места эти переменные использовали в оперативной памяти.

Кроме того, параметры формата должны быть {RectGC, CoordOff, GridLine, GridColor: MEDGRAY, Оси: OFF, ExprOff, BorderColor: 1, Background: OFF}, но это переключаемые значения и не занимающие дополнительного места в зависимости от настройки.

R 119 114 111 байт

(Спасибо @JayCe за сохранение мне 3 байта)

Не короче, чем другое решение R , но совершенно другой подход:

layout(matrix(c(1,9,2:8),3,,T))
par(mar=0*1:4)
for(i in 1:9){frame();if(i>4)points(.5,.5,,19,cex=29);box(fg=8)}

Используется макет, в котором 4 первых графика - это пустые ячейки, а 5 других - с точками в них.

Excel VBA, 180 байт

Анонимная функция окна VBE Immediate, которая не требует ввода и вывода в объект листа по умолчанию ( Sheet1).

Cells.RowHeight=48:Cells.Interior.Color=-1:[B2:D4].Borders.Color=7434613:For Each s In[{21,32,13,23,33}]:Sheet1.Shapes.AddShape(9,48*(s\10)+4,Mid(s,2)*48+4,40,40).ShapeStyle=8:Next

Комментируемая версия

Cells.RowHeight=48                      ''  Make the Cells square
Cells.Interior.Color=-1                 ''  Remove the default grid
[B2:D4].Borders.Color=7434613           ''  Create the 3x3 gray grid at range `B2:D4`
For Each s In [{21,32,13,23,33}]        ''  Assign and iterate over a list of where
                                        ''  to place the dots; This list is a range that 
                                        ''  is coerced into a numeric array

    Sheet1.Shapes.AddShape(         _   ''  Add a shape to the Sheet1 object
                9,                  _   ''  An Oval (msoShapeOval)
                48*(s\10)+4,        _   ''  At the calculated value from the left
                Mid(s,2)*48+4,      _   ''  At the calculated value from the top
                40,                 _   ''  that is 40 units wide
                40                  _   ''  and is 40 units tall
                ).ShapeStyle=8          ''  and is black filled with a black outline

Next                                    ''  repeat to end of list

Выход

-6 байт для использования [{21,32,13,23,33}]болееSplit("21 32 13 23 33")

-2 байта для использования Mid(s,2)болееRight(s,1)

-3 байта для использования (s\10)болееLeft(s,1)

Октава 107 94 103 байта

scatter([1:3,3,2],[1,1,1:3],1e5,zeros(5,3),'.');axis off;a=[1,7]/2;for i=.5:3.5;line(a,i);line(i,a);end

или же

plot([1:3,3,2],[1,1,1:3],'k.','markersize',250);axis off;a=[1,7]/2;for i=.5:3.5;line(a,i);line(i,a);end

оба решения составляют 103 байта.

Apple Swift (iOS - CoreGraphics / QuartzCore) - 832 байта

Я нарисовал форму полностью, используя Quartz для устройства Apple iOS. К сожалению, это не особо внимательный язык, поэтому результат довольно большой, но это настолько мало, насколько я могу его себе представить.

UIGraphicsBeginImageContext(CGSize(width:60,height:60));let c=UIGraphicsGetCurrentContext()!;UIColor.lightGray.setStroke();c.addRect(CGRect(x:0,y:0,width:60,height:60));c.move(to: CGPoint(x:20,y:0));c.addLine(to: CGPoint(x:20,y:60));c.move(to: CGPoint(x:40,y:0));c.addLine(to: CGPoint(x:40,y:60));c.move(to: CGPoint(x:0,y:20));c.addLine(to: CGPoint(x:60,y:20));c.move(to: CGPoint(x:0,y:40));c.addLine(to: CGPoint(x:60, y:40));c.strokePath();UIColor.black.setFill();c.addEllipse(in:CGRect(x:22,y:2,width:16,height:16));c.addEllipse(in:CGRect(x:42,y:22,width:16,height:16));c.addEllipse(in:CGRect(x:2,y:42,width:16,height:16));c.addEllipse(in:CGRect(x:22,y:42,width:16,height:16));c.addEllipse(in:CGRect(x:42,y:42,width:16,height:16));c.fillPath();let i=UIGraphicsGetImageFromCurrentImageContext();sub.addSubview(UIImageView(image:i))

Более читаемая версия для всех, кто интересуется:

    UIGraphicsBeginImageContext(CGSize(width: 60, height: 60))
    let c = UIGraphicsGetCurrentContext()!

    UIColor.lightGray.setStroke()
    c.addRect(CGRect(x: 0, y: 0, width: 60, height: 60))
    c.move(to: CGPoint(x: 20, y: 0))
    c.addLine(to: CGPoint(x: 20, y: 60))
    c.move(to: CGPoint(x: 40, y: 0))
    c.addLine(to: CGPoint(x: 40, y: 60))
    c.move(to: CGPoint(x: 0, y: 20))
    c.addLine(to: CGPoint(x: 60, y: 20))
    c.move(to: CGPoint(x: 0, y: 40))
    c.addLine(to: CGPoint(x: 60, y: 40))
    c.strokePath()

    UIColor.black.setFill()
    c.addEllipse(in: CGRect(x: 22, y: 2, width: 16, height: 16))
    c.addEllipse(in: CGRect(x: 42, y: 22, width: 16, height: 16))
    c.addEllipse(in: CGRect(x: 2, y: 42, width: 16, height: 16))
    c.addEllipse(in: CGRect(x: 22, y: 42, width: 16, height: 16))
    c.addEllipse(in: CGRect(x: 42, y: 42, width: 16, height: 16))
    c.fillPath()

    let i = UIGraphicsGetImageFromCurrentImageContext()
    sub.addSubview(UIImageView(image: i))

Вот результат, полученный в iOS Simulator:

Рубин с Обуви, 118 символов

Shoes.app{9.times{|i|
stroke gray
fill white
rect x=i%3*w=10,y=i/3*w,w,w
stroke fill black
oval x+2,y+2,7if 482[i]>0}}

Бит проверка заимствованы из RJHunter «s комментарий сделал на Mark Thomas » s решение Руби .

Образец вывода:

SVG + HTML, 146 138 135 133 байта

<svg>
<path fill=none stroke=#ccc d=m.5.5h30v30h-30zh10v30h10v-30zv10h30v10h-30 />
<path d=m11,1h9v9m1,1h9v9m-29,1h9v9m1-9h9v9m1-9h9v9>

Благодаря снисходительному анализатору HTML xmlns="http://www.w3.org/2000/svg"объявление может быть опущено, а также кавычки атрибутов и закрывающий тег. Эта версия решает некоторые проблемы других HTML-решений:

• «Точка» гарантированно заполнит не менее 40% своей ячейки (§1)
• Он не использует внешнюю графику, например шрифты (§2, §6)
• Сетка идеально квадратная (§5)

Отредактируйте Shaved off 8 байтов, используя тот факт, что подпути не нужно закрывать для заполнения .

Редактировать В соответствии с грамматикой svg , не обязательно разделять запятую ( .5,.5). Я также отказался от явной заливки, чтобы изменить направление рисования одной линии с отрицательного на положительное, сохранив черту. И, наконец, я изменил счет, чтобы не включать завершающий перевод строки, извините за ошибку новичка.

Править Изучение из другого ответа на Codegolf, я заменил финал 9 />с 9>. Это прекрасно работает во всех протестированных браузерах.

Python 3 + PyGame, 238 байт

from pygame import*
d=display
s=d.set_mode([55]*2)
s.fill([255]*3)
f=lambda*a:draw.line(s,[128]*3,*a)
for x in[0,18,36,54]:
 f((x,0),(x,55));f((0,x),(55,x))
for x,y in zip([3,5,1,3,5],[1,3,5,5,5]):draw.circle(s,[0]*3,(x*9,y*9),7)
d.flip()

Казалось бы, произвольные константы от меня пытаются сделать изображение максимально большим, не жертвуя байтами.

С непечатными символами, 229 байт

from pygame import*
d=display
s=d.set_mode([55]*2)
s.fill([255]*3)
f=lambda*a:draw.line(s,[128]*3,*a)
for x in b'\0␒$6':
 f((x,0),(x,55));f((0,x),(55,x))
for x,y in zip(b'␃␅␁␃␅',b'␁␃␅␅␅'):draw.circle(s,[0]*3,(x*9,y*9),7)
d.flip()

Я заменил списки байтовыми литералами, что сохраняет кучу символов, но непечатные символы не могут отображаться здесь должным образом. Я заменил непечатные символы на их графические эквиваленты U + 2400-U + 2421 для отображения.