home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #26 / NN_1992_26.iso / spool / comp / sys / hp48 / 5633 < prev    next >
Encoding:
Text File  |  1992-11-09  |  837 b   |  37 lines
  1. Newsgroups: comp.sys.hp48
  2. Path: sparky!uunet!tcsi.com!iat.holonet.net!brianw
  3. From: brianw@iat.holonet.net (Brian Walsh)
  4. Subject: Re: Cliff Stern's Little Challenges
  5. Message-ID: <BxGoto.CIo@iat.holonet.net>
  6. Organization: HoloNet (BBS: 510-704-1058)
  7. References: <721197246detlef.detlef@dmhh.hanse.de>
  8. Date: Mon, 9 Nov 1992 18:32:10 GMT
  9. Lines: 26
  10.  
  11. detlef@dmhh.hanse.de (Detlef Mueller) writes:
  12. : But Brians modified 2nd solution is 6 bytes shorter:
  13. : 
  14. : %%HP: T(3)A(D)F(.);
  15. : \<<
  16. :   "\->" 1 ROT
  17. :   FOR i
  18. :       " " +
  19. :       i "`" NUM SWAP OVER + CHR +
  20. :   NEXT
  21. :   "\<<HALT" + STR\->
  22. : \>>
  23. : 79.5 bytes
  24.  
  25. Nice improvement, but it doesn't work on my 48.  Here's one that does:
  26.  
  27. %%HP: T(3)A(D)F(.);
  28. \<< "\->" 1 ROT
  29.   FOR i " " + i SWAP OVER "`" NUM + CHR +
  30.   NEXT "\<<HALT" + STR\->
  31. \>>
  32. 79.5 bytes
  33.  
  34. -- Brian Walsh
  35.    brianw@holonet.net
  36.  
  37.