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

Оцінка:

• +1 Для кожного персонажа з обох програм.
• Виграє найнижчий рахунок.

GTB , 25

Виконується з калькулятора TI-84

Програма A

`_@_eq;"$w;&

Програма B

`_@_eq;"$#w;&

Пояснення

`_ Введіть рядок

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

$w;&Якщо так, відобразити 1 (інакше нічого) [бо Bце $#w;&- якщо ні, відобразити 1 (інакше нічого)]

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

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

cmp -s b&&echo 1

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

cmp -s a||echo 1

Використання

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

Рубі, 54

А

$><<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відповідно.

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

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

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

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

Як це працює (програма B, A схожа):

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

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

Haskell - БЕЗ джерела завантаження - 478 644 символів

Це передбачає, що getContents ВЖЕ закінчується новим рядком, і тому скидає остаточний символ, не перевіряючи, тому що я не відчуваю, як уникнути цього

А

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

Пітон 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 символи

Сценарій |(інакше відомий як сценарій А) - 80 символів

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

Сценарій &(інакше відомий як Сценарій В) - 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...