Steady squares: Difference between revisions
Content added Content deleted
(username removed) (→{{header|J}}: test) |
(Added VTL-2) |
||
Line 1,864: | Line 1,864: | ||
625^2 = 390625 |
625^2 = 390625 |
||
9376^2 = 87909376 |
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> |
</pre> |
||