|
|
|
<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>
|