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)

    Есть здоровенная аппликация на c# под винды. Есть и доступ к коду, но трогать дизайн (кнопки присобачивать, например) нельзя. Мне надо открыть окно…

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

    Есть здоровенная аппликация на c# под винды. Есть и доступ к коду, но трогать дизайн (кнопки присобачивать, например) нельзя. Мне надо открыть окно…

  • (no subject)

    И еще один клип, выносящий мозги. Бреговиц "Калашников". Я даже нашел текст. Даже с переводом. Лучше бы не искал. Фильм вроде помню, а мелодия -…