Viết chương trình sẽ tạo đầu ra "đúng" nếu đầu vào khớp với mã nguồn của chương trình và tạo ra đầu ra "sai" nếu đầu vào không khớp với mã nguồn của chương trình.

Vấn đề này có thể được mô tả là có liên quan đến các quines, vì chương trình phải có khả năng tính toán mã nguồn của chính nó trong quá trình.

Đây là mã golf: áp dụng quy tắc tiêu chuẩn. Chương trình của bạn không được truy cập bất kỳ tệp đặc biệt nào, chẳng hạn như tệp mã nguồn của chính nó.

Chỉnh sửa: Nếu bạn chọn, đúng / sai có thể được thay thế bằng Đúng / Sai hoặc 1/0.

Thí dụ

Nếu mã nguồn của chương trình của bạn là bhiofvewoibh46948732));:/)4, thì đây là những gì chương trình của bạn phải làm:

Đầu vào (Stdin)

bhiofvewoibh46948732));:/)4

Đầu ra (Stdout)

true

Đầu vào

(Anything other than your source code)

Đầu ra

false

JavaScript: 26

function f(s){return s==f}

Tôi không biết nếu một tệp JavaScript thực sự đủ điều kiện là một "chương trình".

JavaScript ES6, 9 ký tự

Đây là cách duy nhất (golfy) để làm điều đó trong JS. ES6 chỉ làm cho nó mất ít nhân vật

Chạy cái này trong Bảng điều khiển web mới nhất của Firefox:

f=x=>f==x

Ví dụ sử dụng:

f("check") // returns false
f("x=>f==x") // returns true

Haskell, 72 ký tự

main=interact$show.(==s++show s);s="main=interact$show.(==s++show s);s="

Lưu ý: không có ký tự cuối dòng ở cuối tập lệnh.

$ runhaskell Self.hs < Self.hs
True

GolfScript, 11 ký tự

{`".~"+=}.~

Nếu không có =, mã này sẽ là một quine tạo mã nguồn riêng của nó dưới dạng một chuỗi. Điều này =làm cho nó so sánh chuỗi này với đầu vào và đầu ra của nó 1nếu chúng khớp và 0nếu chúng không khớp . Lưu ý rằng so sánh là chính xác - đặc biệt, một dòng mới ở cuối đầu vào sẽ khiến nó bị lỗi.

Giải trình:

• { } là một khối mã theo nghĩa đen trong GolfScript;
• .sao chép khối mã này và ~thực hiện bản sao thứ hai (để lại bản đầu tiên trên ngăn xếp);
• `xâu chuỗi khối mã và ".~"+ nối .~vào nó;
• cuối cùng, =so sánh chuỗi kết quả với đầu vào (được đẩy vào ngăn xếp dưới dạng chuỗi bởi trình thông dịch GolfScript trước khi chương trình bắt đầu) và trả về 1nếu chúng khớp và 0nếu chúng không khớp .

Perl, Infinity 41 38 Nhân vật

$_=q(print<>eq"\$_=q($_);eval"|0);eval

Cập nhật: Chương trình không còn kết thúc với một dòng mới, có nghĩa là nó sẽ hoạt động chính xác trên các tệp đa dòng. Bạn phải nhập dữ liệu từ STDIN mà không cần nhấn enter. Trên Windows tôi chỉ có thể làm điều này bằng cách đọc từ một tệp.

Giải pháp ban đầu:

print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(...

> <> , 68 byte

Cá thích ăn cá ị. Bây giờ chúng tôi biết họ có thể phân biệt họ với bạn bè của họ.

00v      0+1~$^?)0~\;n0\
  >:@@:@gi:0(?\:a=?/=?!/$1+
  0n;n*=f$=2~~/

Bạn có thể thử trực tuyến !

Con trăn 2, 55

a='a=%r;print a%%a==raw_input()';print a%a==raw_input()

Thử nghiệm:

a='a=%r;print a%%a==raw_input()';print a%a==raw_input() -> True

(anything else) -> False

JavaScript ES6, 16 14 byte

$=_=>_==`$=`+$

Trừ hai byte nhờ Neil.

31 byte nếu chúng ta phải đưa đầu vào qua dấu nhắc.

$=_=>prompt()==`$=${$};$()`;$()

38 byte nếu chúng ta phải xuất qua cảnh báo.

$=_=>alert(prompt()==`$=${$};$()`);$()

Đây là cách thích hợp để làm điều đó, vì câu trả lời của Trình tối ưu hóa không chấp nhận toàn bộ mã nguồn.

Node.js: 54

function f(){console.log(f+'f()'==process.argv[2])}f()

Bạn kiểm tra nó bằng cách lưu nó vào một tệp f.js(tên chính xác không có tầm quan trọng) và sử dụng

node f.js "test"

(kết quả đầu ra sai) hoặc

node f.js "$(< f.js)"

(kết quả đúng)

Tôi cũng đã tạo một phiên bản khác dựa trên eval:

eval(f="console.log('eval(f='+JSON.stringify(f)+')'==process.argv[2])")

Bây giờ là 72 ký tự, tôi sẽ cố rút ngắn điều đó khi có thời gian.

Smalltalk (phương ngữ Pharo 2.0)

Thực hiện phương thức 41 ký tự này trong Chuỗi (định dạng xấu cho mã golf):

isItMe^self=thisContext method sourceCode

Sau đó đánh giá điều này trong Không gian làm việc (in theo cách truyền thống của Smalltalk)
Đầu vào không được đọc từ stdin, nó chỉ là một Chuỗi mà chúng tôi gửi tin nhắn (một chương trình khác có thể là gì trong Smalltalk?):

'isItMe^self=thisContext method sourceCode' isItMe.

Nhưng chúng tôi đang gian lận, sourceCode đọc một số tệp nguồn ...
Đây là một biến thể với 51 ký tự không:

isItMe
    ^ self = thisContext method decompileString

Và kiểm tra với:

'isItMe
    ^ self = thisContext method decompileString' isItMe

Nếu một Chuỗi trong Không gian làm việc không được coi là đầu vào hợp lệ, thì hãy xem cách sử dụng một số Hộp thoại trong 116 ký tự
Chỉ cần đánh giá câu này:

(UIManager default request: 'type me') = (thisContext method decompileString withSeparatorsCompacted allButFirst: 7)

Vì định dạng dịch ngược bao gồm CR và TAB, chúng tôi thay đổi điều đó vớiSeparatorsCompacted.
Sau đó, chúng tôi bỏ qua 7 ký tự đầu tiên là 'doIt ^'

Cuối cùng, một biến thể 105 ký tự sử dụng stdin, chỉ cần diễn giải câu này từ dòng lệnh, để cảm thấy chính thống hơn:

Pharo -headless Pharo-2.0.image eval "FileStream stdin nextLine = (thisContext method decompileString withSeparatorsCompacted allButFirst: 7)"

flex - 312 ký tự

Q \"
N \n
S " "
B \\
P "Q{S}{B}{Q}{N}N{S}{B}n{N}S{S}{Q}{S}{Q}{N}B{S}{B}{B}{N}P{S}{Q}{P}{Q}{N}M{S}{Q}{M}{Q}{N}%%{N}{P}{N}{M}{N} putchar('1');"
M "(.|{N})* putchar('0');"
%%
Q{S}{B}{Q}{N}N{S}{B}n{N}S{S}{Q}{S}{Q}{N}B{S}{B}{B}{N}P{S}{Q}{P}{Q}{N}M{S}{Q}{M}{Q}{N}%%{N}{P}{N}{M}{N} putchar('1');
(.|{N})* putchar('0');

Có thể có thể được thực hiện ngắn hơn, nhưng nó hoạt động với đầu vào nhiều dòng (cần thiết vì mã nguồn là nhiều dòng) và ngay cả đối với các đầu vào có chứa chương trình dưới dạng một chuỗi con. Có vẻ như nhiều câu trả lời cho đến nay thất bại ở một hoặc cả hai câu trả lời.

Biên dịch lệnh: flex id.l && gcc -lfl lex.yy.c

D (133 ký tự)

enum c=q{import std.stdio;import std.algorithm;void main(){auto i=readln();writeln(equal("auto c=q{"~c~"};mixin(c);",i));}};mixin(c);

JavaScript (V8), 35

function i(){alert(prompt()==i+[])}

gọi i()và nó sẽ nhắc cho đầu vào

GolfScript - 26

":@;[34]@+2*=":@;[34]@+2*=

Lấy cảm hứng từ http://esolangs.org/wiki/GolfScript#Examples

Phiên bản khác:

"[34].@@;+2*="[34].@@;+2*=

Quá tệ đó \là cả trao đổi và thoát ...

Python 2, 47 byte

_='_=%r;print _%%_==input()';print _%_==input()

Một quine đơn giản với kiểm tra thêm.

CJam , 12 byte

{s"_~"+q=}_~

Hãy thử trực tuyến!

Giải trình

Điều này chỉ sử dụng khung quine CJam tiêu chuẩn.

{s"_~"+q=}    e# Push this block (function literal).
          _~  e# Copy and run it.

Khối này làm gì:

 s            e# Stringify the top element (this block itself).
  "_~"+       e# Append "_~". Now the source code is on the stack.
       q      e# Read the input.
        =     e# Check if it equals the source code.

Tcl, 111 ký tự

set c {set c {$c};puts [expr {[read stdin] eq [subst -noc \$c]}]};puts [expr {[read stdin] eq [subst -noc $c]}]

Perl, 52 char

$_='$/=$\;$_="\$_=\47$_\47;eval";print<>eq$_|0';eval

Python, 187 byte

import sys;code="import sys;code=!X!;print(sys.stdin.read()==code.replace(chr(33),chr(34)).replace(!X!,code,1))";print(sys.stdin.read()==code.replace(chr(33),chr(34)).replace("X",code,1))

Cẩn thận không thêm dòng mới vào cuối. Ai đó có Python-fu tốt hơn có thể rút ngắn nó.

Husk , 11 byte

=hS+s"=hS+s

Hãy thử trực tuyến!

Giải trình

Giải thích sử dụng ¨để phân định các chuỗi (để tránh thoát không thể đọc được):

     "=hS+s  -- string literal: ¨=hS+s¨
  S+         -- join itself with
    s        -- | itself "showed": ¨"=hS+s"¨
             -- : ¨=hS+s"=hS+s"¨
 h           -- init: ¨=hS+s"=hS+s¨
=            -- is the input equal?

Bằng cách loại bỏ chức năng, =bạn có thể xác minh rằng nó thực sự sẽ chỉ khớp với chính nguồn đó.

> <> , 24 byte

'1rd3*i={*}50l3-?.~i)*n;

Hãy thử trực tuyến!

Bao bọc chuỗi bằng chữ theo sau bằng cách kiểm tra xem đầu vào có giống với ngăn xếp hay không, với kiểm tra cuối cùng là không còn đầu vào nữa.

Thạch , 10 byte

“Ṿ;$⁼”Ṿ;$⁼

Hãy thử trực tuyến!

“Ṿ;$⁼”Ṿ;$⁼
“Ṿ;$⁼”      String literal: 'Ṿ;$⁼'
        $   Next two links act on the string literal
      Ṿ     Uneval: '“Ṿ;$⁼”'
       ;    Append string: '“Ṿ;$⁼”Ṿ;$⁼' (source code)
         ⁼  Is the string above equal to the input?

05AB1E , 15 byte

0"D34çýQ"D34çýQ

Sửa đổi quine mặc định 0"D34çý"D34çýbằng cách thêm Q(kiểm tra sự bằng nhau với đầu vào ẩn)

Hãy thử trực tuyến.

Giải trình:

0                # Push 0 to the stack
                 #  STACK: [0]
 "D34çýQ"        # Push the string 'D34çýQ' to the stack
                 #  STACK: [0, 'D34çýIå']
         D       # Duplicate this string
                 #  STACK: [0, 'D34çýIå', 'D34çýIå']
          34ç    # Push '"' to the stack
                 #  STACK: [0, 'D34çýIå', 'D34çýIå', '"']
             ý   # Join the stack by this '"' delimiter
                 #  STACK: ['0"D34çýIå"D34çýIå']
              Q  # Check if it's equal to the (implicit) input
                 # (and output the top of the stack implicitly as result)

Thay thế mát mẻ 15 byte được cung cấp bởi @Grimy :

187745012D27BJQ

Hãy thử trực tuyến.

Giải trình:

187745012        # Push integer 187745012 
                 #  STACK: [187745012]
         D       # Duplicate it
                 #  STACK: [187745012, 187745012]
          27     # Push integer 27
                 #  STACK: [187745012, 187745012, 27]
            B    # Convert 187745012 to base-27
                 #  STACK: [187745012, "D27BJQ"]
             J   # Join the values on the stack together
                 #  STACK: ["187745012D27BJQ"]
              Q  # Check if it's equal to the (implicit) input
                 # (and output the top of the stack implicitly as result)

C - 186 176 ký tự

Lót:

 *a="*a=%c%s%c,b[999],c[999];main(){sprintf(b,a,34,a,34);gets(c);putchar(strcmp(b,c)?'0':'1');}",b[999],c[999];main(){sprintf(b,a,34,a,34);gets(c);putchar(strcmp(b,c)?'0':'1');}

Với khoảng trắng (lưu ý rằng điều này phá vỡ chương trình):

*a="*a=%c%s%c,b[999],c[999];main(){sprintf(b,a,34,a,34);gets(c);putchar(strcmp(b,c)?'0':'1');}",b[999],c[999];
main() {
  sprintf(b,a,34,a,34);
  gets(c);
  putchar(strcmp(b,c)?'0':'1');
}

Python 2 , 40 byte

s="print's=%r;exec s'%s==input()";exec s

Hãy thử trực tuyến!

Stax , 26 byte

"34bLN26)s:f="34bLN26)s:f=

Chạy và gỡ lỗi nó

q, 8 byte

{x~.z.s}

Trả về boolean trên đầu vào khớp với .zs tự tham chiếu

Runic , 11 byte

"3X4+kSqi=@

Hãy thử trực tuyến!

TIO đã được cập nhật và không còn vấn đề đọc đầu vào (và không còn yêu cầu khoảng trắng theo dõi).

Giải trình

>                 Implicit entry
 "                Begin reading as string
  3X4+kSqi=@      Pushed to the stack as a string, loop around
 "                End reading as string
  3X4+            Push 3*10 and 4 to the stack, add them together
      k           Convert to character (")
       S          Swap the top two items on the stack
        q         Concatenate. This leaves only "3X4+kSqi=@ on the stack
         i        Read input
          =       Compare using .Equals, push 1 if equal, else 0
           @      Print and terminate

Giải pháp của JoKing:

"'<~qi=@|

Giải trình

  <              Entry
 '               Read character (loop around)
"                Push "
         |       Mirror
"                Begin reading string (loop around)
 '<~ri=@|        Push the string '<~qi=@| (loop around)
"                End reading string
 '<~             Push the character < and then discard it
    q            Concatenate, stack contains only "'<~qi=@|
      i          Read input
       =         Compare
        @        Print and terminate

R , 54 byte

f=function(s)s==paste0("f=function(s)s==", body(f)[3])

Hãy thử trực tuyến!

bodylấy phần thân của hàm (tách nó ra một chút, vì vậy đó body(f)[3]là mọi thứ từ đó paste0trở đi). Thật thú vị, bodyđịnh dạng lại mã, thêm dấu cách sau dấu phẩy, v.v ... Đây là trường hợp hiếm hoi của câu trả lời golf R với khoảng trắng sau dấu phẩy.

Điều này hoạt động vì body(f)là một đối tượng của kiểu languagevà tồn tại một as.characterphương thức cho kiểu này. Mặt khác, fvà args(f)thuộc loại closure, và không thể chuyển đổi thành loại ký tự như tôi có thể nói. Xin đừng hỏi tôi loại ngôn ngữ nào dành cho giáo dục

PowerShell, 28 byte

Rất giống với câu trả lời JavaScript này , sử dụng nhà cung cấp chức năng .

filter f{"$Function:f"-eq$_}

Thí dụ

PS > '"$Function:f"-eq$_' | f
True

PS > 'xxx' | f
False