List Commands Library for 50g

[DavidM]

(07-10-2017 09:30 PM)Gilles59 Wrote:  Just one word : " Bravo !"

Glad you like it.

(07-10-2017 09:30 PM)Gilles59 Wrote:  Why not the reciprocal :
I→NL - converts an integer to a list of digits (ex : 1230 -> { 1 2 3 0} )

The Joe Horn challenge (All odd digits), could be solve in a very 'natural' way like this ( "All" is a GoferList command) :

Code:

I→NL << 2 MOD >> All

I thought about creating a command like that, actually. But I realized that it was already fairly easy to do like this:

Code:

→STR S→NL 48 -

I may still do it, though, just for completeness.

I would probably still use my original submission along with the RPTCHR command for Joe's challenge, though. There's no looping through elements required (other than the inherent looping that the individual instructions do at Saturn speed). "All" is constrained to loop at RPL speed and would almost certainly be much slower. I do like the simplicity of the sequence you're suggesting, though. It makes this one look complex in comparison:

Code:

\<<
  \->STR
  DUP SIZE "1" RPTCHR
  SWAP OVER AND
  ==
\>>