Bạn được giao nhiệm vụ viết hai chương trình. Chương trình A phải in ra không có gì trên tất cả các đầu vào trừ khi chương trình B là đầu vào, trong trường hợp đó nên in 1. Chương trình B phải in ra 1trên tất cả các đầu vào trừ khi chương trình A là đầu vào, trong trường hợp đó, nó sẽ không in gì.

Ghi điểm:

• +1 Đối với mỗi nhân vật từ cả hai chương trình.
• Điểm số thấp nhất chiến thắng.

GTB , 25

Được thực hiện từ máy tính TI-84

Chương trình A

`_@_eq;"$w;&

Chương trình B

`_@_eq;"$#w;&

Giải trình

`_ Nhập một chuỗi

@_eq;"Kiểm tra xem nó có bằng mã nguồn không ( #được tự động tước cùng với các chữ cái thường)

$w;&Nếu vậy, hiển thị 1 (nếu không có gì) [đối với Bnó $#w;&- nếu không, hiển thị 1 (nếu không có gì)]

Bash - 32 ký tự

Tập lệnh A - 16 ký tự

cmp -s b&&echo 1

Kịch bản B - 16 ký tự

cmp -s a||echo 1

Sử dụng

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

Ruby, 54

Một

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

B

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

ví dụ:

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)

Vì bạn đã không cấm điều này ...

Lưu trữ các chương trình như Avà Btương ứng.

Chương trình A (30):

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

Chương trình B (32):

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

Cách thức hoạt động (Chương trình B, A tương tự):

• 1!:1[3: đọc stdin
• 1!:1<'A': Đọc tài liệu A
• -:: xem họ có bằng nhau không
• -.: phủ nhận kết quả
• #~: tự sao chép kết quả (vì vậy, 1kết quả là một 1và 0kết quả bằng 0 0, tức là không có gì)
• echo: đầu ra
• exit: exit (trình thông dịch J không thoát theo mặc định khi đến cuối tệp)

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

Haskell - KHÔNG tải nguồn - 478 644 ký tự

Giả định này getContents LUÔN LUÔN kết thúc bằng một dòng mới và vì vậy bỏ ký tự cuối cùng mà không kiểm tra vì tôi không cảm thấy muốn thoát khỏi nó

Một

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

Nó hoạt động giống như một quine tiêu chuẩn, nhưng hoán đổi - cho * để có được chương trình khác (tránh các ký tự đó ở nơi khác).

Các thử nghiệm sau đây in như mong đợi (thay thế main = tương tác $ bằng a = và 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

Con trăn 2.7 - 82

Tệp A (được đặt tên theo nghĩa đen a ):

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

Tệp B (được đặt tên theo nghĩa đen b):

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

Ruby, 166 ký tự, không có nguồn đọc

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

Hãy chắc chắn rằng trình soạn thảo văn bản của bạn không lưu với một dòng mới.

Cách sử dụng (ví dụ):

 $ 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

Mỗi chương trình xây dựng nguồn của chương trình khác bằng cách sử dụng biến đổi TẠI ĐÂY và chuỗi, sau đó so sánh kết quả với đầu vào.

Haskell - 138

Không thực sự là một câu trả lời tốt, nhưng muốn làm cho cả hai chương trình sử dụng cùng một nguồn. Có thể lưu một số ký tự bằng cách đổi tên tệp, nhưng nó sẽ không biến đây thành một giải pháp chiến thắng nên tôi không nghĩ nó đáng giá.

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

Biên dịch nguồn này là cả hai Avà B.

Kiểm tra:

% 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 ký tự

Tập lệnh |(còn được gọi là Tập lệnh A) - 80 ký tự

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

Tập lệnh &(còn được gọi là Tập lệnh B) - 62 ký tự

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

Sử dụng

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

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

Sự miêu tả

Tập lệnh B đọc nội dung của Tập lệnh A và xóa nó sau khi hoán đổi tên tập tin và andtoán tử thành mộtor .

Tôi đã đặt tên cho các tệp &và |vì vậy tôi có thể thực hiện một thay thế duy nhất trong Tập lệnh B.

Python 3 - 102 ký tự

In 1 nếu đầu vào giống như chương trình 2, nếu không thì không có gì:

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

In 1 nếu đầu vào không giống như chương trình 1, nếu không thì không có gì:

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

bash / grep - 59 ký tự

51 ký tự nếu chúng ta chỉ đếm chuỗi chương trình thực tế.

$ 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 ký tự)

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

sản xuất:

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

Nhận xét meta: R hội chợ tương đối tệ trên golf mã vì không có lối tắt đến function...