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)

    Люблю грейпфруты. Как тот мужик из анекдота курить любил. Сезон - плюс-минус зима. Месяц назад окончательно исчезли из супермаркетов. А в Хаци-хинаме…

  • (no subject)

    Торговец овощами больше не привозит замороженный гранатовый сок. А я уже привык. Спросил недавно, дочки там разговорчивые. Один урожай в году, в…

  • 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)

    Люблю грейпфруты. Как тот мужик из анекдота курить любил. Сезон - плюс-минус зима. Месяц назад окончательно исчезли из супермаркетов. А в Хаци-хинаме…

  • (no subject)

    Торговец овощами больше не привозит замороженный гранатовый сок. А я уже привык. Спросил недавно, дочки там разговорчивые. Один урожай в году, в…