"Gerçek" çıktı üretecektir bir program yazın IFF giriş programının kaynak kodunu eşleşir ve giriş programının kaynak kodunu uymuyor iff "sahte" çıktı üretir.

Bu problem, program sürecinde bir şekilde kendi kaynak kodunu hesaplayabilmesi gerektiğinden, kuyruklarla ilişkili olarak tanımlanabilir.

Bu kod golf: standart kurallar geçerlidir. Programınız, kendi kaynak kodunun dosyası gibi hiçbir özel dosyaya erişmemelidir.

Düzenleme: İsterseniz, doğru / yanlış, Doğru / Yanlış veya 1/0 ile değiştirilebilir.

Örnek

Programınızın kaynak kodu ise bhiofvewoibh46948732));:/)4, programınızın yapması gerekenler:

Giriş (Stdin)

bhiofvewoibh46948732));:/)4

Çıkış (stdout)

true

Giriş

(Anything other than your source code)

Çıktı

false

JavaScript: 26

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

Bir JavaScript dosyasının gerçekten bir "program" olarak nitelendirilip getirilmediğini bilmiyorum.

JavaScript ES6, 9 karakter

Bu JS içinde yapmak için tek (golfy) yolu. ES6 sadece daha az karakter almasını sağlar

Bunu en son Firefox’un Web Konsolunda çalıştırın:

f=x=>f==x

Örnek kullanım:

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

Haskell, 72 karakter

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

Not: Betiğin sonunda satır sonu karakteri yoktur.

$ runhaskell Self.hs < Self.hs
True

GolfScript, 11 karakter

{`".~"+=}.~

=Bu kod olmadan , bu kod bir kaynak olarak kendi kaynak kodunu üreten bir kod olurdu. Bu =, bu dizgiyi, 1eğer eşleşip eşleşmediğini girdi ve çıktı ile karşılaştırır 0. Kıyaslamanın kesin olduğuna dikkat edin - özellikle, girişin sonundaki takip eden yeni satır başarısız olmasına neden olur.

Açıklama:

• { } GolfScript'te bire bir kod bloğudur;
• .bu kod bloğunu çoğaltır ve ~ikinci kopyayı yürütür (ilkini yığında bırakarak);
• `kod bloğunu siler ve ".~"+ ekler .~;
• son olarak, =sonuçta elde edilen dizgeyi girdiyle karşılaştırır (program başlamadan önce yığın üzerinde GolfScript yorumlayıcısı tarafından dizge olarak itilen) ve 1eşleşip eşleşip eşleşmediklerini döndürür 0.

Perl, Infinity 41 38 Karakterler

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

Güncelleme: Program artık yeni bir satırla bitmiyor, bu da çok satırlı dosyalarda düzgün çalışacağı anlamına geliyor. STDIN'den girişi girmeden girmeniz gerekir. Windows'ta bunu sadece bir dosyadan okuyarak yapabildim.

Orijinal çözüm:

print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(print<>==q(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 bayt

Balıklar balık kakasını yemeyi sever. Artık onların arkadaşlarını arkadaşlarından ayırt edebildiklerini biliyoruz '.

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

Şunları yapabilirsiniz çevrimiçi denemek !

Python 2, 55

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

Test:

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

(anything else) -> False

JavaScript ES6, 16 14 bayt

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

Neil sayesinde eksi iki bayt.

İstemi kullanarak giriş yapmamız gerekiyorsa 31 bayt.

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

Uyarı yoluyla çıktı vermemiz gerekirse 38 bayt.

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

Bu doğru Optimizer cevabı tüm kaynak kodunu kabul etmiyor gibi bunu yapmanın yolu.

Node.js: 54

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

Bir dosyaya kaydederek f.js(tam adın önemi yoktur) ve kullanarak test edebilirsiniz.

node f.js "test"

(yanlış çıktı veren) veya

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

(hangi çıktılar doğru)

Ayrıca eval'e dayanarak farklı bir versiyon hazırladım:

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

Şimdi 72 karakterde, zamanım olduğunda bunu kısaltmaya çalışacağım.

Küçük konuşma (Pharo 2.0 lehçesi)

String'de bu 41 karakter metodunu uygulayın (kod-golf için çirkin formatlama):

isItMe^self=thisContext method sourceCode

Daha sonra bunu bir Çalışma Alanında değerlendirin (printIt, geleneksel Smalltalk yöntemiyle)
Giriş, stdin'den okunmaz, yalnızca iletiyi gönderdiğimiz bir String (Smalltalk'ta başka bir program olabilir?):

'isItMe^self=thisContext method sourceCode' isItMe.

Ama hile yapıyoruz, sourceCode bazı kaynak dosyaları okuyor ...
İşte 51 karaktere sahip olmayan bir değişken :

isItMe
    ^ self = thisContext method decompileString

Ve ile test edin:

'isItMe
    ^ self = thisContext method decompileString' isItMe

Bir Çalışma Alanındaki bir Dize geçerli bir girdi olarak değerlendirilmezse , 116 karakterde İletişim Kutusunun nasıl kullanılacağını görelim.

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

Decompile formatı CR ve TAB içerdiğinden, bunları Sepeptors Comppacted ile değiştiriyoruz.
Sonra ilk 7 karakteri atladık 'doIt ^'

Sonunda stdin kullanarak 105 karakterli bir değişken var, sadece bu cümleyi komut satırından yorumlayın, daha ana akım hissetmek için:

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

esnek - 312 karakter

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

Muhtemelen daha kısa yapılabilir, ancak çok satırlı girişle çalışır (kaynak kod birden fazla satır olduğundan gereklidir) ve hatta programı alt dize olarak içeren girişler için bile geçerlidir. Şu ana kadarki cevapların çoğu bunlardan birinde ya da her ikisinde de başarısız görünüyor.

Derleme komutu: flex id.l && gcc -lfl lex.yy.c

D (133 karakter)

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

çağrı i()ve giriş için isteyecektir

GolfScript - 26

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

Http://esolangs.org/wiki/GolfScript#Examples'dan ilham alındı

Başka bir sürüm:

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

Çok kötü \, hem takas hem de kaçış ...

Python 2, 47 bayt

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

Eklenen çek ile basit bir ip.

CJam , 12 bayt

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

Çevrimiçi deneyin!

açıklama

Bu sadece standart CJam quine çerçevesini kullanır.

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

Blok ne yapar:

 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 karakter

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

Perl, 52 karakter

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

Python, 187 bayt

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

Sonunda yeni satır eklememeye dikkat edin. Python-fu'u daha iyi olan biri onu kısaltabilir.

Kabuğu , 11 bayt

=hS+s"=hS+s

Çevrimiçi deneyin!

açıklama

Açıklama, ¨dizeleri sınırlandırmak için kullanılır (okunamayan çıkışlardan kaçınmak için):

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

İşlevini kaldırarak =yapabilirsiniz doğrulamak gerçekten sadece kaynak kendisi maç olacak.

> <> , 24 bayt

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

Çevrimiçi deneyin!

Sarma dizgisi değişmezini takiben girişin yığınla aynı olup olmadığını kontrol edin, daha sonra başka bir giriş olmadığını kontrol edin.

Jöle , 10 bayt

“Ṿ;$⁼”Ṿ;$⁼

Çevrimiçi deneyin!

“Ṿ;$⁼”Ṿ;$⁼
“Ṿ;$⁼”      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 bayt

0"D34çýQ"D34çýQ

Ekleyerek varsayılan sırayı değiştirir (örtülü girdiyle eşitliği kontrol et)0"D34çý"D34çýQ

Çevrimiçi deneyin.

Açıklama:

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)

Serin 15 bayt tarafından sağlanan alternatif @Grimy :

187745012D27BJQ

Çevrimiçi deneyin.

Açıklama:

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 karakter

Bir astar:

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

Boşluk ile (bunun programı kırdığını unutmayın):

*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 bayt

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

Çevrimiçi deneyin!

Stax , 26 bayt

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

Koş ve hata ayıkla

q, 8 bayt

{x~.z.s}

Kendinden referanslı .zs ile eşleşen girdide boolean döndürür

Runik , 11 bayt

"3X4+kSqi=@

Çevrimiçi deneyin!

TIO güncellendi ve artık girdi okuma sorunu bulunmuyor (ve artık boş bir boşluk gerektirmiyor).

açıklama

>                 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'in çözümü:

"'<~qi=@|

açıklama

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

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

Çevrimiçi deneyin!

bodyişlevin gövdesini alır (biraz bölmek, böylece body(f)[3]her şey daha paste0sonra olur). İlginç bir şekilde, bodykodu yeniden biçimlendirir, virgüllerden sonra boşluk ekler vb.

Bu çalışır çünkü body(f)bir tür nesnesidir languageve as.characterbu tür için bir yöntem vardır . Öte yandan fve args(f)tür closureve söyleyebileceğim kadarıyla karakter türüne dönüştürülemez. Lütfen bana dil türünün ne olduğunu sorma…

PowerShell, 28 bayt

Bu JavaScript cevabına çok benzer , işlev sağlayıcı kullanır .

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

Örnek

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

PS > 'xxx' | f
False