Anda ditugaskan menulis dua program. Program A harus mencetak apa pun pada semua input kecuali ketika program B adalah input, dalam hal ini harus dicetak 1. Program B harus mencetak 1pada semua input kecuali ketika program A adalah input, dalam hal ini tidak boleh mencetak apa pun.

Mencetak:

• +1 Untuk setiap karakter dari kedua program.
• Skor terendah menang.

GTB , 25

Dieksekusi dari kalkulator TI-84

Program A

`_@_eq;"$w;&

Program B

`_@_eq;"$#w;&

Penjelasan

`_ Masukkan string

@_eq;"Periksa apakah itu sama dengan kode sumber ( #secara otomatis dihapus bersama dengan huruf kecil)

$w;&Jika demikian, tampilkan 1 (jika tidak ada) [untuk Bitu $#w;&- jika tidak, tampilkan 1 (jika tidak ada)]

Bash - 32 karakter

Script A - 16 karakter

cmp -s b&&echo 1

Script B - 16 karakter

cmp -s a||echo 1

Pemakaian

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

Ruby, 54

SEBUAH

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

B

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

contoh:

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)

Karena Anda tidak melarang ini ...

Simpan program sebagai AdanB masing masing.

Program A (30):

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

Program B (32):

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

Cara kerjanya (Program B, A serupa):

• 1!:1[3: baca stdin
• 1!:1<'A': baca file A
• -:: lihat apakah mereka sama
• -.: meniadakan hasilnya
• #~: mereplikasi hasil dengan sendirinya (jadi, 1hasil dalam satu 1dan 0hasil dalam nol 0s, yaitu tidak ada)
• echo: output
• exit: exit (J interpreter tidak keluar secara default saat mencapai akhir file)

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

Haskell - TANPA memuat sumber - 478 644 karakter

Ini mengasumsikan getContents SELALU berakhir dengan baris baru dan menjatuhkan karakter terakhir tanpa memeriksa karena saya tidak merasa ingin melarikan diri

SEBUAH

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

Ini bekerja seperti quine standar, tetapi bertukar - untuk * untuk mendapatkan program lain (menghindari karakter tersebut di tempat lain).

Tes berikut dicetak seperti yang diharapkan (mengganti main = berinteraksi $ dengan a = dan 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

File A (secara harfiah bernama adil a):

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

File B (secara harfiah bernama adil b):

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

Ruby, 166 karakter, tidak ada sumber bacaan

SEBUAH:

(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

Pastikan editor teks Anda tidak menyimpan dengan baris baru tambahan.

Penggunaan (contoh):

 $ 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

Setiap program mengkonstruksikan sumber program lain menggunakan HEREdoc dan transformasi string, kemudian membandingkan hasilnya dengan input.

Haskell - 138

Bukan jawaban yang benar-benar bagus, tetapi ingin membuat kedua program menggunakan sumber yang sama. Bisa menyimpan beberapa karakter dengan mengganti nama file, tetapi itu tidak akan menjadikan ini solusi yang unggul jadi saya tidak berpikir itu sepadan.

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

Kompilasi sumber ini sebagai keduanya Adan B.

Uji:

% 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 |(atau dikenal sebagai Script A) - 80 karakter

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

Script &(atau dikenal sebagai Script B) - 62 karakter

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

Pemakaian

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

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

Deskripsi

Script B membaca konten Script A dan mengevaluasinya setelah bertukar nama file dan and operator ke or.

Saya menamai file-file tersebut &dan |saya dapat melakukan penggantian tunggal dalam Script B.

Python 3 - 102 karakter

Mencetak 1 jika inputnya sama dengan program 2, jika tidak apa-apa:

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

Mencetak 1 jika input tidak sama dengan program 1, jika tidak apa-apa:

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

bash / grep - 59 karakter

51 karakter jika kita hanya menghitung string program yang sebenarnya.

$ 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

menghasilkan:

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

Meta comment: R menunjukkan relatif buruk pada kode golf karena tidak ada jalan pintas untuk function...