Steady squares: Difference between revisions

=={{header|Quackery}}==

<syntaxhighlight lang="Quackery"> [ 1 swap

[ 10 / dup while

dip 1+ again ]

drop ] is digitcount ( n --> n )

[ dup 2 **

over digitcount

10 swap **

mod = ] is steady ( n --> b )

[]

10000 times

[ i^ steady if [ i^ join ] ]

echo</syntaxhighlight>

{{out}}

<pre>[ 0 1 5 6 25 76 376 625 9376 ]</pre>