Post Reply 
(50g) Boustrophedon Transform
08-22-2021, 04:56 PM
Post: #2
RE: (50g) Boustrophedon Transform
Here is a version of the boustrophedon transform program for the HP48G/GX. As above, replacing the OVER + with OVER - will make the program return the inverse boustrophedon transform of the list.

Code:

\<< DUP SIZE \-> n
  \<< DUP HEAD SWAP OVER 1 \->LIST 2 n
    FOR k REVLIST OVER k GET SWAP 1
      \<< OVER +
      \>> DOLIST + DUP k GET NEWOB ROT ROT
    NEXT DROP2 n \->LIST
  \>>
\>>

Also, the HP 50g program in the first post has been replaced with a shorter version.
Find all posts by this user
Quote this message in a reply
Post Reply 


Messages In This Thread
(50g) Boustrophedon Transform - John Keith - 03-20-2019, 07:21 PM
RE: (50g) Boustrophedon Transform - John Keith - 08-22-2021 04:56 PM



User(s) browsing this thread: 1 Guest(s)