โปสเตอร์แฝงตัวเป็นเวลานานเป็นครั้งแรก ดังนั้นที่นี่ไป

ในหน้าวิกิพีเดียสำหรับquineมันบอกว่า "ควินินถือว่าเป็น 'การโกง' ถ้ามันดูซอร์สโค้ดของมันเอง" งานของคุณคือการทำให้หนึ่งใน "โกง quines" ที่อ่านรหัสต้นฉบับ

นี่คือโค้ดกอล์ฟดังนั้นโค้ดที่สั้นที่สุดเป็นไบต์ - ในแต่ละภาษา - ชนะ ซึ่งหมายความว่าสคริปต์ Pyth ขนาด 5 ไบต์จะไม่ชนะสคริปต์ Python ขนาด 21 ไบต์ แต่สคริปต์ Python ขนาด 15 ไบต์

คุณต้องใช้ไฟล์ I / O เพื่ออ่านซอร์สโค้ดดังนั้นโค้ด JavaScript ต่อไปนี้ที่นำมาจากหน้า Wikipedia อย่างเป็นทางการนั้นไม่ถูกต้อง:

function a() {
    document.write(a, "a()");
}
a()

มันจะต้องเข้าถึงรหัสที่มาของไฟล์บนดิสก์

คุณไม่ได้รับอนุญาตให้ระบุชื่อไฟล์ คุณต้องทำให้มันตรวจจับชื่อไฟล์เอง

ทุกคนชัดเจน? ไป!

Zsh , 4 ไบต์

<$0

Z เชลล์มีฟังก์ชันแมวตัวละครตัวที่สี่คือ linefeed

ลองออนไลน์!

รหัสไม่ได้ขึ้นอยู่กับชื่อไฟล์ มันใช้งานได้แม้ว่าชื่อไฟล์จะมีอักขระพิเศษเช่นช่องว่างหรือบรรทัดใหม่

ทดสอบการทำงาน

$ cat "my quine.sh"
<$0
$ zsh "my quine.sh" 
<$0
$ diff -s <(zsh "my quine.sh") <(cat "my quine.sh")
Files /dev/fd/63 and /dev/fd/62 are identical

Bash ขนาด 6 ไบต์

cat $0

เป็นพื้น

ตัวโหลดที่รันได้ UNIX ขนาด 10 ไบต์

#!/bin/cat

หากคุณไม่สนใจเกี่ยวกับสแปมจากข้อผิดพลาดมาตรฐานคุณสามารถทำให้สั้นลงหนึ่งไบต์:

#!/bin/dd

C, 52

s[99];main(){read(open(__FILE__,0),s,99);printf(s);}

แน่นอนนี้อ่านซอร์สโค้ดไม่ใช่โปรแกรมที่คอมไพล์ - ฉันถือว่ามันอยู่ในสเป็ค

PHP, 21 ไบต์

<?=file(__FILE__)[0];

fileอ่านบรรทัดไฟล์ทีละบรรทัดในอาร์เรย์และไฟล์มีเพียงหนึ่งบรรทัด readfile(__FILE__)นี้ช่วยประหยัดไบต์ในการเปรียบเทียบกับ

Perl, 15 ไบต์

open 0;print<0>

บันทึกแล้ว 3 ไบต์ขอบคุณ @ ThisSuitIsBlackNot !

Perl 6, 20 ไบต์

print slurp $?FILE

ฉันไม่ได้ทำงานกับ Perl 6 นานมากดังนั้นฉันไม่แน่ใจว่ามีเทคนิคใดที่ทำให้เรื่องนี้สั้นลงหรือไม่

osascript (AppleScript จากบรรทัดคำสั่ง), 40 33 32 ไบต์

(อ่านเส้นทางมาหาฉัน) วรรค 1

osascript aการดำเนินการเกี่ยวกับไฟล์ที่เรียกว่ากับ

รับย่อหน้า (บรรทัด) ของไฟล์และพิมพ์ไปยัง STDOUT พร้อมกับขึ้นบรรทัดใหม่ดังนั้นบรรทัดใหม่ในโค้ด

Python 2, 32 ไบต์

มีการขึ้นบรรทัดใหม่ที่ท้ายไฟล์

print open(__file__).readline()

Python 3, 33 ไบต์

มีการขึ้นบรรทัดใหม่ที่ท้ายไฟล์

print(open(__file__).readline())

ขอขอบคุณที่feersumสำหรับการจับปัญหาและการจัดหา__file__, Loovjoหาวิธีการใหม่ในการแก้ปัญหางูหลาม 2 ที่บันทึกไว้ 17 ไบต์และSkylerหาโซลูชันที่บันทึกไว้เลยไบต์อื่นและทำงานอยู่ในทั้งงูหลามที่ 2 และ 3 (รอprintเป็นฟังก์ชั่นในหลาม 3)!

ลิงก์ Doc สำหรับ readline

ชุด 9 8 ไบต์

@type %0

บันทึกเป็นไบต์ด้วย @Joshua

Python 2.7, 30 ไบต์

print open(__file__).read(29)

แก้ไข: เพียงเพื่อให้ชัดเจนรหัสข้างต้นควรจะมีการขึ้นบรรทัดใหม่ในตอนท้ายเป็นไบต์ที่ 30 ฉันไม่คุ้นเคยกับมาร์คดาวน์มากพอที่จะหาวิธีแสดงมันในบล็อคโค้ด

ฉันใช้เล่ห์เหลี่ยมเดียวกันกับที่นี่ในการส่ง C ของฉัน สิ่งนี้จะอ่านไฟล์ต้นฉบับทั้งหมดยกเว้นการขึ้นบรรทัดใหม่ต่อท้ายเพื่อบัญชีขึ้นบรรทัดใหม่เพิ่มเติมซึ่งprintจะผนวกเข้ากับเอาต์พุต

Java, 212 196 ไบต์ (171 ไบต์พร้อมด้วยกฎการเข้ารหัสยากที่น่าสงสัย)

ขอบคุณ @Cruncher สำหรับการย่อให้สั้นลง ~ 15 ไบต์!

ฉันไม่สงสัยเลยว่านี่สามารถเล่นกอล์ฟได้

import java.nio.file.*;class A{public static void main(String[]a){new A();}A(){try{System.out.print(new String(Files.readAllBytes(Paths.get(getClass().getName()+".java"))));}catch(Exception e){}}}

หรือวิธีอื่นโดยใช้วิธีการคงที่ (และชื่อของชั้นเรียน) ฉันได้รับ 171 ไบต์ ฉันไม่แน่ใจว่าสิ่งนี้มีคุณสมบัติเป็นฮาร์ดโค้ดหรือไม่

import java.nio.file.*;class A{public static void main(String[]a)throws Exception{System.out.print(new String(Files.readAllBytes(Paths.get(A.class.getName()+".java"))));}}

ใช้ตัวสร้างเพื่อรับชื่อคลาสโดยวิธีการไม่คงที่ โดยใช้วิธีการแบบคงที่ ( A.class.getName()) คือจริงๆเขียนยากดังนั้นผมจึงใช้วิธี 'เหมาะสม' ใช้A.class.getName()รหัสนี้สั้นลงถึง 171 ไบต์

รุ่นที่อ่านได้:

ใช้ตัวสร้างและthis.getClass():

import java.nio.file.*;
class A{
    public static void main(String[]a) {
        new A();
    }
    A(){
        try{
            System.out.print(
                new String(
                Files.readAllBytes(
                Paths.get(
                getClass().getName()+".java"))));
        }
        catch(Exception e) {}
    }
}

ใช้วิธีการคงที่A.class.getName():

import java.nio.file.*;
class A {
    public static void main(String[] a) throws Exception {
        System.out.print(
             new String(
                  Files.readAllBytes(
                       Paths.get(
                            A.class.getName()+".java"))));
    }
}

จับไบต์ทั้งหมดของไฟล์ในครั้งเดียวและส่งออกไปยัง STDOUT ตรงไปตรงมาสวย

AutoIt, 34 ไบต์

เอาท์พุทตัวเองไปยังคลิปบอร์ด:

ClipPut(FileRead(@ScriptFullPath))

ทับทิม, 14

$>.<<IO.read$0

ไป, 111 105 ไบต์

package main
import("io"
."os"
."runtime")
func main(){_,p,_,_:=Caller(0)
f,_:=Open(p)
io.Copy(Stdout,f)}

code-golf ครั้งแรกของฉันใน Go - เพียงไม่กี่เทคนิคที่คุณสามารถใช้ที่นี่ฉันเดา

PowerShell, 39 36 31 25 ไบต์

เกี่ยวกับคับที่ฉันจะได้รับ:

gc $MyInvocation.MyCommand.Path | oh

ได้รับการสนับสนุนตามความต้องการที่เป็นที่นิยมสิ่งนี้ได้ถูกเปลี่ยนเป็น:

gc $PSCommandPath|echo -n

พิมพ์ไปยังเอาต์พุตมาตรฐานปัจจุบันของเชลล์โฮสต์

ทับทิมขนาด 15 ไบต์

$><<IO.read($0)

ที่มา: https://stackoverflow.com/questions/2474861/shortest-ruby-quine

C, 49 ไบต์

s[];main(){read(open(__FILE__,0),s,48);puts(s);}

แก้ไข: เพื่อชี้แจงชัดเจนไบต์ที่ 49 เป็นบรรทัดใหม่

นี่เป็นการอ่านซอร์สโค้ดด้วยการขึ้นบรรทัดใหม่ในตอนท้ายเพื่อทำการขึ้นบรรทัดใหม่ซึ่งputsจะต่อท้ายส่วนท้ายของเอาต์พุต

Mathematica ขนาด 16 ไบต์

FilePrint@$Input

ทำงานในโหมดสคริปต์

Pyth, 25 ไบต์

$import sys$h'e$sys.argv

นี่จะอ่านชื่อไฟล์ โดยพื้นฐานแล้วมันจะค้นหา argv เปิดไฟล์ที่สอดคล้องกับอาร์กิวเมนต์สุดท้ายและพิมพ์บรรทัดแรก

ไป, 133 ไบต์

ทุกคนชัดเจน? ไป!

package main
import("fmt"
"io/ioutil"
"runtime")
func main(){_,f,_,_:=runtime.Caller(0)
s,_:=ioutil.ReadFile(f)
fmt.Print(string(s))}

> <> , 13 ไบต์

0:0go:c=?;1+!

ทดสอบทั้งกับล่ามออนไลน์และออฟไลน์ gคำสั่งที่ใกล้เคียงกับความสามารถในการอ่านจากแฟ้มแหล่งที่มาและถ้ามันไม่นับสำหรับวัตถุประสงค์ของการท้าทายนี้ที่ผมจะทำเครื่องหมายรายการของฉันที่ไม่ใช่การแข่งขัน; ฉันเชื่อว่าปกติถือว่า "โกง" สำหรับควิน

ลองออนไลน์

Haskell, 63 ไบต์

สำหรับวิทยาศาสตร์!

import System.Environment
main=getProgName>>=readFile>>=putStr

> <> , 31 ไบต์

คำเตือน: ไม่มีไฟล์ I / O ใน> <> แต่ฉันคิดว่ามันน่าสนใจที่จะแสดง codespace ของ I / O ที่สืบทอดมาจาก Befunge หนึ่งในภาษาที่เป็นแรงบันดาลใจ> <>

00voa0+1;!?$~<
1+> :r:@g: ?!^o$

ควินตนเองอ่านฉันทำเวลาที่ผ่านมาคุณสามารถลองที่นี่

ฉันเพิ่งเห็นมีสั้น> <> ตัวเองอ่านควิน ในขณะที่เห็นได้ชัดว่าดีกว่าในมาตรฐานของ code-golf ฉันต้องการชี้ให้เห็นว่ามันมีความยาวของรหัส hardcoded ในขณะที่ฉันจะคัดลอกบรรทัดหรือคอลัมน์ของรหัสเพิ่มเติม (ตราบใดที่พวกเขาไม่ทำลายรหัสต้นฉบับ)

F #, 54 ไบต์

printf"%s"(System.IO.File.ReadAllText __SOURCE_FILE__)

การใช้งาน:

fsi --exec a.fsx

Perl 5, 15 13 ไบต์

มอบเครดิตให้แก่โซลูชัน Bash สำหรับการสร้างแรงบันดาลใจนี้:

print`cat $0`

แก้ไข: ไม่ต้องการเซมิโคลอนหรือช่องว่างแรก

Node.js, 66 63 ไบต์

p=process;p.stdout.write(require('fs').readFileSync(p.argv[1]))

ไม่ใช้console.logซึ่งจะผนวกบรรทัดใหม่

C, 31 ไบต์

main(){system("cat "__FILE__);}

โซลูชัน bashนั้นสั้นมากแล้วทำไมไม่ลองใช้สารละลาย C กับมันล่ะ?

Haskell , 49 ไบต์

{-#LANGUAGE CPP#-}main=putStr=<<readFile __FILE__

ลองออนไลน์!

(GHC) Haskell มีส่วนขยายเพื่อใช้ตัวประมวลผลล่วงหน้า C (โดยทั่วไปใช้สำหรับการพกพาระหว่างเวอร์ชันและสถาปัตยกรรม) หวังว่าจะอธิบายด้วยตนเอง

HTML พร้อม JavaScript ขนาด 115 ไบต์ (ไม่นับ)

<!DOCTYPE html><html><title>x</title><script>alert(new XMLSerializer().serializeToString(document))</script></html>

สิ่งนี้นับหรือไม่ ฉันไม่รังเกียจมันสนุก :)

ในทางเทคนิคแล้วมันไม่ได้เปิดไฟล์ นอกจากนี้ยังเป็นเอกสาร HTML5 ที่มีรูปแบบที่ดี XMLSerializer เป็นเครื่องมือเดียวที่ส่งคืนส่วน DOCTYPE แต่กลับไม่ได้มาตรฐาน ยังใช้งานได้กับ Chrome และ Firefox และฉันเดิมพันเบราว์เซอร์อื่น ๆ

และเป็นโบนัส:

JavaScript ขนาด 41 ไบต์

alert(document.currentScript.textContent)