50g User RPL Micro-Challenge: Fraction to a Power

+- HP Forums (http://www.hpmuseum.org/forum)
+-- Forum: HP Calculators (and very old HP Computers) (/forum-3.html)
+--- Forum: General Forum (/forum-4.html)
+--- Thread: 50g User RPL Micro-Challenge: Fraction to a Power (/thread-9261.html)



50g User RPL Micro-Challenge: Fraction to a Power - Joe Horn - 10-09-2017 05:26 AM

The 50g in exact mode takes a very long time to raise a fraction (ratio of integers) to integer powers. Example: 11/12 to the 115th power:

11/12
115
<< ^ EVAL >>

takes about 40 seconds to return the exact answer.

Micro-Challenge: Generate that same answer in less than 1 second, using only vanilla User RPL (no System RPL or SYSEVALs or FLASHEVALs etc). The fastest program wins.


RE: 50g User RPL Micro-Challenge: Fraction to a Power - Gerald H - 10-09-2017 01:24 PM

Average over 100 runs

.182s

Code:
« SWAP COMP→ DROP 4
ROLLD UNROT OVER ^
UNROT ^ ROT 3. →ALG
»