Article View: pl.comp.lang.pascal
Article #93011Zagadka - program Alter Ego
From: Andrzej Grażyński
Date: Thu, 20 May 2010 19:54
Date: Thu, 20 May 2010 19:54
17 lines
1541 bytes
1541 bytes
Gdy powstaje nowy język programowania, szczególnym zainteresowaniem
cieszą się dwa programy w tym języku: program najkrótszy ("pusty") i
program "Alter ego", produkujący swą własną kopię, bez wczytywania
danych z zewnątrz.
Gdy pod koniec lat 70. zdefiniowano język Pascal, jedna ze współautorek,
p. Jensen (imienia nie pomnę, dawno to było) opublikowała taki właśnie
programik. Jedynymi używanymi przez niego procedurami/funkcjami są Write
i Writeln - wynik wyprowadzany jest na standardowe wyjście.
Kto przebije p. Jensen i zaproponuje własne rozwiązanie, w dowolnym z
dostępnych dialektów Pascala? Program nie może nic wczytywać, a z
procedur i funkcji dozwolone są jedynie te, których wolno użyć w
dyrektywie const (np. Length() ).
Tę zagadkę umieszczam także na p.c.l. delphi
Technical Details
Message-ID:
<ht440v$ep$1@news.onet.pl>Path:
mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!news.onet.pl!not-for-mailShow Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!news.onet.pl!not-for-mail From: Andrzej Grażyński <grazynsk@petex.com.pl> Newsgroups: pl.comp.lang.pascal Subject: Zagadka - program Alter Ego Date: Thu, 20 May 2010 21:54:02 +0200 Organization: http://onet.pl Lines: 17 Message-ID: <ht440v$ep$1@news.onet.pl> NNTP-Posting-Host: public-gprs130934.centertel.pl Mime-Version: 1.0 X-Trace: news.onet.pl 1274385249 473 79.162.106.183 (20 May 2010 19:54:09 GMT) X-Complaints-To: niusy@onet.pl NNTP-Posting-Date: Thu, 20 May 2010 19:54:09 +0000 (UTC) User-Agent: Thunderbird 2.0.0.24 (Windows/20100228) Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit