(50g) OEIS A028842: Product of Digits is a Prime

[Gerald H]

Joe's programme snippet can be replaced by

Code:

::
  CK1&Dispatch
  BINT1
  ::
    %ABS
    DUP
    %2
    %/
    %SQRT
    %0
    RNDXY
    DUP
    %4
    %*
    3UNROLL
    DUP
    %1-
    %*
    DUP
    %+
    %-
  ;
;

Putting that in the initial user programme gives

Code:

« DUPDUP 2. / √ 0.
RND DUP 4. * 3
ROLLD DUP 1. - *
DUP + - 10 ROT 4 /
R→I ^ 1 - 9 / SWAP
4. IDIV2 DUP { DUP
3. == { DROP 4 }
IFT } { DROP 1. - 6
} IFTE 10 ROT R→I ^
* + SWAP DROP
»