Sie müssen zwei Programme schreiben. Programm A muss auf allen Eingaben nichts ausgeben, außer wenn Programm B eingegeben wird. In diesem Fall sollte es gedruckt werden 1. Programm B muss 1auf allen Eingaben gedruckt werden, außer wenn Programm A eingegeben wird. In diesem Fall sollte es nichts drucken.

Wertung:

• +1 Für jedes Zeichen aus beiden Programmen.
• Die niedrigste Punktzahl gewinnt.

GTB , 25

Wird von einem TI-84-Rechner ausgeführt

Programm A

`_@_eq;"$w;&

Programm B

`_@_eq;"$#w;&

Erläuterung

`_ Geben Sie eine Zeichenfolge ein

@_eq;"Überprüfen Sie, ob es dem Quellcode entspricht ( #wird automatisch zusammen mit Kleinbuchstaben entfernt)

$w;&Wenn ja, angezeigt werden 1 (sonst nichts) [für Bsie ist $#w;&- wenn nicht, Anzeige 1 (sonst nichts)]

Bash - 32 Zeichen

Skript A - 16 Zeichen

cmp -s b&&echo 1

Skript B - 16 Zeichen

cmp -s a||echo 1

Verwendung

$> echo "foo" | ./a
$> cat b | ./a
1
$> echo "foo" ./b
foo ./b
$> cat a | ./b

Rubin, 54

EIN

$><<1if$<.read==IO.read(?B)

B

$><<1if$<.read!=IO.read(?A)

Beispiele:

bash-3.2$ ruby A < A
bash-3.2$ ruby A < B
1bash-3.2$ ruby B < A
bash-3.2$ ruby B < B
1bash-3.2$ 

J (62)

Da du das nicht verboten hast ...

Speichern Sie die Programme als AundB jeweils.

Programm A (30):

exit echo#~(1!:1<'B')-:1!:1[3

Programm B (32):

exit echo#~-.(1!:1<'A')-:1!:1[3

Wie es funktioniert (Programm B, A ist ähnlich):

• 1!:1[3: lese stdin
• 1!:1<'A': Datei lesen A
• -:: sehen, ob sie gleich sind
• -.: negiere das Ergebnis
• #~: repliziere das Ergebnis von selbst (also 1ergibt es eins 1und 0ergibt null 0s, dh nichts)
• echo: Ausgabe
• exit: exit (der J-Interpreter wird nicht standardmäßig beendet, wenn das Dateiende erreicht ist)

$ jKonsole A <B
1
$ jconsole A <foo
$ jconsole B <A
$ jconsole B <foo
1
$

Haskell - OHNE Ladequelle - 478 644 Zeichen

Dies setzt voraus, dass getContents IMMER mit einem Zeilenumbruch endet und daher das letzte Zeichen ohne Überprüfung entfernt, da ich keine Lust habe, ihm zu entkommen

EIN

main=interact$($'1').replicate.(1-).fromEnum.(/=map r(d++shows d[toEnum 10]))where r n|n=='-'='*'|n=='*'='-'|True=n;d="main=interact$($'1').replicate.(1-).fromEnum.(/=map r(d++shows d[toEnum 10]))where r n|n=='-'='*'|n=='*'='-'|True=n;d="

B

main=interact$($'1').replicate.(1*).fromEnum.(/=map r(d++shows d[toEnum 10]))where r n|n=='*'='-'|n=='-'='*'|True=n;d="main=interact$($'1').replicate.(1*).fromEnum.(/=map r(d++shows d[toEnum 10]))where r n|n=='*'='-'|n=='-'='*'|True=n;d="

Es funktioniert wie ein Standard-Quine, tauscht jedoch - gegen *, um das andere Programm zu erhalten (wobei diese Zeichen an anderer Stelle vermieden werden).

Der folgende Test wird wie erwartet gedruckt (Ersetzen von main = interact $ durch a = und b =)

main=do
  putStrLn "START"
  putStrLn$a "FOO"
  putStrLn$a "main=interact$($'1').replicate.(1*).fromEnum.(/=map r(d++shows d[toEnum 10]))where r n|n=='*'='-'|n=='-'='*'|True=n;d=\"main=interact$($'1').replicate.(1*).fromEnum.(/=map r(d++shows d[toEnum 10]))where r n|n=='*'='-'|n=='-'='*'|True=n;d=\"\n"
  putStrLn$b "FOO"
  putStrLn$b "main=interact$($'1').replicate.(1-).fromEnum.(/=map r(d++shows d[toEnum 10]))where r n|n=='-'='*'|n=='*'='-'|True=n;d=\"main=interact$($'1').replicate.(1-).fromEnum.(/=map r(d++shows d[toEnum 10]))where r n|n=='-'='*'|n=='*'='-'|True=n;d=\"\n"
  putStrLn "END"

-

START

1
1

END

Python 2.7 - 82

Datei A (wörtlich nur genannt a):

if raw_input()==open('b').read():print 1

Datei B (wörtlich nur genannt b):

if raw_input()!=open('a').read():print 1

Ruby, 166 Zeichen, keine Lesequelle

EIN:

(gets(p)==<<2.tr('&|','|&')*2+'2')&&p(1)
(gets(p)==<<2.tr('&|','|&')*2+'2')&&p(1)
2

B:

(gets(p)==<<2.tr('|&','&|')*2+'2')||p(1)
(gets(p)==<<2.tr('|&','&|')*2+'2')||p(1)
2

Stellen Sie sicher, dass Ihr Texteditor nicht mit einer nachgestellten Newline speichert.

Verwendung (Beispiel):

 $ ruby know_a.rb know_b.rb 
1
 $ ruby know_a.rb know_a.rb 
 $ ruby know_b.rb know_a.rb 
 $ ruby know_b.rb know_b.rb 
1

Jedes Programm erstellt mithilfe von HEREdoc und String-Transformationen die Quelle des anderen Programms und vergleicht dann das Ergebnis mit der Eingabe.

Haskell - 138

Keine wirklich gute Antwort, wollte aber dafür sorgen, dass beide Programme dieselbe Quelle verwenden. Durch Umbenennen der Datei könnten einige Zeichen gespart werden, aber dies wird keine gewinnbringende Lösung sein, daher denke ich, dass es sich nicht lohnt.

import System.Environment
import Control.Monad
main=do{i<-getContents;p<-getProgName;f<-readFile "ab.hs";when((f==i)/=(p=="B"))(print 1)}

Kompilieren Sie diese Quelle als Aund B.

Prüfung:

% ghc -o A ab.hs
[1 of 1] Compiling Main             ( ab.hs, ab.o )
Linking A ...
% cp A B
% ./A < ab.hs
1
% ./B < ab.hs
% ./A < ab.hi
% ./B < ab.hi
1

Node.js - 142 Zeichen

Skript |(auch als Skript A bekannt) - 80 Zeichen

f=require('fs').readFileSync;f('/dev/stdin','hex')==f('&','hex')&&console.log(1)

Skript &(auch als Skript B bezeichnet) - 62 Zeichen

eval(require('fs').readFileSync('|','utf8').replace(/&/g,'|'))

Verwendung

# \| is Script A
# \& is Script B

$> echo "foo" | node \| 
$> cat \& | node \| 
1
$> echo "foo" | node \& 
1
$> cat \| | node \&

Beschreibung

Skript B liest den Inhalt von Skript A und wertet ihn aus, nachdem die Dateinamen und der andOperator zu einem ausgetauscht wurden or.

Ich nannte die Dateien &und |so kann ich eine einzige ersetzen in Script B. ausführen

Python 3 - 102 Zeichen

Gibt 1 aus, wenn die Eingabe mit Programm 2 identisch ist, andernfalls nichts:

if input()==open('a.py').read():print('1')

Gibt 1 aus, wenn die Eingabe nicht mit Programm 1 übereinstimmt, andernfalls nichts:

if input()==open('a.py').read():print('1')

bash / grep - 59 Zeichen

51 Zeichen, wenn wir nur die tatsächliche Programmzeichenfolge zählen.

$ a='grep -cx "$b" | grep -x 1'
$ b='grep -vcx "$a" | grep -x 1'
$ echo 'foo' | eval $a
$ echo $b | eval $a
1
$ echo 'foo' | eval $b
1
$ echo $a | eval $b

R (62 Zeichen)

i=identical
A=function(x)if(i(x,B))1
B=function(x)if(!i(x,A))1

produziert:

> A(123)
> A(A)
> A(B)
[1] 1
> B(123)
[1] 1
> B(A)
> B(B)
[1] 1

Meta-Kommentar: R-Messen sind auf Code-Golf relativ schlecht, da es keine Abkürzung zu function...