Програма A видає код програми B під час запуску, а B видає джерело A.

Вимоги:

• Лише одна мова в обох програмах
• Програми різні. Одна програма, яка виводить себе, не кваліфікується.
• Обидві програми не пусті або мають принаймні 1 байт. Затримка нових рядків як у вихідному, так і у вихідному даних ігнорується
• stdin закритий. Нічого не читайте (щоб ви не могли прочитати джерело і не маніпулювати ним). Вихід йде на stdout.
  Редагувати: stdin підключено до /dev/null. Ви можете замовити його закрити, якщо уточнено.
• Не використовуйте randomфункції.

Додатково:

• Дайте пояснення, якщо це можливо

Оцінка - загальна довжина . Останній рядок не враховується, якщо це не впливає на програму.

CJam , 13 + 13 = 26 байт

{sYZe\"_~"}_~

Спробуйте в Інтернеті!

Виходи

{sZYe\"_~"}_~

Пояснення

{       e# Standard quine framework, leaves a copy of the block on the stack
        e# for the block itself to process.
  s     e# Stringify the block.
  YZe\  e# Swap the characters at indices 2 and 3, which are Y and Z themselves.
  "_~"  e# Push the "_~" to complete the quine.
}_~

Оскільки e\є комутативним у своєму другому та третьому операндах, інша програма робить точно так само, змінюючи Zта Yповертаючись у свій початковий порядок.

CJam ,11 + 13 = 24 11 + 12 = 23 байти

"N^_p"
N^_p

Спробуйте в Інтернеті!

Виходи:

"N^_p
"
N^_p

Вихід має 13 байт, але:

Останній рядок не враховується, якщо це не впливає на програму.

Тому я змінив простір на новий рядок, щоб скористатися цим.

Він заснований на найкоротшій власній кінці CJam:

"_p"
_p

І N^полягає в тому, щоб зв'язати рядок новим рядком, який додає новий рядок, якщо немає нового рядка, і видалити його, якщо є, для рядка, що кожен символ є унікальним.

Я думаю, що я бачив цю квінку у питанні про ангіну, але не зміг її знайти.

RProgN 2 , 3 + 3 = 6 байт

Перша програма:

0
1

Спробуйте в Інтернеті!

Друга програма:

1
0

Спробуйте в Інтернеті!

-2 завдяки Мартіну Ендеру .

C, 95 + 95 = 190 байт

Дякуємо @immibis за економію 16 * 2 байтів!

char*s="char*s=%c%s%c;main(i){i=%d^1;printf(s,34,s,34,i);}";main(i){i=1^1;printf(s,34,s,34,i);}

Спробуйте в Інтернеті!

Виходи:

char*s="char*s=%c%s%c;main(i){i=%d^1;printf(s,34,s,34,i);}";main(i){i=0^1;printf(s,34,s,34,i);}

Спробуйте в Інтернеті!

Які виходи:

char*s="char*s=%c%s%c;main(i){i=%d^1;printf(s,34,s,34,i);}";main(i){i=1^1;printf(s,34,s,34,i);}

Javascript, 67 + 67 = 134 байт

1-а програма:

alert(eval(c="`alert(eval(c=${JSON.stringify(c)},n=${+!n}))`",n=0))

2-а програма:

alert(eval(c="`alert(eval(c=${JSON.stringify(c)},n=${+!n}))`",n=1))

Це ґрунтується на відповіді Германа Лауенштейна на Три-переписку

Javascript (недійсний читання вихідного коду), 75 + 75 = 150 61 + 61 = 122 58 + 58 = 116 50 + 50 = 100 байт

врятувало 20 байт завдяки Тушару, 6 байтів завдяки Крейгу Айре та 16 байтів завдяки kamoroso94

1-а програма:

f=_=>alert(("f="+f).replace(0,a=>+!+a)+";f()");f()

2-а програма:

f=_=>alert(("f="+f).replace(1,a=>+!+a)+";f()");f()

Міняє місцями 1 на 0 і навпаки. Вони обидва роблять те саме, просто виробляючи різний вихід через свій вихідний код.

Python 2, 63 + 63 = 126 байт

Спробуйте в Інтернеті

Перша програма:

A='A=%r;print A[:23]%%A+A[29:35]23:29]';print A[:23]%A+A[23:29]

Виходи:

A='A=%r;print A[:23]%%A+A[29:35]23:29]';print A[:23]%A+A[29:35]

Друга програма:

A='A=%r;print A[:23]%%A+A[29:35]23:29]';print A[:23]%A+A[29:35]

Виходи:

A='A=%r;print A[:23]%%A+A[29:35]23:29]';print A[:23]%A+A[23:29]

JavaScript ( JsShell ), 35 + 34 = 69 байт

1:

(f=x=>print(`(f=${f})(${-x})`))(-1)

2:

(f=x=>print(`(f=${f})(${-x})`))(1)

Математика, 43 + 44 = 87 байт

(Print[#1[#0[#1, -#2]]] & )[HoldForm, -1 1]

і

(Print[#1[#0[#1, -#2]]] & )[HoldForm, -(-1)]

asmutils sh, 16 + 16 байт, зловживаючи правилом "stdin is closed".

#!/bin/sh
tr x y

Оскільки stdin закритий і sh відкриє свій скрипт на першу доступну ручку (замість того, щоб перенести його на велику нумеровану ручку, як це роблять сучасні оболонки), tr закінчує читання з копії сценарію, не відкриваючи його ніколи.

Ця переписка здатна до корисного навантаження, але вставити корисний вантаж складно.

Крім того, ця оригінальна версія зловживає деякою шаленою помилкою в древньому ядрі, яку я використовував у ті часи. (Я не знаю, що з цим ядром - я пізніше дізнався, що у нього були різні основні та незначні номери для пристроїв.) Якщо ви виправите зміни ABI, які зламали функції, переписка все одно не працюватиме. Я забуваю, чи має asmutils sh exec чи ні, але якщо це так, це сучасна версія:

exec dd skip=0 | tr x y

Це зловживає навмисною помилкою в asmutils dd; вона має оптимізацію продуктивності, якщо вона може, вона викликає llseek для пропуску, але для збереження байту вона передає SEEK_SET, а не SEEK_CUR. Це призводить до сміття на stderr, але interquine на stdout. Asmutils dd не має можливості придушити більш жорсткий спам.

Низький навантаження , 32 + 32 = 64 байти

(a~a*(:^)*S)(~(a)~a*^a(:^)**S):^

Спробуйте в Інтернеті!

(~(a)~a*^a(:^)**S)(a~a*(:^)*S):^

Спробуйте в Інтернеті!

Лист звичайний, 58 символів

#1=(let((*print-circle* t))(print'(write '#1# :circle t)))

... або 24 символи, якщо ви не заперечуєте, якщо *print-circle*глобально встановлено T:

#1=(print '(write '#1#))

Надруковане представлення коду читається як циклічна структура, де #1#вказується на клітинку, що йде проти #1=. Ми цитуємо програми так, щоб вони не виконувалися. Оскільки *print-circle*це T, REPL піклується про випромінення таких змінних читачів під час друку; ось що друкує вищезгаданий код і повертає:

#1=(write '(print '#1#)) 

Коли ми оцінюємо наведений вище код, він друкує:

#1=(print '(write '#1#))

Якщо ви хочете дотримуватися значення за замовчуванням для *print-circle*, яке NIL у відповідній реалізації, вам доведеться тимчасово відновлювати змінну:

#1=(let((*print-circle* t))(print'(write '#1# :circle t)))

Всередині тіла LET ми друкуємо речі з *print-circle*буквою T. Отже, ми отримуємо:

#1=(write
    '(let ((*print-circle* t))
       (print '#1#))
    :circle t) 

Як бачите, нова програма не відновлює *print-circle*, але оскільки ми використовуємо write, що викликається функцією низького рівня print, ми можемо передавати додаткові аргументи, такі як :circle. Потім код працює, як очікувалося:

#1=(let ((*print-circle* t))
     (print '(write '#1# :circle t)))

Однак вам потрібно виконати вищезазначені програми як сценарій, а не всередині REPL, оскільки, хоч ви друкуєте речі, піклуючись про кругові структури, і те, writeі printтакож повертає значення, що друкується; і в REPL за замовчуванням значення також друкується, але поза динамічним контекстом, де *print-circle*T.

> <> , 16 + 16 = 32 байти

":1-}80.r   !#o#

і

#o#!   r.08}-1:"

Спробуйте в Інтернеті!

Це працює, використовуючи стрибок у програмі, перші програми стрибків пропускають зворотний бік стека (якщо він перевернув стек, це буде quine). Друга програма не пропускає зворотний бік, але якщо вона вже повернена потоком програми, то вона створить оригінал.

Цей код закінчиться помилкою.

RProgN 2 , 7 + 7 = 14 байт

Я хотів спробувати показати краще використання RProgN, а не просто зловживати замовленнями на друк ...

1
«\1\-

і ...

0
«\1\-

Пояснив

1   # Push the constant, 1. (Or 0, depending on the program)

«\1\-
«       # Define a function from this to the matching », in this case there isn't any, so define it from this to the end of the program, then continue processing.
 \      # Flip the defined function under the constant.
  1\-   # Get 1 - Constant.

Оскільки це друкує стек догори дном, спочатку друкується нова константа, потім друкується строфікована версія функції.

Спробуйте в Інтернеті!

LOGO , 65 + 66 = 131 байт

apply [(pr ? ` [[,? ,-?2]] )] [[apply [(pr ? ` [[,? ,-?2]] )]] 1]

і

apply [(pr ? ` [[,? ,-?2]] )] [[apply [(pr ? ` [[,? ,-?2]] )]] -1]

Python 3, 74 + 74 = 148 байт

a='a=%r;b=%r;print(b%%(b,a))';b='b=%r;a=%r;print(a%%(a,b))';print(b%(b,a))

і

b='b=%r;a=%r;print(a%%(a,b))';a='a=%r;b=%r;print(b%%(b,a))';print(a%(a,b))

я теж цього не розумію

> <> , 12 + 12 = 24 байти

'3d*!|o|!-c:

і

':c-!|o|!*d3

Спробуйте в Інтернеті!

Обидві програми використовують обтікаючий рядковий літерал, щоб додати код до стеку, а потім виробляти 'команду за допомогою різних методів. Під час друку стопки він відсуває код назад, однак 'залишається спереду. Існує кілька варіацій, які призводять до появи '; 3d*, d3*, 00g, :c-Коли в парі з 3d*і :9-коли в парі з 00g.

Занадто подібне рішення для публікації в Befunge-98 на 13 * 2 байти

"2+ck, @,kc+2

Стакс , 18 + 20 = 38 байт

"Vn|^34bL"Vn|^34bL

Запуск та налагодження в Інтернеті!

"Vn|^34bL
"Vn|^34bL

Запуск та налагодження в Інтернеті!

Пояснення

Додано для повноти. Порт відповіді CJam @ @mymy23013 Перемикає нові рядки за допомогою set xor.

Javascript (ES6), 36 + 36 = 72 байти

Програма 1:

f=n=>('f='+f).replace(/4|5/g,n=>n^1)

Програма 2:

f=n=>('f='+f).replace(/5|4/g,n=>n^1)

Ці програми працюють шляхом клонування себе і заміни 5на 4і 4на5

console.log((
    f=n=>('f='+f).replace(/4|5/g,n=>n^1)
)())
console.log((
    f=n=>('f='+f).replace(/5|4/g,n=>n^1)
)())

Кляйн , 26 24 байти

<:3+@+3<:"

Спробуйте в Інтернеті!

Пояснення

Це працює так само, як і в мого Кляйна Квіна , де воно друкує джерело назад, за яким слідує a ", останнє відійшло від цього, будучи паліндромним, тому все, що нам потрібно зробити, це зробити його непаліндромним, не пошкоджуючи його функціональність. Перемикаючи <і :ми були в змозі зробити це , не порушуючи функціональність.

Парі / GP , 36 + 36 = 72 байти

(f=(x)->print1("(f="f")("1-x")"))(1)

Спробуйте в Інтернеті!

(f=(x)->print1("(f="f")("1-x")"))(0)

Спробуйте в Інтернеті!