Steady squares: Difference between revisions
Added VTL-2
(username removed) (→{{header|J}}: test) |
(Added VTL-2) |
||
Line 1,864:
625^2 = 390625
9376^2 = 87909376
</pre>
=={{header|VTL-2}}==
{{Trans|Tiny BASIC}}
<syntaxhighlight lang="vtl2">
110 P=0
120 D=10
130 X=1
140 D=D=P*9*D+D
150 N=P+X
160 F=N/100
170 B=N-(F*100)
180 S=F*B-(F*B/100*100)*200+(B*B)
190 #=S-(S/D*D)=N=0*220
200 ?=N
210 $=32
220 X=X+4
230 #=X=10=0*260
240 P=P+10
250 X=1
260 #=X=9=0*280
270 X=6
280 #=P<9990*140
</syntaxhighlight>
{{out}}
<pre>
1 5 6 25 76 376 625 9376
</pre>
| |||