ความท้าทายนี้ค่อนข้างง่าย ในฐานะที่เป็นอินพุตคุณใช้เวลาในการแสดงออกปกติ

จากนั้นคุณส่งออกความจริง / เท็จว่าซอร์สโค้ดของคุณตรงกับนิพจน์ทั่วไปหรือไม่ มันง่ายมาก! อีกสองสิ่ง:

• ไม่มีควินบิวอิน อย่างไรก็ตามคุณสามารถเข้าถึงซอร์สโค้ดของรหัสด้วยไฟล์ IO และอื่น ๆ
• นี่คือรหัส - กอล์ฟดังนั้นรหัสที่สั้นที่สุดในหน่วยไบต์ชนะ!

ตัวอย่าง

หากซอร์สโค้ดของคุณพูดว่าabcอินพุตของa\wcจะคืนค่าจริงและอินพุตของa\dcจะคืนค่าเป็นเท็จ

Z shell ขนาด 12 ไบต์

grep "$@"<$0

เงื่อนไข Zsh เข้าใจเฉพาะรหัสทางออกเท่านั้นและสคริปต์จะออกด้วย 0 หรือ 1 ตามลำดับ

นอกจากนี้พิมพ์นี้เป็นสายที่ไม่ว่างเปล่า (รหัสแหล่งที่มา) สำหรับการแข่งขันและเป็นหนึ่งที่ว่างเปล่าสำหรับไม่ตรงกันซึ่งอาจจะเป็นค่า truthy / falsy ร่วมกับ/test[

โปรแกรมอ่านไฟล์ของตัวเอง แต่ตามความคิดเห็นนี้โดย OP จะอนุญาตให้ทำได้

JavaScript (ES6), 39

(f=_=>!!`(f=${f})()`.match(prompt()))()

Python 3, 119 ไบต์

นี่ดูเย็นกว่า IMO (และไม่ได้อ่านไฟล์)

(lambda i:print(bool(__import__('re').search(input(),i))))("(lambda i:print(bool(__import__('re').search(input(),i))))")

Python 3, 67 ไบต์

print(bool(__import__('re').search(input(),open(__file__).read())))

เพิ่มหลังจากอ่านความคิดเห็นนี้

Julia, 64 54 ไบต์

r=readline;show(ismatch(Regex(r()),open(r,@__FILE__)))

นิพจน์ทั่วไปของ Julia ใช้ PCRE ในขณะที่อ่านซอร์สโค้ดของไฟล์เป็นช่องโหว่มาตรฐานสำหรับ quines ในกรณีนี้มันได้รับอนุญาตอย่างชัดเจน รับอินพุตโดยไม่ขึ้นบรรทัดใหม่

Japt, 22 ไบต์

"+Q ³sAJ fU"+Q ³sAJ fU

เฟรมเวิร์ก quine มาตรฐานที่เพิ่มสองสามไบต์เพื่อรองรับความท้าทายนี้ Truthy = match (es), falsy = null ลองออนไลน์!

         // Implicit: U = input string, A = 10, J = -1, Q = quotation mark
"..."+Q  // Take this string and concatenate a quotation mark.
³        // Repeat three times.
sAJ      // Slice off the first 10 and last 1 chars.
fU       // Match U to the result.

Mathematica, 63 ไบต์

StringMatchQ[ToString[#0, InputForm], RegularExpression[#1]] & 

สังเกตพื้นที่ต่อท้าย ใช้กลไก Mma Quine มาตรฐานและทดสอบว่ามันตรงกับ regex หรือไม่

Perl, 21 ไบต์

open 0;$_=<0>=~$_

17 ไบต์บวก 4 -pl0ไบต์ ทำงานแบบนี้:

echo open | perl -pl0 quinean

ไฟล์ต้นฉบับจะต้องมีโค้ดด้านบนเท่านั้น (ไม่มี shebang, ไม่มีการขึ้นบรรทัดใหม่) ส่งออก1ถ้า regex จับคู่และสตริงว่างถ้ามันไม่ได้ (สตริงว่างคือเท็จใน Perl)

สามารถบันทึกสี่ไบต์ได้หากอินพุตรับประกันว่าจะไม่สิ้นสุดในบรรทัดใหม่:

open 0;say<0>=~<>

ทำงานแบบนี้:

echo -n open | perl -M5.010 quinean

sayต้อง Perl 5.10+ -M5.010และจะต้องเปิดใช้งานด้วย ตามที่Metaกล่าวว่า " -M5.010เมื่อจำเป็นต้องใช้นั้นฟรี" ให้คะแนน 17 ไบต์

มันทำงานอย่างไร

นี่คือรูปแบบที่เรียบง่ายใน quine "โกง" มาตรฐาน:

open 0;print<0>

นี้จะเปิดไฟล์ที่มีชื่อในและอ่านเนื้อหาที่มี$0<0>

$_=<0>=~$_อ่านหนึ่งบรรทัดจากแฟ้มแหล่งที่มาไม่ตรงกับที่ regex กับเนื้อหาของ$_(ซึ่งถูกอ่านโดย-pธง) $_และกำหนดผลให้ -pพิมพ์$_โดยอัตโนมัติในตอนท้าย

Jolf, 18 15 ไบต์

รองรับรสชาติ JS ของ RegEx ฉันหวังว่าไม่เป็นไร ลองที่นี่! .

 h$code.value#i

แสดงความคิดเห็น:

  $code.value#      the document's element "code" (the program container)
_h            i     and output if it has (matches) the input string (i.e. regex)

𝔼𝕊𝕄𝕚𝕟, 14 ตัวอักษร / 26 ไบต์ (ไม่แข่งขัน)

⟮‼(ⒸⅩ222+ᶈ0)đï

Try it here (Firefox only).

ใช้เวอร์ชันที่มีการแก้ไขข้อผิดพลาดที่เขียนหลังจากการท้าทาย

คำอธิบาย

⟮‼(ⒸⅩ222+ᶈ0)đï // implicit: ï=input
⟮               // copy block: copy following code for later use
 (ⒸⅩ222+ᶈ0)   // take convert 10222 to char, add stuff inside copy block
‼           đï // check if input matches resulting string
               // implicit output

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