MC: Ping-Pong Cubes

[DavidM]

(05-26-2018 08:19 PM)Juan14 Wrote:  The first program is a subroutine that checks if the number is a ping-pong number, I called it ISPP?
«
DUP 2. MOD 1
WHILE PICK3 10 > OVER AND
REPEAT
DROP SWAP 10. / IP DUP 2. MOD ROT OVER XOR
END NIP NIP
»

That's a nicer (and faster) RPL approach to testing ping-pong validity than I came up with, Juan! Using your better routine lowered the run time in my original RPL attempt by 22%. Executing it as a separate global variable also saved a bit of time as well.

(05-26-2018 08:19 PM)Juan14 Wrote:  

Code:


...
   THEN
    DUP SQ ISPP?
...

I did have to change the "SQ" above to "3. ^" in order to match the original problem, though. Just curious... did you find any interesting results from testing the squares?