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

Content added Content deleted

Inline

@@ Line 1,042: / Line 1,042: @@
  « '''CASE'''
-      BIN DUP R→B →STR 3 OVER SIZE SUB DUP <span style="color:blue">REVSTR</span> ≠ '''THEN''' DROP 0 '''END'''
+      HEX 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'''
-      HEX DUP R→B →STR 3 OVER SIZE SUB DUP <span style="color:blue">REVSTR</span> ==
+      BIN 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: / Line 1,053: @@
 '''STEP'''
  » '<span style="color:blue">TASK</span>' STO
-Runs in 1 hours 37 minutes on a HP-48SX.
+Runs in 42 minutes on a HP-48SX.
 ====Much faster approach====
@@ Line 1,090: / Line 1,090: @@
    '''NEXT'''
  » '<span style="color:blue">TASK</span>' STO
-Runs in 2 minutes 16 on a HP-48SX: 40 times faster than brute force!
+Runs in 2 minutes 16 on a HP-48SX: 18 times faster than brute force!
 {{out}}
 <pre>