🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.pascal
Article #93010

Zagadka - proram Alter Ego

#93010
From: Andrzej Grażyński
Date: Thu, 20 May 2010 08:13
17 lines
1551 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 
dostepnych 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: <ht2r0b$f8f$2@news.onet.pl>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!news.onet.pl!not-for-mail

Show 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 - proram Alter Ego
Date: Thu, 20 May 2010 10:13:44 +0200
Organization: http://onet.pl
Lines: 17
Message-ID: <ht2r0b$f8f$2@news.onet.pl>
NNTP-Posting-Host: public-gprs130934.centertel.pl
Mime-Version: 1.0
X-Trace: news.onet.pl 1274343245 15631 79.162.106.183 (20 May 2010 08:14:05 GMT)
X-Complaints-To: niusy@onet.pl
NNTP-Posting-Date: Thu, 20 May 2010 08:14:05 +0000 (UTC)
User-Agent: Thunderbird 2.0.0.24 (Windows/20100228)
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit