"Бешенный код"

[BangBangFM]

Че то не охота переписывать.. Поискал в нете, нашел:
http://www.nyx.net/~gthompso/self_pasc.txt
За эти программы не отвечаю, а вот та точно работает сам проверял.

[AVer]

Нашел! Блин длинный гад...

Сфотай на что нибудь или отсканируй.... Или хотябы опиши в чем суть. А то слишком уж интересный вопрос

[JTG]

Тю, это просто извращаются над бедным паскальским парсером ))))

[AlDelta]

А то слишком уж интересный вопрос

Будет интересно почитать...
http://www.programmersforum.ru/showt...E%E9+%EA%EE%E4

[BangBangFM]

На pascal-совместимых языках это не вохзможно.

Эх, написать что ли...

[mutabor]

У кого есть прошивка для Терминатора?

[BangBangFM]

mutabor
Есть два патча: один исправляет ошибку и терминатор не хочит убить Сару Конор, ну а во втором 16 мини игр.

У меня вопрос: можно ли написать программу, которая бы открывала файл своего кода, редактировала его, сохраняла, компилировала и запускала? Чисто технически?

[ChukCha]

Сообщение от BangBangFM

mutabor ну а во втором 16 мини игр.

уже интересно )

[BangBangFM]

Program autobiografija (output);
  Var c : array[1..14] of string[60];
        i : integer;
Begin
c[ 1]:='Program autobiografija (output);
c[ 2]:='  Var c : array[1..14] of string[60];
c[ 3]:='        i : integer;
c[ 4]:='Begin
c[ 5]:='For i := 1 to  4 do writeln(c[i]);
c[ 6]:='For i := 1 to 13 do writeln(c[14,1],c[14,2],i:2,c[14,5],
c[ 7]:='          c[14,6],c[14,7],c[14,8],c[1],c[14,8],c[14,9]);
c[ 8]:='for i := 1 to  8 do write(c14,i);
c[ 9]:='for i := 1 to  8 do write(c14,i);
c[10]:='for i := 8 to 60 do write(c14,i);
c[11]:='writeln(c[14,8],c[14,9]);
c[12]:='for i := 5 to 13 do writeln(c[i]);
c[13]:='end.
c[14]:='c[14]:='';
For i := 1 to  4 do writeln(c[i]);
For i := 1 to 13 do writeln(c[14,1],c[14,2],i:2,c[14,5],
          c[14,6],c[14,7],c[14,8],c[1],c[14,8],c[14,9]);
for i := 1 to  8 do write(c14,i);
for i := 1 to  8 do write(c14,i);
for i := 8 to 60 do write(c14,i);
writeln(c[14,8],c[14,9]);
for i := 5 to 13 do writeln(c[i]);
end.

Ух... Вроде все правильно, паскаля нет проверить не могу...

[mutabor]

BangBangFM, там в той теме на третьей или четвертой странице есть решение, одна строка.