Golf kode: Cetak gambar kode sumber.

Persyaratan

1. Harus menampilkan gambar kode sumber itu sendiri, bukan versi yang disimpan di tempat lain dan diambil pada saat dijalankan.
2. Kode harus cukup dapat dibaca untuk disalin dengan tangan dan mereproduksi hasilnya.

Format gambar apa pun berlaku.

Bonus

• -10% dari skor Anda jika Anda mengizinkan lebih dari satu format output.
• -15% jika kode Anda juga quine 'benar'. yaitu tidak membaca kode sumbernya tetapi kode sumber disematkan (lihat di sini untuk contoh)
• -30% jika kode Anda adalah quine ketat - yaitu gambar kode tertanam dalam program (solusi Piet, saya melihat Anda.).

kulit

Dengan "Cetak gambar kode sumber", saya berasumsi bahwa sebenarnya mencetak gambar di atas kertas dapat diterima.

#!/bin/sh
lpr $0

Piet, 24399.76

Ini bukan buatan saya.

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

Jika peringatan baik-baik saja: 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);

Anda menyediakan fungsi output untuk digunakan sebagai argumen baris perintah pertama:

php timwolla.php imagepng

Solusi dengan peringatan:

Spasi, 125

Keluarkan file gambar dalam format pbm .

Jika Anda menguji kode ini, harap salin dengan mengklik "Edit", dan menyalin semua di antara <pre>tag.

Keluaran:

P1 1 1 0

Mathematica, 37 31 karakter

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

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

Terinspirasi oleh jawaban di Mathematica.stackexchange.com .

AppleScript, 68 37

Baiklah, jika Anda dapat memanggil ImageMagick di zsh maka ini juga valid. Saya masih meretas sesuatu yang lebih elegan dan of-the-quine-spirit untuk kepuasan saya sendiri, tetapi untuk golfiness murni, di sini kita:

Versi baru

do shell script "screencapture q.jpg"

Versi lama

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

Saya membayangkan ini masih akan dipukuli, tetapi AppleScript lama yang verbose melakukan tiruan dari kejelasan yang mengagumkan untuk yang satu ini.

do shell script "screencapture -c"

Mathematica, 83

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

Sh, X & ImageMagick 18.9:

 import -window root a.jpg

Ini harus bekerja di shell yang memiliki ImageMagick.

Untuk mencetak hanya kode yang didahului clear &&ini keluar pada 26.1

clear && import -window root a.jpg

Output sampel:

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/

Orang dapat mengklik kanan pada gambar dan menyimpannya sebagai PNG

Java, 570 - 10% - 15% = 427.5

^{( "filepath" termasuk), 554-10% - 15% = 415,5 ( "filepath" tidak termasuk)
Terima kasih kepada Andreas untuk menghapus BufferedImagedijava.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"));}}

Keluaran:

Untuk melihatnya dengan benar, lihat tautan ini: http://i.stack.imgur.com/RRSDw.png

Ini berfungsi seperti quine biasa, kecuali itu output ke gambar. Format saat ini png, tetapi format dapat dengan mudah diubah dengan mengganti semua instance pngdalam program dengan format apa pun yang Anda inginkan.

Tidak seperti beberapa jawaban di sini, ini adalah quine sejati; tidak ada pembacaan file program.

Javascript + JQuery 153 148

Reguler

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

Golf

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

Berikan nama file keluaran sebagai argumen.

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

Menghasilkan:

C99 (menggunakan 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});}
)

Ini sangat jelek tanpa jeda baris lagi, tetapi sayangnya mereka harus absen. Fungsi rendering teks sama sekali tidak mengontrol karakter, jadi setiap jeda baris dalam kode harus diterjemahkan secara manual dalam output.

Berikut kode yang sama tetapi dengan beberapa jeda baris tambahan untuk keterbacaan:

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

Sayangnya, ini juga tidak menambahkan jeda baris ke output grafis:

Outputnya masih terbaca, meskipun dengan output 9-point dan warna font merah, agak sedikit menyolok. Anda dapat memperbaikinya dengan mengorbankan karakter dengan mengganti 9dengan 12. (Perhatikan bahwa dimensi gambar yang dihasilkan hardcoded ke 2048x80. Untuk mengakomodasi perbedaan dalam berbagai font, sedikit kelebihan telah ditambahkan ke margin kanan dan depan, cukup sehingga font ukuran-12 harus tetap pas dengan nyaman Jika Anda ingin meningkatkannya lebih jauh, dimensi mungkin perlu diubah juga.)

Perintah untuk membangun program adalah:

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

Program ini mengasumsikan bahwa ada file font yang dipanggil q.ttfdi direktori saat ini ketika dijalankan. Saya menangani hal ini sebelumnya dengan menjalankan perintah berikut (yang seharusnya bekerja pada kebanyakan Linux modern):

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

(Sebaliknya, silakan mengimpor font TrueType favorit Anda sendiri.)

Setelah menjalankan program, output gambar akan dibuat di direktori saat ini, dalam file bernama q.bmp. Sayangnya file bitmap Windows adalah satu-satunya format output yang disediakan oleh program ini. Menambahkan lebih banyak format output akan membutuhkan penautan di lebih banyak perpustakaan.

Perhatikan bahwa program ini memanfaatkan sintaksis C99 untuk memperkenalkan nilai-nilai literal yang tidak sederhana, sehingga secara signifikan mengurangi jumlah variabel yang perlu didefinisikan. Ini adalah sesuatu yang harus dimanfaatkan oleh lebih banyak pegolf C.

C # - 498 - 15% = 423.3

Ini mungkin bisa lebih banyak golf. Saya belum pernah melakukan quine atau gambar seperti ini di C # sebelumnya:

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

Keluaran:

Menambahkan dukungan format yang berbeda akan mudah. Tidak yakin apakah itu sepadan.

Ruby, 104 karakter

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

Contoh output, per permintaan: 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])

Pemakaian:

python imgquine.py quine.jpg

Ini adalah quine sejati yang menarik output ke file yang ditentukan pada commandline. Format file diatur hanya dengan mengubah ekstensi nama file (mis. quine.jpgUntuk JPEG dan quine.pnguntuk PNG).

Contoh output (gambar 2000x20):