home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / comp / lang / ada / 2150 < prev    next >
Encoding:
Internet Message Format  |  1992-07-21  |  1.9 KB
  1. Path: sparky!uunet!mcsun!uknet!warwick!dcs.warwick.ac.uk!sunserver1.aston.ac.uk!cs_mac35.aston.ac.uk!user
  2. From: elsworthef@aston.ac.uk (Ted Elsworth)
  3. Newsgroups: comp.lang.ada
  4. Subject: Re: Shortest Self-Generating Ada Program
  5. Message-ID: <elsworthef-210792125545@cs_mac35.aston.ac.uk>
  6. Date: 21 Jul 92 12:03:17 GMT
  7. References: <1992Jul17.195827.18009@beaver.cs.washington.edu>
  8. Sender: usenet@aston.ac.uk (Usenet administrator)
  9. Followup-To: comp.lang.ada
  10. Organization: Computer Science, Aston University
  11. Lines: 36
  12. Nntp-Posting-Host: cs_mac35
  13.  
  14. In article <1992Jul17.195827.18009@beaver.cs.washington.edu>,
  15. simonson@cs.washington.edu (Kevin Simonson) wrote:
  16. > 
  17. >      Quite a while ago I read a post in "comp.lang.c" about the shortest C
  18. > program that generated itself.  The poster listed three programs, one of
  19. > which was only one line long but wider than eighty characters and another
  20. > of which was two lines long but more elegant.
  21. > 
  22. >      Trivial indeed, but ever since then I've wondered what it would look
  23. > like to write an Ada program that also generated itself.  Here it is.
  24. > It's 100 lines long.  If people can write Ada programs (elegant or not)
  25. > that take less lines, I'd be interested in seeing them.
  26. > 
  27. >                                      ---Kevin Simonson
  28. > 
  29. >  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  30. > 
  31. >  (100 line Ada program)
  32.  
  33. The following program *entered as one line* self-replicates using VAX Ada.
  34.  
  35. with text_io;use text_io;procedure r is s:string(1..115):="with text_io;use
  36. text
  37. _io;procedure r is s:string(1..115):="";begin
  38. put(s(1..59)&s(1..59)&s(59..115)&s
  39. (59..115));end;";begin put(s(1..59)&s(1..59)&s(59..115)&s(59..115));end;
  40.  
  41. Maximum source line length isn't specified by the Ada standard, but VAX Ada
  42. allows up to 255 characters, so the above (232 chars) works OK.
  43.  
  44. Can anyone find a shorter solution than the above?
  45.  
  46. Ted Elsworth
  47. Computer Science
  48. Aston University
  49. England
  50.