Iterated digits squaring: Difference between revisions
→{{header|Common Lisp}}
Basicgames (talk | contribs) |
|||
Line 1,104:
*
</pre>
=={{header|Craft Basic}}==
<syntaxhighlight lang="basic">for i = 1 to 1000
let j = i
do
let k = 0
do
let k = int(k + (j % 10) ^ 2)
let j = int(j / 10)
wait
loop j <> 0
let j = k
loopuntil j = 89 or j = 1
if j > 1 then
let n = n + 1
endif
print "iterations: ", i
next i
print "count result: ", n
end</syntaxhighlight>
{{out}}
<pre>
857
</pre>
| |||