вот примерчик на паскале:
program SelfPrint(output);
var i: integer; ch, ch1: char;
s: array [0..9] of string[127];
begin ch:= chr(39); ch1:= chr(59);
s[0]:= 's[0]:= ';
s[1]:= 'program SelfPrint(output);';
s[2]:= ' var i: integer; ch, ch1: char;';
s[3]:= ' s: array [0..9] of string[127];';
s[4]:= 'begin ch:= chr(39); ch1:= chr(59);';
s[5]:= 'for i:= 1 to 4 do writeln(s[i]);';
s[6]:= 'for i:= 0 to 9 do';
s[7]:= ' begin s[0][3]:= chr(i+48); writeln(s[0],ch,s[i],ch,ch1) end;';
s[8]:= 'for i:= 5 to 9 do writeln(s[i]);';
s[9]:= 'end.';
for i:= 1 to 4 do writeln(s[i]);
for i:= 0 to 9 do
begin s[0][3]:= chr(i+48); writeln(s[0],ch,s[i],ch,ch1) end;
for i:= 5 to 9 do writeln(s[i]);
end.
Помню, на школьных олимпиадах по информатике была такая задача: написать программу, которая выводит свой код. Что-то похожее, но реализация была на паскале :)
А вообще, да, можно :)
Кажется су573 отправляет эти приглашения ботом... Только я отклоняю приглашение - новое приходит :(
1.5Gb Intel Pentium/Athlon (я так понимаю, 1.5 GHz)
Думаю, они скоро это сделают
Хочешь, покажи пример покороче =)
program SelfPrint(output);
var i: integer; ch, ch1: char;
s: array [0..9] of string[127];
begin ch:= chr(39); ch1:= chr(59);
s[0]:= 's[0]:= ';
s[1]:= 'program SelfPrint(output);';
s[2]:= ' var i: integer; ch, ch1: char;';
s[3]:= ' s: array [0..9] of string[127];';
s[4]:= 'begin ch:= chr(39); ch1:= chr(59);';
s[5]:= 'for i:= 1 to 4 do writeln(s[i]);';
s[6]:= 'for i:= 0 to 9 do';
s[7]:= ' begin s[0][3]:= chr(i+48); writeln(s[0],ch,s[i],ch,ch1) end;';
s[8]:= 'for i:= 5 to 9 do writeln(s[i]);';
s[9]:= 'end.';
for i:= 1 to 4 do writeln(s[i]);
for i:= 0 to 9 do
begin s[0][3]:= chr(i+48); writeln(s[0],ch,s[i],ch,ch1) end;
for i:= 5 to 9 do writeln(s[i]);
end.