Villain-Marais (henic) wrote,
Villain-Marais
henic

  • Mood:
  • Music:
Нашел пожелтевший лист из общей тетради. Цитирую дословно...

from ghoulies and ghousties
and long-leggety beasties
and things that go bump
in the night,
Good Lord, deliver us...

i: proc options (main); dcl a char(350);
open file(sysprint) linesize(71);
a='i:proc options(main);dcl a char(350);
open file(sysprint) linesize(71);
put edit (substr(a,1,68),substr(a,69,71))(a(71));
put skip data(a);
put edit (substr(a,140)) (a(210)) skip;end; ';
put edit (substr(a,1,68),substr(a,69,71))(a(71));
put skip data(a);
put edit (substr(a,140)) (a(210)) skip;end;

----------------------------------
Позже я видел кучу решений, более коротких, а если использовать какой-то финт в компиляторе C, это вообще 4 строчки. 15 лет прошло. Уже и PL-1 забыт, пора его вычеркивать из CV, а глянул, и потеплело: совсем тупые эту задачку решить не могли. Из вполне приличного выпуска мехмата справились двое, Николай Иванович Хиргий только хмыкнул одобрительно, увидев...

Update: на C это выглядит так:
main(char*a){a="main(char*a){a=%c%s%c;printf(a,34,a,34);}";printf(a,34,a,34);}|
Subscribe

  • (no subject)

    В фильмотеке Йеса обнаружился фильм "Волосы". Открою кодекс на любой странице, И не могу - читаю до конца. В девяностом смотрел, без перевода, что…

  • (no subject)

    Apple построит в Тель-Авиве новый кампус на 30 этажей без парковок. Естественное продолжение телефонов без зарядного устройства.

  • (no subject)

    Интернет-провайдер прислал SMS, что год заканчивается, либо цена поднимается, либо нет, как говорил Шрёдингер. Оказалось, что к моему дому уже…

  • Post a new comment

    Error

    Anonymous comments are disabled in this journal

    default userpic

    Your reply will be screened

    Your IP address will be recorded 

  • 12 comments

  • (no subject)

    В фильмотеке Йеса обнаружился фильм "Волосы". Открою кодекс на любой странице, И не могу - читаю до конца. В девяностом смотрел, без перевода, что…

  • (no subject)

    Apple построит в Тель-Авиве новый кампус на 30 этажей без парковок. Естественное продолжение телефонов без зарядного устройства.

  • (no subject)

    Интернет-провайдер прислал SMS, что год заканчивается, либо цена поднимается, либо нет, как говорил Шрёдингер. Оказалось, что к моему дому уже…