home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #26 / NN_1992_26.iso / spool / comp / sys / hp48 / 5618 < prev    next >
Encoding:
Text File  |  1992-11-08  |  1.6 KB  |  42 lines
  1. Newsgroups: comp.sys.hp48
  2. Path: sparky!uunet!cis.ohio-state.edu!magnus.acs.ohio-state.edu!usenet.ins.cwru.edu!agate!iat.holonet.net!brianw
  3. From: brianw@iat.holonet.net (Brian Walsh)
  4. Subject: Re: Cliff Stern's Little Challenges
  5. Message-ID: <BxDvyH.G6A@iat.holonet.net>
  6. Organization: HoloNet (BBS: 510-704-1058)
  7. References: <1depklINNnpo@iskut.ucs.ubc.ca>
  8. Date: Sun, 8 Nov 1992 06:13:27 GMT
  9. Lines: 31
  10.  
  11. ochealth@unixg.ubc.ca (ochealth) writes:
  12. : In article <Bx9D8A.3H0@iat.holonet.net> brianw@iat.holonet.net (Brian Walsh) writes:
  13. : :In message <2af8cafe.2066comp.sys.hp48@hpcvbbs.cv.hp.com> Joe Horn writes:
  14. : : 
  15. : :> (5)  Write a program that takes as input an integer 1 through 26, and
  16. : :>      creates that many (and no more) *local* variables 'a', 'b', 'c',
  17. : :>      etc., and then HALTs, leaving the local variables active.  Their
  18. : :>      contents do not matter.  Example: an input of 5 would create 'a',
  19. : :>      'b', 'c', 'd', and 'e', and nothing else.
  20. (stuff deleted)
  21. : :%%HP: T(3)A(D)F(.);
  22. : :\<< "\->" 1 ROT
  23. : :  FOR i " " + i 96 + CHR +
  24. : :  NEXT "\<<HALT" + STR\->
  25. : :\>>
  26. : :76.5 bytes
  27. : : 
  28. : :Both use the technique of building a program as a string and then using 
  29. : :STR-> to evaluate the program.  The second is quite small but takes more
  30. : :execution time.
  31. : 
  32. : But the challenge said the program had to take a single integer as input,
  33. : and these programs assume that there are enough arguments on the stack.
  34. : At least that's how I read the challenge.
  35.  
  36. OK, the second routine works fine with a small modification:
  37. insert 0 SWAP between the `FOR i' and the `" "' which initializes each
  38. local variable to 0.
  39.  
  40. -- Brian Walsh
  41.    brianw@holonet.net
  42.