(49G) OEIS A084545: Counting Base 5 without Zero

[Gerald H]

A faster version of the programme:

Code:

::
  CK1&Dispatch
  # FF
  ::
    Z1_
    SWAP
    Z4_
    FPTR2 ^RMULText
    Z1_
    FPTR2 ^RADDext
    DUP
    FPTR2 ^Z>R
    %LN
    %5
    %LN
    %/
    %FLOOR
    %IP
    COERCESWAP
    Z5_
    3PICK
    FPTR2 ^RP#
    FPTR2 ^RSUBext
    NULL$
    ROT
    ZERO_DO
    OVER
    4ROLL
    DUP
    Z5_
    FPTR2 ^RMULText
    5UNROLL
    Z4_
    FPTR2 ^RMULText
    FPTR2 ^ZQUOText
    Z5_
    FPTR2 ^ZMod
    Z1_
    FPTR2 ^RADDext
    FPTR2 ^Z>S
    SWAP&$
    LOOP
    ROTROT2DROP
    FPTR2 ^S>Z
  ;
;