Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!zaphod.mps.ohio-state.edu!caen!news.cs.indiana.edu!msi.umn.edu!noc.MR.NET!gacvx2.gac.edu!hhdist
Newsgroups: comp.sys.handhelds
Subject: RE: hp48sx: variable rename?
Message-ID: <3DDFCF3F80002DBB@gacvx2.gac.edu>
From: Darren Freimuth <90731919@WSUVM1.CSC.WSU.EDU>
Date: Tue, 2 Apr 1991 22:12:30 PLT
Return-path: <90731919@WSUVM1.CSC.WSU.EDU>
In-reply-to: Your message of Tue, 2 Apr 1991 20:54 CST
To: handhelds@gac.edu
Lines: 27

>Heres a quick program to retain the prior order.  Its kind of slow.
>
>\<< \-> src dst
>  \<< VARS src RCL src PURGE dst STO OBJ\-> { } SWAP 1 SWAP
>    START SWAP DUP
>      IF src SAME
>      THEN DROP dst
>      END SWAP +
>    NEXT
>  \>> ORDER
>\>>
>Robert
>brunner@uirvld.csl.uiuc.edu

  One way to speed this program up would be to use the POS and PUT
commands built into the calculator (Instead of building another list).

The following is a little shorter and most likely faster.

\<< \-> src dst
  \<< VARS src RCL src PURGE dst STO
      DUP src POS dst PUT
  \>> ORDER
\>>
----------
       Darren Freimuth (Electro)
             <90731919@wsuvm1.csc.wsu.edu>
Acknowledge-To: <90731919@WSUVM1>