Код гольфу: друк зображення вихідного коду.

Вимоги

1. Потрібно вивести зображення самого вихідного коду, а не версію, що зберігається в іншому місці та отриману під час виконання.
2. Код повинен бути досить розбірливим, щоб копіювати вручну та відтворювати результати.

Будь-який формат зображення застосовується.

Бонуси

• -10% від вашої оцінки, якщо ви допускаєте більш ніж один вихідний формат.
• -15%, якщо ваш код також є "справжньою" королевою. тобто він не читає його вихідний код, але вихідний код є вбудованим (див. тут приклад)
• -30%, якщо ваш код є суворим квином - тобто зображення коду вбудоване в програму (Piet рішення, я дивлюся на вас).

оболонки

"Друкуючи зображення вихідного коду", я припускаю, що насправді надрукувати зображення на папері було б прийнятним.

#!/bin/sh
lpr $0

Піт, 24399,76

Це не було зроблено мною.

PHP - 487 × 0,9 × 0,85 = 372,555 (2000 × 99 пікс.)

<?php $y="imagecolorallocate";$l=[
'<?php $y="imagecolorallocate";$l=[',
'];$i=imagecreate(2e3,99);$y($i,99,99,99);$w=$y($i,$j=0,0,0);$z=function($_)use(&$j,$i,$w){imagestring($i,4,9,$j+=15,$_,$w);};$z($l[0]);foreach($l as$m)$z(chr(39).$m.chr(39).",");$z($l[1]);$argv[1]($i,"o");',
];$i=imagecreate(2e3,99);$y($i,99,99,99);$w=$y($i,$j=0,0,0);$z=function($_)use(&$j,$i,$w){imagestring($i,4,9,$j+=15,$_,$w);};$z($l[0]);foreach($l as$m)$z(chr(39).$m.chr(39).",");$z($l[1]);$argv[1]($i,"o");

Якщо попередження добре: PHP - 479 × 0,9 × 0,85 = 366,435

<?php $y=imagecolorallocate;$l=[
'<?php $y=imagecolorallocate;$l=[',
'];$i=imagecreate(2e3,99);$y($i,99,99,99);$w=$y($i,$j=0,0,0);$z=function($_)use(&$j,$i,$w){imagestring($i,4,9,$j+=15,$_,$w);};$z($l[0]);foreach($l as$m)$z(chr(39).$m.chr(39).",");$z($l[1]);$argv[1]($i,o);',
];$i=imagecreate(2e3,99);$y($i,99,99,99);$w=$y($i,$j=0,0,0);$z=function($_)use(&$j,$i,$w){imagestring($i,4,9,$j+=15,$_,$w);};$z($l[0]);foreach($l as$m)$z(chr(39).$m.chr(39).",");$z($l[1]);$argv[1]($i,o);

Ви надаєте функцію виводу, яку слід використовувати в якості першого аргументу командного рядка:

php timwolla.php imagepng

Рішення з попередженнями:

Пробіл, 125

Виводить файл зображення у форматі pbm .

Якщо ви тестуєте цей код, скопіюйте його, натиснувши "Редагувати" та скопіювавши все між <pre>тегами.

Вихід:

P1 1 1 0

Математика, 37 31 ряд

(#2[#1[#0[#1,#2]]]&)[Defer,Rasterize]

(Rasterize[#1[#0[#1]]]&)[Defer]

Натхненний відповіддю на сайті mateica.stackexchange.com .

AppleScript, 68 37

Добре, якщо ви можете зателефонувати ImageMagick в zsh, це теж справедливо. Я все ще хакую щось більш елегантне і найвищого духу для власного задоволення, але для чистого гольфізму, ось ми:

Нова версія

do shell script "screencapture q.jpg"

Стара версія

tell application "System Events" to keystroke "#" using command down

Я думаю, що це все одно буде побитий, але багатослівний старий AppleScript робить чудову імітацію лаконічності для цього.

do shell script "screencapture -c"

Математика, 83

SelectionMove[InputNotebook[],Previous,Cell];Rasterize@NotebookRead@SelectedCells[]

Sh, X і ImageMagick 18.9:

 import -window root a.jpg

Це має працювати в будь-якій оболонці, що має ImageMagick.

Для друку тільки коду передбачення clear &&це виходить в 26.1

clear && import -window root a.jpg

Вибірка зразка:

HTML5 / Javascript: 615

<canvas id='i' width=500 height=5000></canvas><script>function d(){var e=document.getElementById("i");var t=e.getContext("2d");t.font="20px Arial";var n=400;var r=25;var i=(e.width-n)/2;var s=60;str="<canvas id='i' width=5000 height=500></canvas>\n<script>"+d+"d();"+wrapText+"<\/script>";wrapText(t,str,i,s,n,r)}function wrapText(e,t,n,r,i,s){var o=t.split(" ");var u="";for(var a=0;a<o.length;a++){var f=u+o[a]+" ";var l=e.measureText(f);var c=l.width;if(c>i&&a>0){e.lineWidth=1;e.strokeStyle="blue";e.strokeText(u,n,r);u=o[a]+" ";r+=s}else{u=f}}e.lineWidth=1;e.strokeStyle="blue";e.strokeText(u,n,r)}d()</script>

Демо: http://jsfiddle.net/E2738/2/

Клацніть зображення правою кнопкою миші та збережіть його як PNG

Ява, 570 - 10% - 15% = 427,5

^{( "Шлях до файлу" в комплекті), 554 - 10% - 15% = 415,5 ( "Шлях до файлу" не входить в комплект )
Завдяки Andreas для видалення BufferedImageвjava.awt.image.BufferedImage}

import java.awt.image.*;class Q{public static void main(String[]a)throws Exception{BufferedImage i=new BufferedImage(3500,12,1);String s="import java.awt.image.*;class Q{public static void main(String[]a)throws Exception{BufferedImage i=new BufferedImage(3500,12,1);String s=%s%s%s;char q=34;i.getGraphics().drawString(String.format(s,q,s,q,q,q,q,q),0,9);javax.imageio.ImageIO.write(i,%spng%s,new java.io.File(%sfilepath%s));}}";char q=34;i.getGraphics().drawString(String.format(s,q,s,q,q,q,q,q),0,9);javax.imageio.ImageIO.write(i,"png",new java.io.File("filepath"));}}

Вихід:

Щоб правильно переглянути, перейдіть за цим посиланням: http://i.stack.imgur.com/RRSDw.png

Це працює так само, як звичайна квітка, за винятком того, що вона виводить зображення. Поточний формат є png, але формат можна легко змінити, замінивши всі екземпляри pngпрограми на будь-який формат, який ви хочете.

На відміну від кількох відповідей тут, це справжня королева; відсутність читання файлу програми.

Javascript + JQuery 153 148

Регулярні

(function f(){
  c=$('<canvas/>')[0];
  a=c.getContext('2d');
  l=('('+f+')()').split('\n');
  for(i=0;i<l.length;i++)
    a.fillText(l[i],5,12*(i+1));
  $('body').append('<img src="'
      +c.toDataURL("image/png")+'"/>')
})()

<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script>

Гольф

function f(){c=$('<canvas>')[0];c.width=750;a=c.getContext('2d');a.fillText(f+'f()',5,9);$('body').append('<img src="'+c.toDataURL("png")+'"/>')}f()

<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script>

zsh, 57 × 0,9 = 51,3

Передайте це ім'я вихідного файлу як аргумент.

convert -annotate +0+10 "$(<$0)" -size 320x14 xc:white $1

Виробляє:

C99 (використовуючи SDL & SDL_ttf), 414 354 346 - 15% = 294,1

#include<SDL_ttf.h>
#define Q(P)char*q=#P;P
Q(
i=5;main(){for(SDL_Surface*s=SDL_SetVideoMode(2048,80,SDL_Init(SDL_INIT_VIDEO),TTF_Init());i--;SDL_SaveBMP(s,"q.bmp"))SDL_BlitSurface(TTF_RenderText_Blended(TTF_OpenFont("q.ttf",9),(char*[]){"#include<SDL_ttf.h>","#define Q(P)char*q=#P;P","Q(",q,")"}[i],(SDL_Color){~0}),0,s,&(SDL_Rect){0,16*i});}
)

Це досить потворно, без більше розривів рядків, але, на жаль, вони повинні бути відсутніми. Функція візуалізації тексту взагалі не обробляє символи керування, тому будь-які розриви рядків у коді повинні бути виведені вручну у висновку.

Ось той самий код, але з деякими додатковими перервами рядків, що додаються для розбірливості:

#include<SDL_ttf.h>
#define Q(P)char*q=#P;P
Q(
i=5;main(){for(SDL_Surface*s=SDL_SetVideoMode(2048,80,
SDL_Init(SDL_INIT_VIDEO),TTF_Init());i--;SDL_SaveBMP(s,"q.bmp"))
SDL_BlitSurface(TTF_RenderText_Blended(TTF_OpenFont("q.ttf",9),
(char*[]){"#include<SDL_ttf.h>","#define Q(P)char*q=#P;P","Q(",q,")"}[i],
(SDL_Color){~0}),0,s,&(SDL_Rect){0,16*i});}
)

На жаль, це також не додає розривів рядків до графічного виводу:

Вихід все ще розбірливий, хоча з 9-кратним виходом та червоним кольором шрифту він трохи скупий. Ви можете поліпшити його за рахунок характеру шляхом заміни 9з 12. (Зверніть увагу, що розмір отриманого зображення жорстко закодований до 2048х80. Для урахування відмінностей у різних шрифтах до правої межі та провідної частини додано неабиякий надлишок, щоб шрифт розміру-12 мав усе ще зручно розміщуватись Однак, якщо ви хочете додатково її збільшити, розміри, ймовірно, потрібно буде також змінити.)

Команда для складання програми:

gcc -Wall -o imgquine imgquine.c -lSDL_ttf `sdl-config --cflags --libs`

Програма передбачає, що q.ttfв поточному каталозі при запуску є файл шрифту, який викликається . Я заздалегідь подбав про це, виконавши таку команду (яка повинна працювати на більшості сучасних Linux):

ln -s `fc-match --format='%{file}' sans` ./q.ttf

(Не соромтеся імпортувати власний улюблений шрифт TrueType.)

Після запуску програми вихід зображення буде створено у поточному каталозі у файлі з назвою q.bmp. На жаль, файли растрових файлів Windows - єдиний вихідний формат, який надає ця програма. Додавання більшої кількості вихідних форматів потребує зв’язування в більшості бібліотек.

Зауважте, що ця програма використовує перевагу синтаксису C99 для введення непростих буквальних значень, тим самим значно зменшуючи кількість змінних, які потрібно визначити. Це те, чим варто скористатися більше гольфістів на C.

C # - 498 - 15% = 423,3

Це, ймовірно, може бути більше гольфу. Я ніколи раніше не робив quines або подібну графіку в C #:

using System;using System.Drawing;class Q{static void Main(){var b = new Bitmap(3050, 20);var g=Graphics.FromImage(b);string f="using System;using System.Drawing;class Q{{static void Main(){{var b = new Bitmap(3050, 20);var g=Graphics.FromImage(b);string f={0}{1}{0},e={3}{0}{2}{0};g.DrawString(String.Format(f,(char)34,f,e,'@'),SystemFonts.MenuFont,Brushes.Black,0,0);b.Save(e);}}}}",e=@"D:\p.png";g.DrawString(String.Format(f,(char)34,f,e,'@'),SystemFonts.MenuFont,Brushes.Black,0,0);b.Save(e);}}

Вихід:

Додати підтримку іншого формату було б просто. Не впевнений, чи варто це, хоча.

Рубін, 104 символи

require "RMagick"
include Magick
Draw.new.annotate(i=Image.new(999,99),0,0,0,9,File.read($0))
i.display

Приклад виводу на запит: i.imgur.com/jMC594C.png

Пітон: 255 238 -10% -15% = 195.075 182.07

import sys,PIL.ImageDraw as D;i=D.Image.new('L',(2000,20));r="import sys,PIL.ImageDraw as D;i=D.Image.new('L',(2000,20));r=%r;D.Draw(i).text((0,0),r%%r,fill=255);i.save(sys.argv[1])";D.Draw(i).text((0,0),r%r,fill=255);i.save(sys.argv[1])

Використання:

python imgquine.py quine.jpg

Це справжній quine, який малює вихід у файл, вказаний у командному рядку. Формат файлу встановлюється просто шляхом зміни розширення імені файлу (наприклад, quine.jpgдля JPEG та quine.pngPNG).

Приклад виводу (зображення 2000x20):