(49G) Arabic to Pseudo-Roman Representation (OEIS A093788)

[Gerald H]

Another improved(?) version:

Code:


::
  CK1&Dispatch
  # FF
  ::
    FPTR2 ^DupQIsZero?
    caseSIZEERR
    {
      {
        Z1_
      }
      {
        Z1_
        Z1_
      }
      {
        Z1_
        Z1_
        Z1_
      }
      {
        Z1_
        Z5_
      }
      {
        Z5_
      }
      {
        Z5_
        Z1_
      }
      {
        Z5_
        Z1_
        Z1_
      }
      {
        Z5_
        Z1_
        Z1_
        Z1_
      }
      {
        Z1_
        Z10_
      }
    }
    NULL$
    ROT
    FPTR2 ^Z>S
    DUPLEN$
    ZERO_DO
    DUP
    ISTOP-INDEX
    SUB$1#
    BINT48
    #-
    ::
      DUP#0=csedrp
      NULL$
      4PICKSWAP
      NTHCOMPDROP
      INNERCOMP
      NULL$SWAP
      ZERO_DO
      SWAP
      Z10_
      JINDEX@
      FPTR2 ^RP#
      FPTR2 ^RMULText
      FPTR2 ^Z>S
      SWAP&$
      LOOP
    ;
    ROT
    &$SWAP
    LOOP
    DROPSWAPDROP
    FPTR2 ^S>Z
  ;
;