RPL second impressions (HP 28)

[Gerson W. Barbosa]

(06-30-2018 03:04 PM)Thomas Klemm Wrote:  

(06-30-2018 02:37 PM)Gerson W. Barbosa Wrote:  DOERR doesn’t belong in the 28S catalog.

Would the following work then?

Code:

«
  IF DUP 2 MOD
  THEN → n
    «
      IFERR 3 n √
        FOR d
          n d MOD INV
          DROP
          2
        STEP
      THEN
      ELSE 1
      END
    »
  ELSE NOT
  END
»

Yes, for n>3 (if I’ve entered it right). Anyway, 172 seconds (down from 201 seconds).

PS: My bad. All previous ones don’t work either when n<4. This was used together with a prime factorizer for which this behavior didn’t matter. Will see to that later. Sorry!