Numbers in base 10 that are palindromic in bases 2, 4, and 16: Difference between revisions

m
→‎{{header|RPL}}: minor improvement on brute force
m (→‎{{header|RPL}}: minor improvement on brute force)
Line 1,042:
« '''CASE'''
BINHEX DUP R→B →STR 3 OVER SIZE SUB DUP <span style="color:blue">REVSTR</span> ≠ '''THEN''' DROP 0 '''END'''
DUP 4 <span style="color:blue">D→B</span> DUP <span style="color:blue">REVSTR</span> ≠ '''THEN''' DROP 0 '''END'''
HEXBIN DUP R→B →STR 3 OVER SIZE SUB DUP <span style="color:blue">REVSTR</span> ==
'''END'''
» '<span style="color:blue">PAL2416</span>' STO
Line 1,053:
2 '''STEP'''
» '<span style="color:blue">TASK</span>' STO
Runs in 1 hours 3742 minutes on a HP-48SX.
 
====Much faster approach====
Line 1,090:
'''NEXT'''
» '<span style="color:blue">TASK</span>' STO
Runs in 2 minutes 16 on a HP-48SX: 4018 times faster than brute force!
{{out}}
<pre>
1,150

edits