入力がプログラムのソースコードに一致する場合は「true」の出力を生成し、入力がプログラムのソースコードに一致しない場合は「false」の出力を生成するプログラムを作成します。

この問題は、プログラムがプロセス内で独自のソースコードを何らかの方法で計算できる必要があるため、クインに関連していると説明できます。

これはコードゴルフです。標準ルールが適用されます。プログラムは、独自のソースコードのファイルなどの特別なファイルにアクセスしてはなりません。

編集：そのように選択した場合、true / falseはTrue / Falseまたは1/0に置き換えることができます。

例

プログラムのソースコードがの場合、bhiofvewoibh46948732));:/)4プログラムで実行する必要があることは次のとおりです。

入力（標準入力）

bhiofvewoibh46948732));:/)4

出力（標準出力）

true

入力

(Anything other than your source code)

出力

false

JavaScript：26

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

JavaScriptファイルが本当に「プログラム」として適格であるかどうかはわかりません。

JavaScript ES6、9文字

これは、JSで行う唯一の（ゴルフ）方法です。ES6では、文字数が非常に少なくなります

これを最新のFirefoxのWebコンソールで実行します。

f=x=>f==x

使用例：

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

Haskell、72文字

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

注：スクリプトの最後に行末文字はありません。

$ runhaskell Self.hs < Self.hs
True

GolfScript、11文字

{`".~"+=}.~

がない場合=、このコードは独自のソースコードを文字列として生成するクインになります。=それはその入力と出力にこの文字列を比較します1それらが一致する場合と0そうでない場合。比較は正確であることに注意してください。特に、入力の最後にある改行が原因で失敗します。

説明：

• { } GolfScriptのコードブロックリテラルです。
• .このコードブロックを複製し~、2番目のコピーを実行します（最初のスタックをスタックに残します）。
• `コードブロックを文字列化し、".~"+を追加.~します。
• 最後に=、結果の文字列を入力（プログラムの開始前にGolfScriptインタープリターによって文字列としてスタックにプッシュされる）と比較し、1一致する場合と一致0しない場合に戻ります。

Perl、Infinity 41 38文字

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

更新：プログラムは改行で終了しなくなりました。つまり、複数行のファイルで正しく動作します。Enterを押すことなく、STDINから入力を入力する必要があります。Windowsでは、ファイルから読み取ることによってのみこれを行うことができました。

元のソリューション：

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バイト

魚は魚の糞を食べるのが大好きです。今、彼らは彼らを彼らの友人と区別できることを知っています。

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

オンラインで試すことができます！

Python 2、55

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

テスト済み：

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

(anything else) -> False

JavaScriptのES6、16の 14バイト

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

Neilのおかげでマイナス2バイト。

プロンプト経由で入力する必要がある場合は31バイト。

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

アラート経由で出力する必要がある場合は38バイト。

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

オプティマイザーの答えはソースコード全体を受け入れないため、これは適切な方法です。

Node.js：54

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

それをファイルに保存してf.js（正確な名前は重要ではありません）テストします

node f.js "test"

（これはfalseを出力します）または

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

（これはtrueを出力します）

また、evalに基づいて異なるバージョンを作成しました。

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

現在は72文字になっています。時間があれば、それを短くしようとします。

Smalltalk（Pharo 2.0方言）

この41文字のメソッドをStringに実装します（code-golfのformattingいフォーマット）：

isItMe^self=thisContext method sourceCode

次に、ワークスペースでこれを評価します（printItは従来のSmalltalkの方法です）
入力はstdinから読み取られません。メッセージを送信する文字列です（Smalltalkで他にプログラムがあるとしたらどうでしょうか）。

'isItMe^self=thisContext method sourceCode' isItMe.

しかし、我々はごまかしています。sourceCodeはいくつかのソースファイルを読み取ります...
以下は51文字のバリアントです。

isItMe
    ^ self = thisContext method decompileString

そしてテスト：

'isItMe
    ^ self = thisContext method decompileString' isItMe

ワークスペース内の文字列が有効な入力と見なされない場合、116文字でダイアログボックスを使用する方法を見てみましょう。次の
文を評価してください。

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

逆コンパイル形式にはCRとTABが含まれているため、withSeparatorsCompactedを変更します。
次に、最初の7文字をスキップします 'doIt ^'

最後に、stdinを使用した105文字のバリアントは、コマンドラインからこの文を解釈するだけで、より主流になります。

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

フレックス-312文字

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

おそらく短くすることができますが、複数行の入力（ソースコードが複数行であるために必要です）およびサブストリングとしてプログラムを含む入力でも機能します。これまでの回答の多くは、これらの一方または両方で失敗したようです。

コンパイルコマンド： flex id.l && gcc -lfl lex.yy.c

D（133文字）

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+[])}

呼び出してi()、入力を促します

GolfScript-26

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

http://esolangs.org/wiki/GolfScript#Examplesから着想

別のバージョン：

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

\スワップとエスケープの両方であることが残念です...

Python 2、47バイト

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

チェックが追加された単純なクイン。

CJam、12バイト

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

オンラインでお試しください！

説明

これは、標準のCJam quineフレームワークを使用します。

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

ブロックの機能：

 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文字

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

Perl、52文字

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

Python、187バイト

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

最後に改行を追加しないように注意してください。より良いPython-fuを持っている人はそれを短くできるかもしれません。

殻、11バイト

=hS+s"=hS+s

オンラインでお試しください！

説明

説明では¨、文字列を区切るために使用しています（読み取り不能なエスケープを回避するため）。

     "=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?

関数=を削除することで、ソース自体にのみ一致することを確認できます。

> <>、24バイト

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

オンラインでお試しください！

文字列リテラルをラップした後、入力がスタックと同一であるかどうかを確認し、最後に入力がもうないことを確認します。

ゼリー、10バイト

“Ṿ;$⁼”Ṿ;$⁼

オンラインでお試しください！

“Ṿ;$⁼”Ṿ;$⁼
“Ṿ;$⁼”      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 バイト

0"D34çýQ"D34çýQ

追加してデフォルトのクインを 変更します（暗黙的な入力との等価性をチェックします）0"D34çý"D34çýQ

オンラインでお試しください。

説明：

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)

@Grimyが提供する15 バイトのクールな代替手段：

187745012D27BJQ

オンラインでお試しください。

説明：

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文字

一発ギャグ：

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

空白あり（これによりプログラムが中断されることに注意してください）：

*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バイト

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

オンラインでお試しください！

スタックス、26バイト

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

実行してデバッグする

q、8バイト

{x~.z.s}

自己参照.zsに一致する入力でブール値を返します

ルーン文字、11バイト

"3X4+kSqi=@

オンラインでお試しください！

TIOが更新され、入力の読み取りに関する問題はなくなりました（末尾の空白は不要になりました）。

説明

>                 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

JoKingのソリューション：

"'<~qi=@|

説明

  <              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バイト

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

オンラインでお試しください！

body関数の本体を取得します（少し分割するので、それ以降body(f)[3]はすべてpaste0です）。興味深いことに、bodyコンマの後にスペースを追加するなど、コードを再フォーマットします。したがって、これはコンマの後にスペースがあるRゴルフの回答のまれなケースです。

これbody(f)は、タイプのオブジェクトであるため機能し、このタイプのメソッドlanguageが存在しas.characterます。一方、fand args(f)はtype closureであり、私が知る限り、文字型に変換することはできません。言語タイプが何であるかを聞かないでください…

PowerShell、28バイト

このJavaScriptの回答に非常によく似ており、関数プロバイダーを使用します。

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

例

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

PS > 'xxx' | f
False