Code golf: Wydrukuj obraz kodu źródłowego.

Wymagania

1. Musi wyświetlać obraz samego kodu źródłowego, a nie wersję przechowywaną gdzie indziej i pobieraną w czasie wykonywania.
2. Kod musi być wystarczająco czytelny, aby można go było skopiować ręcznie i odtworzyć wyniki.

Obowiązuje dowolny format obrazu.

Bonusy

• -10% twojego wyniku, jeśli zezwolisz na więcej niż jeden format wyjściowy.
• -15%, jeśli twój kod jest również „prawdziwą” quine. tzn. nie czyta kodu źródłowego, ale kod źródłowy jest osadzony (patrz tutaj przykład)
• -30%, jeśli twój kod jest ścisłym quine - tj. Obraz kodu jest osadzony w programie (rozwiązania Piet, patrzę na ciebie.)

muszla

Przez „Wydrukuj obraz kodu źródłowego” zakładam, że rzeczywiście wydrukowanie obrazu na papierze byłoby dopuszczalne.

#!/bin/sh
lpr $0

Piet, 24399.76

To nie zostało zrobione przeze mnie.

PHP - 487 × 0,9 × 0,85 = 372,555 (2000 × 99px)

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

Jeśli ostrzeżenia są poprawne: 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);

Podajesz funkcję wyjściową, która ma być używana jako pierwszy argument wiersza poleceń:

php timwolla.php imagepng

Rozwiązanie z ostrzeżeniami:

Biała spacja, 125

Wysyła plik obrazu w formacie PBM .

Jeśli testujesz ten kod, skopiuj go, klikając „Edytuj” i kopiując wszystko między <pre>tagami.

Wydajność:

P1 1 1 0

Mathematica, 37 31 znaków

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

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

Zainspirowany odpowiedzią na mathematica.stackexchange.com .

AppleScript, 68 37

W porządku, jeśli możesz wywołać ImageMagick w Zsh, to również jest poprawne. Nadal hackuję coś bardziej eleganckiego i ducha quine dla mojej własnej satysfakcji, ale dla czystej golfisty, oto:

Nowa wersja

do shell script "screencapture q.jpg"

Stara wersja

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

Wyobrażam sobie, że nadal będzie to pobity, ale stary, pełen języka AppleScript robi godną podziwu imitację zwięzłości.

do shell script "screencapture -c"

Mathematica, 83

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

Sh, X i ImageMagick 18.9:

 import -window root a.jpg

Powinno to działać w dowolnej powłoce, która ma ImageMagick.

Aby wydrukować tylko kod poprzedzający, clear &&pojawia się w 26.1

clear && import -window root a.jpg

Przykładowe dane wyjściowe:

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>

Demo: http://jsfiddle.net/E2738/2/

Możesz kliknąć obraz prawym przyciskiem myszy i zapisać go jako PNG

Java, 570 - 10% - 15% = 427,5

^{(„ścieżka pliku” w zestawie), 554 - 10% - 15% = 415,5 („ścieżka pliku” nie jest wliczony)
Podziękowania dla Andreasa za usunięcie BufferedImagewjava.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"));}}

Wydajność:

Aby wyświetlić poprawnie, zobacz ten link: http://i.stack.imgur.com/RRSDw.png

Działa to tak jak zwykły quine, z tą różnicą, że wysyła obraz. Obecny format jest png, ale format można łatwo zmienić, zastępując wszystkie wystąpienia pngprogramu dowolnym formatem.

W przeciwieństwie do kilku odpowiedzi tutaj jest to prawdziwy quine; brak odczytu pliku programu.

JavaScript + JQuery 153 148

Regularny

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

Grał w golfa

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

Przekaż wyjściową nazwę pliku jako argument.

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

Produkuje:

C99 (przy użyciu SDL i 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});}
)

Jest to dość brzydkie bez kolejnych podziałów linii, ale niestety muszą być nieobecne. Funkcja renderowania tekstu w ogóle nie wykrywa znaków kontrolnych, więc wszelkie podziały wiersza w kodzie muszą być renderowane ręcznie na wyjściu.

Oto ten sam kod, ale z pewnymi dodatkowymi podziałami linii dla czytelności:

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

Niestety nie powoduje to również podziału linii na wynik graficzny:

Wyjście jest nadal czytelne, choć przy 9-punktowym wydruku i czerwonym kolorze czcionki jest nieco zwięzłe. Możesz go ulepszyć kosztem postaci, zastępując 9ją 12. (Należy zauważyć, że wymiar wynikowego obrazu jest zakodowany na stałe do 2048 x 80. Aby uwzględnić różnice w różnych czcionkach, dodano odpowiedni nadmiar do prawego marginesu i na początku, na tyle, że czcionka o rozmiarze 12 powinna nadal wygodnie pasować Jeśli jednak chcesz go zwiększyć, wymiary prawdopodobnie będą również musiały zostać zmienione).

Polecenie do zbudowania programu to:

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

Program zakłada, że q.ttfpo uruchomieniu plik czcionki jest wywoływany w bieżącym katalogu. Zadbałem o to wcześniej, uruchamiając następującą komendę (która powinna działać na większości współczesnych Linuksów):

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

(Zamiast tego możesz zaimportować swoją ulubioną czcionkę TrueType.)

Po uruchomieniu programu obraz wyjściowy zostanie utworzony w bieżącym katalogu, w pliku o nazwie q.bmp. Niestety pliki bitmapowe systemu Windows są jedynym formatem wyjściowym udostępnianym przez ten program. Dodanie większej liczby formatów wyjściowych wymagałoby łączenia w większej liczbie bibliotek.

Zauważ, że ten program wykorzystuje składnię C99 do wprowadzania nieprostych wartości literalnych, co znacznie zmniejsza liczbę zmiennych, które należy zdefiniować. Jest to coś, z czego powinno skorzystać więcej golfistów C.

C # - 498 - 15% = 423,3

To może być bardziej golfa. Nigdy wcześniej nie robiłem quinesów ani tego rodzaju grafiki w 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);}}

Wydajność:

Dodanie obsługi innego formatu byłoby łatwe. Nie jestem jednak pewien, czy warto.

Ruby, 104 znaki

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

Przykładowe dane wyjściowe na żądanie: i.imgur.com/jMC594C.png

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

Stosowanie:

python imgquine.py quine.jpg

To jest prawdziwa quine, która zwraca dane wyjściowe do pliku określonego w wierszu poleceń. Format pliku ustawia się po prostu przez zmianę rozszerzenia nazwy pliku (np. quine.jpgDla JPEG i quine.pngPNG).

Przykładowe dane wyjściowe (obraz 2000 x 20):