İki program yazmakla görevlisiniz. Program A , program B girilmesi dışında tüm girişlere hiçbir şey yazdırmamalıdır , bu durumda yazdırmalıdır . Program B çıktısını gerekir bütün girdilere hariç programı A hiçbir şey yazdırmalısınız bu durumda olduğunu girdi.11

puanlama:

• +1 Her iki programdaki her karakter için .
• En düşük puan kazanır.

GTB , 25

Bir TI-84 hesap makinesinden yürütülür

program A

`_@_eq;"$w;&

program B

`_@_eq;"$#w;&

açıklama

`_ Bir dize girin

@_eq;"Kaynak koduna eşit olup olmadığını kontrol edin ( #küçük harflerle otomatik olarak soyulur)

$w;&[İçin Öyleyse, 1 (Aksi şey) görüntüler Bbu kadar $#w;&- değilse, görüntü 1 (Aksi şey)]

Bash - 32 karakter

Komut dosyası A - 16 karakter

cmp -s b&&echo 1

Senaryo B - 16 karakter

cmp -s a||echo 1

kullanım

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

Yakut, 54

bir

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

B

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

örnekler:

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)

Bunu yasaklamadığınız için ...

Programları AveB sırasıyla saklayın.

Program A (30):

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

Program B (32):

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

Nasıl çalışır (Program B, A benzerdir):

• 1!:1[3: okuma stdin
• 1!:1<'A': dosyayı oku A
• -:: eşit olup olmadıklarına bakın
• -.: sonucu olumsuzlamak
• #~: sonucu tek başına çoğaltır (yani, bir 1sonuç verir ve sıfır s 1ile 0sonuçlanır 0, yani hiçbir şey)
• echo: çıktı
• exit: exit (J yorumlayıcısı dosyanın sonuna geldiğinde varsayılan olarak çıkmaz)

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

Haskell - Yükleme kaynağı OLMADAN - 478 644 karakter

Bu getContents HER ZAMAN bir satırsonu ile sona erdiğini varsayar ve bu yüzden son karakteri kontrol etmeden bırakır çünkü kaçmak istemiyorum

bir

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

Standart bir quine gibi çalışır, ancak diğer programı almak için * değiştirmek (başka yerlerde bu karakterlerden kaçınmak için).

Aşağıdaki test beklendiği gibi yazdırılır (main = interaktif $ ile a = ve b = yerine)

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

A Dosyası (kelimenin tam anlamıyla adlandırılmış a):

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

Dosya B (tam anlamıyla sadece adlandırılmış b):

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

Ruby, 166 karakter, okuma kaynağı yok

A:

(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

Metin düzenleyicinizin sondaki yeni satırla kaydetmediğinden emin olun.

Kullanım (örnek):

 $ 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

Her program, bir HEREdoc ve string dönüşümleri kullanarak diğer programın kaynağını oluşturur, ardından sonucu girdiyle karşılaştırır.

Haskell - 138

Gerçekten iyi bir cevap değil, ama her iki programın da aynı kaynağı kullanmasını istedim. Dosyayı yeniden adlandırarak bazı karakterleri kaydedebiliriz, ancak bunu kazanan bir çözüm yapmayacaktır, bu yüzden buna değer olduğunu düşünmüyorum.

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

Bu kaynağı hem Ave olarak derleyin B.

Ölçek:

% 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 karakter

Script |(A Script olarak da bilinir) - 80 karakter

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

Komut Dosyası &(Komut Dosyası B olarak da bilinir) - 62 karakter

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

kullanım

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

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

Açıklama

Komut dosyası B, Komut dosyası A'nın içeriğini okur ve dosya adlarını ve andişleci bir or.

Dosyaları adlandırdım &ve |böylece Script B'de tek bir değişiklik yapabilirim.

Python 3-102 karakter

Giriş program 2 ile aynıysa 1 yazdırır, aksi takdirde hiçbir şey yazmaz:

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

Giriş program 1 ile aynı değilse 1 yazdırır, aksi takdirde hiçbir şey yazmaz:

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

bash / grep - 59 karakter

51 karakter yalnızca gerçek program dizesini sayarsak.

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

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

üretir:

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

Meta yorum: R kısayol yok gibi kod golf nispeten kötü fuarlar function...