[SOLVED] DSRN (dog slow roman numerals)

[Dave Britten]

(06-14-2014 07:36 AM)Thomas Klemm Wrote:  

(06-14-2014 12:38 AM)Dave Britten Wrote:  This is a pretty fast NDUPN replacement.

Code:

\<< \-> X \<< 2 X START DUP NEXT X \>> \>>

Since we need NDUPN DROP we could avoid the local variable:

Code:

\<< 2 SWAP START DUP NEXT \>>

Quote:I don't know if it responds the same way as a real 50g if you feed it nonsense, though (e.g. n < 2).

Unfortunately this nonsensical case happens often.

Cheers
Thomas

Alright, here's an NDUPN that behaves a little more like the 50G if you feed it a negative/zero/non-integer N:

Code:

\<< 0 RND 0 MAX \-> X N
  \<<
    IF N
    THEN 1 N
      START X
      NEXT
    END N
  \>>
\>>