(50g) Boustrophedon Transform

[John Keith]

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.