Program co vypisuje sebe

[Roztocil Bohuslav]

Myslím, že tohle je o trošku kratčí:

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

a tohle ještě kratší:

  $_='print "\$_=\047$_\047;eval;";';eval;
  

Bob

-----Original Message-----
From: news na news.muni.cz (News Admin) [mailto:news na news.muni.cz]On Behalf
Of Radek Pelanek
Posted At: Wednesday, April 21, 1999 10:56 AM
Posted To: cz.comp.lang.perl
Conversation: Program co vypisuje sebe
Subject: Program co vypisuje sebe


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."