Article View: comp.lang.prolog
Article #1714Re: returning self
From: Gosse Bouma
Date: Tue, 15 Jan 1991 13:54
Date: Tue, 15 Jan 1991 13:54
19 lines
1372 bytes
1372 bytes
Yet another program printing its own code (no variable renaming or
omission of the '.' this time).
slf :- freeze(X,(name(Y,X),write(Y),write(X),write('.'))),
X=[115,108,102,32,58,45,32,102,114,101,101,122,101,40,88,44,40,110,97,109,101,
40,89,44,88,41,44,119,114,105,116,101,40,89,41,44,119,114,105,116,101,40,
88,41,44,119,114,105,116,101,40,39,46,39,41,41,41,44,10,88,61].
Gosse Bouma, Alfa-informatica, RUG, Groningen gosse@let.rug.nl
All we cry, all we contend for, in this world of toil and blood,
is beneath the notice of the hacker we call God. (Th. Pynchon)
--
Gosse Bouma, Alfa-informatica, RUG, Groningen gosse@gufalet.let.rug.nl
All we cry, all we contend for, in this world of toil and blood,
is beneath the notice of the hacker we call God. (Th. Pynchon)
Technical Details
Message-ID:
<1513@gufalet.let.rug.nl>Path:
arc1-ca.pugleaf.net!utzoo!censor!geac!torsqnt!lethe!yunexus!ists!helios.physics.utoronto.ca!news-server.csri.toronto.edu!cs.utexas.edu!wuarchive!uunet!mcsun!hp4nl!let.rug.nl!gufal02.let.rug.nl!gosseReferences:
<9101130738.AA04684@daya.wisdom.weizmann.ac.il>Show Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!utzoo!censor!geac!torsqnt!lethe!yunexus!ists!helios.physics.utoronto.ca!news-server.csri.toronto.edu!cs.utexas.edu!wuarchive!uunet!mcsun!hp4nl!let.rug.nl!gufal02.let.rug.nl!gosse From: gosse@gufal02.let.rug.nl (Gosse Bouma) Newsgroups: comp.lang.prolog Subject: Re: returning self Message-ID: <1513@gufalet.let.rug.nl> Date: 15 Jan 91 13:54:49 GMT References: <9101130738.AA04684@daya.wisdom.weizmann.ac.il> Sender: news@let.rug.nl Organization: Faculty of Arts, Groningen, The Netherlands Lines: 19 Nntp-Posting-Host: gufal02.let.rug.nl