Program co vypisuje sebe

[Radek Pelanek]

Zkousel jsem si v perlu resit ulohu programu co vypisuje sam sebe (tj.
aby "perl program", vypsalo to stejny jako "cat program", samozrejme bez
pouziti diskovych operaci a podobnych srabaren). Jedine reseni, ktere se
mi podarilo vymyslet je nasledujici:

$s='print "\$s=\047$s\047;$s";';print "\$s=\047$s\047;$s";

Ale to se mi moc nelibi. Kdyby nekoho napadlo bud kratsi reseni (co do
poctu znaku) nebo hezci (napriklad, aby tam nebylo to skarede \047) tak
bych byl potesen, kdyby mi ho prozradil. Dik.

-- 
	Radek Pelanek		http:/www.fi.muni.cz/~xpelanek
	xpelanek na fi.muni.cz	05/571271
"Moudra moucha vi, kam kraci velbloud."