Little problem(s) July 2022

[Thomas Klemm]

(07-05-2022 02:03 PM)John Keith Wrote:  

Code:

  \<< ms SWAP POS DUP 0 SAME DROPN
  \>> DOLIST

This reminded me of the FORTH word 0= which is NOT.
Or was it SysRPL?
So we can replace 0 SAME by this:

Code:

\<< OVER - \-> ms
 \<< 1
  \<< ms SWAP POS DUP NOT DROPN
  \>> DOLIST
 \>>
\>>