Steady squares: Difference between revisions
Content added Content deleted
Line 1,990: | Line 1,990: | ||
<pre> |
<pre> |
||
1: { 5 6 25 76 376 625 9376 } |
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> |
</pre> |
||