กอล์ฟรหัส: พิมพ์ภาพของรหัสที่มา

ความต้องการ

1. ต้องเอาท์พุทอิมเมจของซอร์สโค้ดเองไม่ใช่เวอร์ชันที่เก็บไว้ที่อื่นและดึงข้อมูลในเวลาทำงาน
2. รหัสจะต้องอ่านได้ชัดเจนเพียงพอที่จะคัดลอกด้วยมือและทำซ้ำผลลัพธ์

สามารถใช้รูปแบบภาพใดก็ได้

โบนัส

• -10% ของคะแนนถ้าคุณอนุญาตให้ใช้มากกว่าหนึ่งรูปแบบเอาต์พุต
• -15% ถ้ารหัสของคุณยังควิน 'ความจริง' ie มันไม่ได้อ่านซอร์สโค้ด แต่ซอร์สโค้ดถูกฝังอยู่ (ดูตัวอย่างที่นี่ )
• -30% ถ้ารหัสของคุณเป็น quine ที่เข้มงวด - นั่นคือภาพของรหัสจะถูกฝังอยู่ในโปรแกรม (โซลูชั่น Piet ฉันกำลังมองคุณอยู่)

เปลือก

โดย "พิมพ์ภาพของซอร์สโค้ด" ฉันถือว่าการพิมพ์ภาพบนกระดาษจริงจะยอมรับได้

#!/bin/sh
lpr $0

Piet, 24399.76

ฉันไม่ได้ทำ

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

หากคำเตือนใช้ได้: 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

Mathematica, 37 31 ตัวอักษร

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

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

แรงบันดาลใจจากคำตอบใน mathematica.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"

Mathematica, 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

Java, 570 - 10% - 15% = 427.5

^{( "filepath" รวม) 554 - 10% - 15% = 415.5 ( "filepath" ไม่รวม)
ขอบคุณที่ 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ในโปรแกรมด้วยรูปแบบที่คุณต้องการ

ซึ่งแตกต่างจากคำตอบไม่กี่ที่นี่เป็น quine จริง ไม่มีการอ่านไฟล์โปรแกรม

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(โปรดทราบว่าขนาดของภาพที่ได้รับการ hardcoded เพื่อ 2048x80 เพื่อรองรับความแตกต่างในแบบอักษรต่างๆได้มีการเพิ่มบิตส่วนเกินที่พอเหมาะลงในระยะขอบด้านขวาและส่วนนำที่เพียงพอเพื่อให้แบบอักษรขนาด 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

นี่อาจเป็นเรื่องของกอล์ฟมากกว่า ฉันไม่เคยทำแบบฝึกหัดหรือกราฟิกประเภทนี้ใน 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);}}

เอาท์พุท:

การเพิ่มรูปแบบการสนับสนุนที่แตกต่างกันจะเป็นเรื่องง่าย ไม่แน่ใจว่ามันคุ้มค่าหรือไม่

Ruby, 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

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

การใช้งาน:

python imgquine.py quine.jpg

นี่คือ quine จริงที่ดึงเอาท์พุทไปยังไฟล์ที่ระบุใน commandline รูปแบบไฟล์ถูกตั้งค่าง่ายๆโดยการเปลี่ยนนามสกุลไฟล์ (เช่นquine.jpgสำหรับ JPEG และquine.pngPNG)

ตัวอย่างผลลัพธ์ (ภาพขนาด 2000x20):