Steady squares: Difference between revisions
Added Quackery.
(Added Quackery.) |
|||
Line 2,120:
(90625 8212890625)
(109376 11963109376)</pre>
=={{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>
=={{header|REXX}}==
|