Steady squares: Difference between revisions
→{{header|RPL}}
(→{{header|Fe}}: Better mod) |
|||
Line 1,974:
9376 -> 87909376
done...
</pre>
== {{header|RPL}} ==
===Brute force approach===
Numbers are converted into strings to make comparison easier.
≪ { } 5 ROT '''FOR''' n
n →STR n SQ →STR
DUP SIZE 3 PICK SIZE - 1 + OVER SIZE SUB
'''IF''' == '''THEN''' n + '''END'''
'''NEXT'''
≫ ‘STEDY’ STO
10000 STEDY
{{out}}
<pre>
1: { 5 6 25 76 376 625 9376 }
</pre>
===Slight optimization====
Taking into account that steady squares can only end up with 5 or 6
≪ { } 0 ROT '''FOR''' n
5 6 '''FOR''' j
n j + →STR LAST SQ →STR
DUP SIZE 3 PICK SIZE - 1 + OVER SIZE SUB
'''IF''' == '''THEN''' n j + + '''END'''
'''NEXT'''
10 '''STEP'''
≫ ‘STEDY’ STO
100000 STEDY
{{out}}
<pre>
1: { 5 6 25 76 376 625 9376 90625 }
</pre>
| |||