[SOLVED] DSRN (dog slow roman numerals)

[Dave Britten]

(06-12-2014 01:48 PM)Thomas Klemm Wrote:  Just moved the WHILE-loop to the subroutine A. But I didn't check whether this is faster or slower.

Code:

\<<
  "" SWAP
  \<< \-> k r
    \<<
      WHILE k DUP2 \>=
      REPEAT - SWAP r + SWAP
      END DROP
    \>>
  \>> \-> A
  \<<
    1000 "M" A EVAL
    900 "CM" A EVAL
    500 "D" A EVAL
    400 "CD" A EVAL
    100 "C" A EVAL
    90 "XC" A EVAL
    50 "L" A EVAL
    40 "XL" A EVAL
    10 "X" A EVAL
    9 "IX" A EVAL
    5 "V" A EVAL
    4 "IV" A EVAL
    1 "I" A EVAL
  \>>
  DROP
\>>

Cheers
Thomas

I think I tried that too (I did about 6 different modified versions), and it was a tiny bit slower, despite the code being cleaner.

Also, doing it with binary ints rather than reals was a little bit slower as well.