home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #31 / NN_1992_31.iso / spool / comp / sys / hp48 / 6505 < prev    next >
Encoding:
Internet Message Format  |  1992-12-24  |  2.1 KB
  1. Path: sparky!uunet!wupost!spool.mu.edu!agate!dog.ee.lbl.gov!network.ucsd.edu!rutgers!modus!gear!cflav!flavio
  2. From: flavio@cflav.sublink.org (Flavio Casetta)
  3. Newsgroups: comp.sys.hp48
  4. Subject: Re: Utility: applylist
  5. Message-ID: <1L77VB1w164w@cflav.sublink.org>
  6. Date: 22 Dec 92 16:59:35 GMT
  7. Organization: Flavio Casetta, Reg'd HP ISV & OEM of handheld computers.
  8. Lines: 62
  9.  
  10. Excerpted from Klaus Kalb article...
  11.  
  12. > There is one thing I always missed from UserRPL: The possiblity to 
  13. > iterate a program over all entries in  a list.
  14. > Something like
  15. >   FOR obj IN list DO ... END
  16. > would sometimes be handy. So I wrote a utility the offers a workaround.
  17. > 
  18. > APPLYLIST takes to arguments:
  19. >  A list in level 2, lets assume it's L = { O1 O2 ... On }
  20. >  Anything in level 1, lets call this P
  21. >  and it does
  22. > - Bind L,P and the current depth to local vars (unnamed ones)
  23. > - Push O1 to the stack, execute P
  24. > - Push O2 to the stack, execute P
  25. >  ...
  26. > - Push On to the stack, execute P
  27. > - Make all new objects on the stack into a list
  28. >
  29. > Examples:
  30. > 
  31. > --- Double all numbers in a list
  32. > { 1 2 3 } 
  33. > \<< 2 * \>> 
  34. > APPLYLIST  --> { 2 4 6 }
  35. >
  36. > --- Double all numbers in a list, in a somewhat different sense
  37. > { 1 2 3 } 
  38. > \<< DUP \>> 
  39. > APPLYLIST  --> { 1 1 2 2 3 3 }
  40. >
  41. > --- Delete all zeros from a list
  42. > { 0 1 2 0 3 4 }
  43. > \<< IF DUP 0 SAME THEN DROP END \>> 
  44. > APPLYLIST  --> { 1 2 3 4 }
  45. > 
  46. > --- Add up all numbers in the list
  47. > 0
  48. > { 1 2 3 4 }
  49. > \<< + \>>
  50. > APPLYLIST   --> 10 { }
  51. >
  52. > --- Find the amount of mem used in port 0
  53. > 0 DUP PVARS DROP \<< RCL BYTES SWAP DROP + \>> APPLYLIST DROP 
  54. >
  55. > ---     Recall all vars to the stack and tag them with their name:
  56. > VARS \<< DUP RCL SWAP \->TAG \>> APPLYLIST DROP
  57. >
  58.  
  59.  
  60. The SmartROM contains this keyword, named LOP1, (and many variations on the 
  61. theme as well LOPN, METOP, RPT) since early 1991.
  62.  
  63.  
  64. Bye,
  65.  
  66. Flavio
  67. __
  68. * flavio@cflav.sublink.org (Flavio Casetta)
  69.  ---------------------------------------------------------------------
  70. | The usual disclaimer does not apply      |   +59 440404 (Vox populi) |
  71. | ForCALC's opinions are necessarily mine  |   +59 304490 (Fax dei)    |
  72.