Эстафета из 50 квайнов

"Квайн — компьютерная программа, которая выдаёт на выходе точную копию своего исходного текста. Японский рубист Юсукэ Эндо (Yusuke Endoh) создал нечто невероятное. Quine Relay — программа на Ruby, которая генерирует код программы на Scala, которая генерирует код программы на Scheme, которая генерирует… и так далее на 50-ти языках программирования, пока программа на REXX снова не генерирует изначальный код на Ruby."

http://habrahabr.ru/post/186782/

А кто-нибудь сможет написать такую цепочку из 1с? Т.е. типа переход от одной версии к другой: 8 -> 7.7 -> 6.0 -> 8.0  ?

(0) невероятное ? хм
лицорука

(0) напиши сначала квайн на 8.х

(3) учитывая что 8.3 поддерживает штатную выгрузку кода модуля в файл - думаю что 10 строк будеет достаточно

(4) выгрузка кода в файл - это чит

(3) Вы еврей?

(0) Дракон, пожирающий себя, понятен. А что означает звезда Давида?

http://habrastorage.org/storage2/759/d09/d34/759d09d34ea1e570097fdc1890bd01ea.png

Исходный текст программы:
https://github.com/mame/quine-relay/blob/master/QR.rb

(7) Пока не знаю, пытаюсь понять

> А что означает звезда Давида?
"И это сойдёт"?

для 7.7 есть: http://infostart.ru/public/88111/

(7) Вот тут есть http://en.wikipedia.org/wiki/Kagome_crest
это из комментов к тому посту

(10) И это хорошо, первый шаг. Теперь надо достроить цепочку

когда коту делать нех он ...

вообще эти "квайны" имеют только одно практическое применение - вирусы....

(14) Так вирусы же не сорсами распространяются. Иначе с собой компилятор нужно будет таскать

(15) ты слишком узко смотришь, вирус может генерировать нечто (кусок машинного кода, например), который генерирует ... и т.д.

(16)Ну... да. Расширяюсь и соглашаюсь. :)

(15) Макро вирусы вполне себе с сырцами

(18) Их разве еще не забыли? Давно не встречал.

нафига все это надо

Кавычка = """";
стр = "Кавычка = $$$$;&стр = $%$;&стр1 = СтрЗаменить(стр,Символ(36),Кавычка);&стр1 = СтрЗаменить(стр1,Символ(38),Символы.ПС);&стр1 = СтрЗаменить(стр1,Символ(37),стр);&Сообщить(стр1);";
стр1 = СтрЗаменить(стр,Символ(36),Кавычка);
стр1 = СтрЗаменить(стр1,Символ(38),Символы.ПС);
стр1 = СтрЗаменить(стр1,Символ(37),стр);
Сообщить(стр1);