🚀 go-pugleaf

> 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

to jest na wikipedi 
--  link http://pl.wikipedia.org/wiki/Quine_(program_komputerowy)#Pascal
i chyba już nić bardziej nie da sie uciąć .


 const a='const a=';b='begin write(a,#39,a,#39#59#98#61#39,b,#39#59#10,b) end.';
 begin write(a,#39,a,#39#59#98#61#39,b,#39#59#10,b) end.

-- 
Wysłano z serwisu OnetNiusy: http://niusy.onet.pl