What comes next?

[Thomas Klemm]

(10-15-2024 04:08 PM)Gilles Wrote:  With stock HP50, the program could be (not tested) :

Code:

«
 DUPDUP DUP SIZE GET SWAP
 2 OVER SIZE START
   ΔLIST DUPDUP SIZE GET ROT + SWAP 
 NEXT
 + +
»

This works mostly with an HP-48:

Code:

DIR
  NXT
    \<< DUP LST OVER 2 OVER SIZE
      START \GDLIST DUP LST ROT + SWAP
      NEXT DROP +
    \>>
  LST
    \<< DUP SIZE GET
    \>>
END

For a list with a single element I get:

ΔLIST Error: Invalid Dimension