Вам поручено написать две программы. Программа A не должна ничего распечатывать на всех входах, кроме случаев, когда вводится программа B , и в этом случае она должна печататься 1. Программа B должна распечатывать 1на всех входах, кроме случаев, когда вводится программа A , и в этом случае она не должна ничего печатать.

Подсчет очков:

• +1 за каждого персонажа из обеих программ.
• Самый низкий балл побеждает.

БРГ , 25

Выполнено из калькулятора ТИ-84

программа A

`_@_eq;"$w;&

программа B

`_@_eq;"$#w;&

объяснение

`_ Введите строку

@_eq;"Проверьте, равен ли он исходному коду ( #автоматически удаляется вместе со строчными буквами)

$w;&Если это так, отобразите 1 (иначе ничего) [для Bэтого $#w;&- если нет, отобразите 1 (иначе ничего)]

Баш - 32 символа

Сценарий А - 16 символов

cmp -s b&&echo 1

Скрипт B - 16 символов

cmp -s a||echo 1

использование

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

Руби, 54

A

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

В

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

Примеры:

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)

Так как вы не запретили это ...

Храните программы как Aи Bсоответственно.

Программа А (30):

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

Программа Б (32):

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

Как это работает (программа B, A похожа):

• 1!:1[3: читать стандартный
• 1!:1<'A': прочитать файл A
• -:: посмотрите, равны ли они
• -.: отменить результат
• #~: повторить результат сам по себе (итак, 1приводит к одному 1и 0приводит к нулю 0s, то есть ничего)
• echo: выход
• exit: выход (интерпретатор J не завершается по умолчанию, когда достигает конца файла)

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

Haskell - БЕЗ загрузки источника - 478 644 символов

Это предполагает, что getContents ВСЕГДА оканчивается символом новой строки и поэтому удаляет последний символ без проверки, потому что я не чувствую необходимости экранировать его

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

В

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

Он работает как стандартный quine, но меняет местами - для *, чтобы получить другую программу (избегая этих символов в другом месте).

Следующий тест печатает как ожидалось (замена main = взаимодействует с $ на a = и 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

Файл A (буквально названный просто a):

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

Файл B (буквально названный просто b):

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

Рубин, 166 символов, нет источника чтения

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

Убедитесь, что ваш текстовый редактор не сохраняет с новой строкой.

Использование (пример):

 $ 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

Каждая программа создает источник другой программы, используя HEREdoc и строковые преобразования, затем сравнивает результат с входными данными.

Хаскелл - 138

Не очень хороший ответ, но хотел, чтобы обе программы использовали один и тот же источник. Можно сохранить некоторые символы, переименовав файл, но это не сделает это решение выигрышным, поэтому я не думаю, что оно того стоит.

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

Скомпилируйте этот источник как Aи B.

Тестовое задание:

% 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 символа

Скрипт |(иначе известный как Скрипт A) - 80 символов

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

Скрипт &(иначе известный как Скрипт B) - 62 символа

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

использование

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

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

Описание

Скрипт B читает содержимое скрипта A и уничтожает его после замены имен файлов и andоператора на or.

Я назвал файлы &и |могу выполнить одну замену в сценарии B.

Python 3 - 102 символа

Печатает 1, если ввод совпадает с вводом программы 2, иначе ничего:

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

Печатает 1, если ввод не совпадает с программой 1, иначе ничего:

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

bash / grep - 59 символов

51 символ, если мы считаем только фактическую строку программы.

$ 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 символа)

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

производит:

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

Мета-комментарий: R ярмарки относительно плохие в коде гольф, поскольку нет ярлыка для function...